Wenn nicht anders angegeben, dann gelten die Beispiele für die gängigen Versionen von MS VisualBasic, wie sie in den OFFICE-Programmen oder "stand alone" verbreitet sind.

Basic gilt zwar als Sprache mit angenehmen Stringfunktionen, das Ersetzen ist bei einigen Dialekten jedoch nur "zu Fuß" möglich:

Sub StrReplaceGlobal(s$, s1$, s2$, global%) Dim pos% Dim s1len% Dim s2len% Dim l$ Dim r$ s1len% = Len(s1$) s2len% = Len(s2$) Do pos% = pos% + 1 pos% = InStr(pos%, s$, s1$) If pos% > 0 Then l$ = Left$(s$, pos% - 1) r$ = Mid$(s$, pos% + s1len%) s$ = l$ + s2$ + r$ pos% = pos% + s2len% - 1 if global%=0 then exit sub end if End If Loop Until pos% = 0 End Sub

Der Parameter global% steuert (mit =0/<>0) ob alle vorhandenen Zeichenfolgen s1$ durch s2$ ersetzt werden sollen, oder nur einmal.