Hej!
Jag har stött på ett litet problem... Säkert enkelt...men inte för mig..

Jag läser in värde från en text fil som jag sedan skickar vidare in i en databas.
Textfilen kan se ut så här:
A;102
B;501;2
B;502;4
B;503;5
A;105
B;300;5
B;301;10
A;103
B;303;15

------------------------
Jag läser in övesta raden som identiferas med bokstaven A och skriver till databasen. Sedan ska jag läsa in de rader som börjar med B och skriva dessa till databasen. Problemet är att jag måste veta hur många rader med B som kommer innan nästa A, innan jag kan skriva dessa till databasen.

Om Jag använder en While loop med "Line Input #intFilNr, Buffer" för att räkna B raderna så stegar jag ju nedåt i filen. Hur ska jag sedan kunna återvända till den översta B raden för att göra den "skarpa" inläsningen?

Hoppas ni förstår problemet.... Jag har tagit med lite av koden för att visa ungefär hur det ser ut..

Tack på förhand!

Open App.Path & "/Textfil.txt" For Input As intFilNr
Line Input #intFilNr, Buffer
Pos = Mid(Buffer, 1, 1)
If Pos = "A" Then
"Skriv till databasen"
End if

Line Input #intFilNr, Buffer
Pos = Mid(Buffer, 1, 1)

HÄR MÅSTE JAG FÖRST RÄKNA ANTAL RADER SOM BÖRJAR MED B.

While Pos = "B"
"Skriv till databasen"
Line Input #intFilNr, Buffer
Pos = Mid(Buffer, 1, 1)
Wend