Suchen & Ersetzen innerhalb eines Strings (VB)

Genesis · 27.03.2004

hallo,

ich möchte gerne einen string nach einem wort durchsuchen, und wenn es enthalten ist, aus dem String löschen. Jetzt weiß ich nicht, wie ich einen String so bearbeiten kann, das ich etwas rausnehme. Kann mir jemand helfen? ???

Thx
Genesis

Genesis · 27.03.2004

aaaah :

seltsam, das man immer dann auf die Lösung kommt, wenn man das Problem postet

Code:

Function filter(text As String, teil As String)
        Dim zwischen As String
        Dim Temp As Integer
        Dim ergebnis As String
        zwischen = % &amp; text
        zwischen = LCase(zwischen)
        Temp = InStr(1, zwischen, LCase(teil))
        If Temp > 0 Then
            zwischen = Mid(zwischen, 2, Temp - 2) &amp; Mid(zwischen, Temp + Len(teil))
        End If
        If Left(zwischen, 1) =   Then
            zwischen = Mid(zwischen, 2)
        End If
        ergebnis = zwischen
End Function

aufruf:

Code:

        filter text, Ich heiße
        MsgBox ergebnis

MfG

Alexander16 · 27.03.2004

Hi

Das geht noch viel einfacher ;D

Funktion:

Code:

Private Function FilterX(str_Text As String, str_Suchen As String) As String
     FilterX = Replace$(str_Text, str_Suchen, , , , vbTextCompare)
End Function

Aufruf:

Code:

Ausgabe = FilterX(DerText, Suchwort)

Mfg Alexander

Suchen & Ersetzen innerhalb eines Strings (VB)

Genesis

Genesis

Alexander16

Suchen & Ersetzen innerhalb eines Strings (VB)

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums