text zwischen 2 zeichen auschneiden

[Master Jay]

weis einer wie ich einen text zwischen 2 zeichen ausschneiden/löschen/replacen kann?



z.B. <das muss weg>


ich hatte das vorher so gemacht:



Do
p = (Chr$(13) + Chr$(10))

z = Replace(s, p, "")
q = Replace(z, ",", ".")
m = Replace(q, "</a>", "")
r = Replace(m, "</font>", "")
z = Replace(r, "</strong>", "")
List2.AddItem (Inhaltvon(z, "h3", l) & x)

Label11.Caption = t
Loop Until l = 0


ich muss paar tags aus nem html file schneiden... und schonmal halt den text der zwischen < , > liegt... nur wenn ich den text mit replace wegmache dann mäkert er mir an, weil " " im text vorhanden sind. :/



mfg


libo

 

[thekorn]

InStr

Also, ich würde "InStr" verwenden.
Instr gibt die Position einer Zeichenfolge zurück. In kombination mit "Left","Right" und evt. "len" kannst du dann den Text zerstückeln.
Beispiel (liest aus einer charts-seite die TOP10 aus):

Open "C:\WINDOWS\Desktop\charts1.txt" For Input As #2
Do While Not EOF(2)    ' Schleife bis Dateiende.
    Line Input #2, textzeile    ' Zeile in Variable einlesen.
    If InStr(textzeile, "Gültig") Then
        Stand_datum = Right(textzeile, Len(textzeile) - InStr(textzeile, "Gültig") + 1 - Len("Gültig ab "))
        Stand_datum = Left(Stand_datum, Len(Stand_datum) - 11)
        Debug.Print Stand_datum
    End If
    
    If InStr(textzeile, "images/tabkopf_neu.gif") Then
    For i = 1 To 10
        Line Input #2, textzeile1      ' Zeile in Variable einlesen.---> weglassen
        Line Input #2, textzeile2      ' Zeile in Variable einlesen.----> Position Akt/VW
        Line Input #2, textzeile3      ' Zeile in Variable einlesen.---> weglassen
        Line Input #2, textzeile4      ' Zeile in Variable einlesen.----> Interpret
        Line Input #2, textzeile5      ' Zeile in Variable einlesen.----> Titel
   
        '----- textzeile2 bearbeiten
        textzeile2 = Replace(textzeile2, "<img src=" & Chr(34) & "neu.gif" & Chr(34) & ">", "-")
        pos1 = InStr(textzeile2, "<div id=" & Chr(34) & "text" & Chr(34) & ">")
        textzeile2 = Right(textzeile2, Len(textzeile2) - pos1)
        pos1 = InStr(textzeile2, ">")
        textzeile2 = Right(textzeile2, Len(textzeile2) - pos1)
        pos1 = InStr(textzeile2, "<")
        
        'akt_pos
        charts_position(i, 0) = Left(textzeile2, pos1 - 1)
        
        textzeile2 = Left(textzeile2, Len(textzeile2) - 11)
        pos1 = InStrRev(textzeile2, ">")
        
        'VW
        charts_position(i, 1) = Right(textzeile2, Len(textzeile2) - pos1)
        
        '----- textzeile4 bearbeiten
        textzeile4 = Replace(textzeile4, "<b>", "")
        pos1 = InStr(textzeile4, "<div id=" & Chr(34) & "text" & Chr(34) & ">")
        textzeile4 = Right(textzeile4, Len(textzeile4) - pos1 - 14)
        
        'interpret
        charts_position(i, 2) = Left(textzeile4, Len(textzeile4) - 11)
        
        '----- textzeile5 bearbeiten
        textzeile5 = Replace(textzeile5, "<b>", "")
        pos1 = InStr(textzeile5, "<div id=" & Chr(34) & "text" & Chr(34) & ">")
        textzeile5 = Right(textzeile5, Len(textzeile5) - pos1 - 14)
        
        'titel
        charts_position(i, 3) = Left(textzeile5, Len(textzeile5) - 11)
        
        Debug.Print charts_position(i, 0) & " / " & charts_position(i, 1) & " / " & charts_position(i, 2) & " / " & charts_position(i, 3)
        
    Next i

    End If
Loop

Dieses Beispiel habe ich vor längerer Zeit mal geschrieben und immer noch!

Vielleicht hilft es ja!

gruß
thekorn