Code-Beispiel

StrReplace

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Eternal_Pain	03.08.2007

Syntax: Neu[$]=StrReplace (Alt[$],Ersetze[$],Durch[$])
Typ: Funktion
Kategorie: Stringmanipulation

STRREPLACE
ist gedacht um bestimmte Zeichen(ketten) durch eine andere(s) zu ersetzen.

Beispiel:

?StrReplace("Das war ein Test","war","ist")

Ausgabe:

Das ist ein Test

Declare Function StrReplace (Byval StrEx as String, Byval StrMask as String, Byval StrRplce as String) as String





'-----------------------------------------------------------------------------'

Function StrReplace (Byval StrEx as String, _

                     Byval StrMask as String, _

                     Byval StrRplce as String) as String



    If Len(StrEx)=0 or Len(StrMask)>Len(StrEx) Then Return StrEx



    Dim Buffer as String=StrEx

    Dim MaskSearch as UInteger

    Dim MFound as byte

    Dim lp as UInteger=1



    Do

        MaskSearch=InStr(lp,Buffer,StrMask)

        MFound=0



        If MaskSearch Then

            MFound=1:lp=MaskSearch+Len(StrRplce)



            ''

            Buffer=Left(Buffer,MaskSearch-1)+ _

            StrRplce+ _

            Right(Buffer,Len(Buffer)-(MaskSearch+(Len(StrMask)-1)))

            ''



        End If



    Loop while MFound=1



    Return Buffer

End Function

'-----------------------------------------------------------------------------'

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 03.08.2007 von Eternal_Pain angelegt.
Die aktuellste Version wurde am 03.08.2007 von Eternal_Pain gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.