Loopa ut information ut textfil. Utesluta de tre första raderna

7 svar · 368 visningar · startad av devotion 27 apr. 2006

devotionMedlem sedan jan. 20013 582 inlägg

Frågan27 apr. 2006 17:24#1

Hej!

Jag har följande kod:

			while not objFile.atendofstream
				
				' Villkor för att flusha
				' **********************
				iCounter = iCounter +1
				if iCounter mod 100 = 0 then
					Response.write ("<script>document.getElementById(""progress"").innerHTML=""" & iCounter & """;</script>")
					Response.flush
				end if
			
				sLine = objFile.ReadLine
				If sLine <> "" then
					 if instr(sLine,  "") = 0 then
					
					'Ta ut de olika delarna ur textfilen
					sArticleDiscount = replace(Trim(Mid(sLine, iArticleDiscountStart, iArticleDiscountLength)), ",", ".")
					sCategory = Trim(Mid(sLine, iCategoryStart, iCategoryLength))
									
					'Uppdatera tblDiscount om rabatten redan finns
					sSQL = "UPDATE tblDiscount SET articleDiscount = " & sArticleDiscount & " WHERE categoryNumber = '" & sCategory & "'"
					objConn.Execute sSQL, lngRA, 128
					
					iUpdatesDiscount = iUpdatesDiscount + lngRA
				
					if lngRa = 0 then
						'Lägga till artikeln i tblArticle om den inte finns
						sSQL = "INSERT INTO tblDiscount (categoryNumber, articleDiscount, supplierId) VALUES ('" & sCategory & "', " & sArticleDiscount & ", " & iSupplierId & ")"		
						objConn.Execute sSQL,,128
						
						iInsertsDiscount = iInsertsDiscount + 1
					End if
					
					'Lägga till alla kategorier i en tabell som senare används för att ta bort utgångna kategorier
					sSQL = "Insert into tblTempCategory (categoryNumber) Values ('" & sCategory & "')"
					objConn.Execute sSQL

					End If
				End If
			wend

Som loopar ur raderna ur en textfil ocjh lägger in i databas...

Kan man på något sätt göra så att de tre första raderna i textfilen inte läses in?

Mvh
Henrik

@ndersMedlem sedan juni 200032 967 inlägg

27 apr. 2006 17:26#2

Om jag skriver så här:

If sLine <> "" [b]and iCounter > 3[/b] then

, vad säger du då? ;)

devotionMedlem sedan jan. 20013 582 inlägg

27 apr. 2006 17:27#3

Weeeeee! :D

Mvh

devotionMedlem sedan jan. 20013 582 inlägg

27 apr. 2006 17:31#4

Hmmmm

Om jag förkortar koden lite:

while not objFile.atendofstream
	sLine = objFile.ReadLine
	If sLine <> "" and instr(sLine,  "") = 0 then
			'Läs in raden
	End If
wend

Blir det rätt?

Och den där exkluderi´ngen av de tre första raderna ska ju vara ett villkor för en viss leverantör..

If supplierId = 1 then exlkudera de tre första raderna...

Hur får man ihop allt det?

Mvh

@ndersMedlem sedan juni 200032 967 inlägg

27 apr. 2006 17:33#5

If sLine <> "" and not (supplierID = 1 and iCounter < 4) and instr(sLine,  "") = 0 then

devotionMedlem sedan jan. 20013 582 inlägg

27 apr. 2006 17:36#6

thanx!

devotionMedlem sedan jan. 20013 582 inlägg

27 apr. 2006 17:48#7

Nu blir det sådär svårt igen...

Hur gör man om man om det är olika för olika leverantörer?

supplierId 1 --> ta bort 3 rader
supplierId 2 --> ta bort 5 rader
supplierId 3 --> ta bort 2 rader

Hur många rader som skall tas bort lägger jag ju givetvis in tblfoo, så slipper jag ju hårdkoda in värdena...

while not objFile.atendofstream
	sLine = objFile.ReadLine
	If sLine <> "" and not (supplierID = 1 and iCounter < 4) and instr(sLine,  "") = 0 then
			'Läs in raden
	End If
wend

Mvvvvh
Henrik

@ndersMedlem sedan juni 200032 967 inlägg

27 apr. 2006 18:04#8

Ayt... typ:

sSQL = "SELECT foo FROM tblFoo WHERE supplierID = 4711"
set oRS = oConn.Execute (sSQL)
iSkip = cint(oRS(0))

...

If sLine <> "" and iCounter > iSkip and instr(sLine,  "") = 0 then