13. august 2005 - 20:32Der er
10 kommentarer og 1 løsning
Løkker og linjenr
Jeg bruger en løkke til at læse en fil linje for linje og jeg skal bruge en funktion som, hvis en betingelse for den AKTUELLE linje er opfyldt, smider den NÆSTE linje i en variabel.
Jeg forstiller mig noget med at man giver hver linje et indexnr, men ved ikke helt hvordan jeg skal gribe det an.
Jeg har foreløbig lavet følgende:
Public Sub VisTlfNr(FilePath As String) Dim varTlf, tmpStr As String
Open FilePath For Input As #1 Do Until EOF(1) Input #1, tmpStr If tmpStr = "<td><strong>Telefon</strong>:</td>" Then varTlf = 'næste linie i FilePath End If
Loop
Close #1
End Sub
Håber der er nogen der kan hjælpe - på forhånd tak.
Public Sub VisTlfNr(FilePath As String) Dim varTlf, tmpStr As String I = 0 Open FilePath For Input As #1 Do Until EOF(1) Input #1, tmpStr If tmpStr = "<td><strong>Telefon</strong>:</td>" Then ReDim Preserve varTlf(I) varTlf(I) = tmpStr 'næste linie i FilePath I = I + 1 End If
Public Sub VisTlfNr(FilePath As String) Dim varTlf() As Variant Dim tmpStr As String i = 0 Open FilePath For Input As #1 Do Until EOF(1) Input #1, tmpStr If tmpStr = "<td><strong>Telefon</strong>:</td>" Then ReDim Preserve varTlf(i) varTlf(i) = tmpStr 'næste linie i FilePath Debug.Print varTlf(i) i = i + 1
Flaget er GetNextLine-variablem. Vi starter med at det ikke er hejst (GetNextLine = False). Derefter løber vi dine linjer igennem, og når vi kommer til matchen så hejser vi flaget (GetNextLine = True). For hver gennemgang af løkken tjekker vi om flaget er hejst, og hvis det er, ja så udskriver vi linjen.
Jeg havde ikke læst spørgsmålet ordenligt, det var jo næste linie og ikke den aktuelle, der skulle fanges.
Desuden var jeg fra computeren, så jeg kunne ikke følge op.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
