Find text imellem 2 "tags" i .txt fil?

Har Visual Basic ikke mulighed for at bruge noget a'la Regular Expressions, fordi så kan du bruge det

(¯`·._.·[Brian Hvarregaard]·._.·´¯)

Hejsa

Jo, du kan anvende Regular Expressions i Visual Basic. Du skal lave en reference til et type library, som du gør ved at vælge menupunktet "References".

Derefter kan du bruge objektet RegExp.
Hvis du vil vide mere om regular expressions kan du kigge på http://www.regular-expressions.info

Mvh. Thomas Lykke Petersen

Hvordan finder jeg texten mellem f.eks. [path] og [/path] i en txt fil?

er der en måde hvor man kan starte med at læse fra slutningen af [path] og til begyndelsen af [/path]?

20 up!

Du kan bruge funktionen InPos til at søge med, og du kan bruge funktionen Mid til at kopiere ud af strengen. Jeg kender desværre ikke VB nok til at kunne give dig noget konkret kode, men med de to funktioner kan bruges til det.

MH.

The-Freak

Livet er for kort til at kede sig.

Det er korrekt at du kan anvende InStr og Mid, Left og Right funktionerne, men det er ikke specielt hurtigt hvis det er en forholdsvis stor streng du skal opererer på .... Så er Regular Expressions klart det hurtigste, og når du får det lært - faktisk også det nemmeste.

Mvh. Thomas Lykke Petersen

Valgte inString.. Here's how I've done:

Private Function InString(SourceLine As String, StartSource As String, EndSource As String)

    Dim i As Long
    Dim j As Long
    Dim TempStr As String
    
    i = Len(StartSource) + InStr(SourceLine, StartSource)
        If i > Len(StartSource) Then
         j = InStr(i + 1, SourceLine, EndSource)
         If j Then
              TempStr = Mid$(SourceLine, i + 1, j - i - 1)
               InString = TempStr
         End If
    End If

End Function

Public Function OpenPrj()

Dim intTreePrjTal

CommonDialog1.FileName = ""
CommonDialog1.DialogTitle = "Open Project..."
CommonDialog1.Filter = "Webster Project Files|*.wpj"
CommonDialog1.ShowOpen
strPrjNavn = CommonDialog1.FileTitle
Set nodx = TreeView1.Nodes.Add("Prj", tvwChild, "Projekt" & intTreePrjTal, strPrjNavn)
Open CommonDialog1.FileName For Input As #1

Do Until EOF(1)
Line Input #1, strBuf
strFind = InString(vbCrLf & strBuf & vbCrLf, "[path", "[/path]")
strBuf = InString(vbCrLf & strBuf & vbCrLf, "[name", "[/name]")
Set nodx = TreeView1.Nodes.Add("Projekt" & intTreePrjTal, tvwChild, strFind, strBuf)
intTreePrjFilTal = intTreePrjFilTal + 1
Loop

Close 1
intTreePrjTal = intTreePrjTal + 1
End Function

hvis nogen skulle få brug for koden ..

Takker!


Med Venlig Hilsen
Morten Torndahl Pedersen