---
title: "Loopa ut information ut textfil. Utesluta de tre första raderna"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/146155-loopa-ut-information-ut-textfil-utesluta-de-tre-första-raderna"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2006-04-27T17:24:09.000Z"
updated: "2006-04-27T18:04:31.000Z"
replies: 7
views: 382
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/146155-loopa-ut-information-ut-textfil-utesluta-de-tre-första-raderna"
---

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

## #1 — devotion, 2006-04-27T17:24Z

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

Permalänk: https://www.webforum.nu/p/146155

## #2 — @nders, 2006-04-27T17:26Z

Om jag skriver så här:

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

, vad säger du då? ;)

Permalänk: https://www.webforum.nu/p/1804439

## #3 — devotion, 2006-04-27T17:27Z

Weeeeee! :D 

Mvh

Permalänk: https://www.webforum.nu/p/1804442

## #4 — devotion, 2006-04-27T17:31Z

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

Permalänk: https://www.webforum.nu/p/1804443

## #5 — @nders, 2006-04-27T17:33Z

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

Permalänk: https://www.webforum.nu/p/1804445

## #6 — devotion, 2006-04-27T17:36Z

thanx!

:D

Permalänk: https://www.webforum.nu/p/1804446

## #7 — devotion, 2006-04-27T17:48Z

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

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

Ex

```
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

Permalänk: https://www.webforum.nu/p/1804457

## #8 — @nders, 2006-04-27T18:04Z

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
```

Permalänk: https://www.webforum.nu/p/1804461

---

Tråden på webben: https://www.webforum.nu/amne/asp/146155-loopa-ut-information-ut-textfil-utesluta-de-tre-första-raderna