[VB] Source filteren

[CornNatron]

Weet iemand Hoe ik een source kan filteren die ik binnen heb gehaalt met een Source ripper ik wil namelijk de source tussen

<!------------- NEWS INDEX --------------->
<!------------- /NEWS INDEX --------------->

Hebben en de rest hoef ik niet Maar ik krijg het niet voor elkaar weet iemand mischien hoe dat moet

[Sponge]

Eens kijken hoe ik het zou doen, op de meest inefficiente manier die ik ongeveer kan verzinnen maar wel snel is om te typen hiero :

code:

dim blnStart as boolean
dim strTotal as string

Do While Not EOF(lngFreeFIle)
 Line Input #lngfreefile, strLine
 if strline = "<!------------- NEWS INDEX --------------->" then
  blnstart = true 
 end if

 if strline = "<!------------- /NEWS INDEX --------------->" then
  blnstart = false
 end if
 
 '//voeg tekst aan totaal toe
 if blnstart = true then
   strtotal = strtotal & strLine & vbcrlf
 else
   if len(strtotal) > 0 then
      debug.print "gevonden", strtotal
      strtotal = vbnullstring 
   end if
 end if
Loop

Close #lngfreefile

Een aantal declaraties zul je zelf maken (en file openen bijv), aangezien dit toch wel een aardig simpel programma is, moet je het maar als een leer-ervaring zien

[ Voor 17% gewijzigd door Sponge op 20-02-2003 08:13 ]

[whoami]

Sorry, maar als je een slotje gekregen hebt, dan ga je niet zomaar een nieuw topic gaan openen.
Lees - zoals dusty al zei- eens de quickstart, en zorg dat jouw topic daar aan voldoet.
Source uitfilteren IN VB6