Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Stringfunktionen

StrReplace

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.MitgliedEternal_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 MitgliedEternal_Pain angelegt.
  • Die aktuellste Version wurde am 03.08.2007 von MitgliedEternal_Pain gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen