[VB] files inlezen

[markvt]

jullie weten vast wel wat usenet is.

Nou is het probleem daar altijd dat als je iets download met een nieuwsgroepen grabber alles door elkaar ligt, bijv. bij de mp3 groepjes.

Nu wilde ik ff een apje in elkaar schroeven dat dmv. die sfv files al die files ff moved.

regels met :
; moeten niet gelezen worden

dan heb je nog een lijste over met:

filename.rar hexcode


nu wil ik weten hoe je die regels met ; ervoor skipped

read filename , text1
if text1 = ;
then resume next ofzo

[Verwijderd]

code:

If Left$(sRegel,1)<>";" Then
  'Do Stuff
End If

Maar eigenlijk moet ik zeggen: koop een boek... maakt niet uit welke, als het maar over programmeren gaat...

[markvt]

Op vrijdag 18 januari 2002 21:14 schreef Debbus het volgende:

code:

If Left$(sRegel,1)<>";" Then
  'Do Stuff
End If

Maar eigenlijk moet ik zeggen: koop een boek... maakt niet uit welke, als het maar over programmeren gaat...

ik heb een boek, alleen kon ik geen voorbeeld voor een stukje van een regel en dan de volgende regel vinden in mijn boek. dus dit heeft nog niet echt geholpen.

[Gerco]

code:

Dim line as String
Line Input #1, line
Debug.Print "Regel 1: " & line
Line Input #1, line
Debug.Print "Regel 2: " & line

[markvt]

Op zaterdag 19 januari 2002 21:42 schreef Gerco het volgende:

code:

Dim line as String
Line Input #1, line
Debug.Print "Regel 1: " & line
Line Input #1, line
Debug.Print "Regel 2: " & line

FileNumber = FreeFile
Open "iets.sfv" For Input As FileNumber
While Not EOF(FileNumber)
Input #1, iets
List1.AddItem iets
Wend
Close FileNumber

gebruik nu trouwens dat maar ik moet eik de eerste char pakken

en als die char ; is dan next regel anders het eerste woord nemen.

ik moet niet de line, maar het eerste woord en dan naar de volgende regel kicken.
dat was iets met