'Replace f�r FB
	'+------------------------------------------------------------------------------------------+
	'|   Header: Bestimmen der �bergabeparameter'                                               |
	'|           AnzeigeCheck:|Il1 sind Alt-0124, Gro�es i, kleines L, Eins ������ߎę֚�񱸩��|
  Const Author="Replace.Bas v023.0 �2012 by ytwinky, MD"'                                     |
	'|           (Tastenkombination: keine)                                                     |
	'|                                                                                          |
	'|   Zweck : Ersetzen von Text in Strings(nicht die schnellste Version..)                   |
	'+------------------------------------------------------------------------------------------+
Function Replace(Text As String, Search As String, ReplaceWith As String) As String
  Var s=Text, i=Instr(s, Search)
  While i
    s=Left(s, i-1) &ReplaceWith &Mid(s, i+Len(Search))
    i=Instr(i+Len(Search)+1, s, Search)
  Wend
  Return s
End Function
Print Author
'Und hier mein nicht mehr ganz so kleines Anwendungsbeispiel:

Dim As String HW, Ori
Ori="Hello VB-World?"
Print "Original:" & Ori
HW=Replace(Ori, "e", "a")
Print "Ersetzung:" & HW
HW = Replace(HW, "World", "Welt")
Print "Ersetzung:" & HW
HW=Replace(HW, "V", "F")
Print "Ersetzung:" & HW
HW=Replace(HW, "?", "!")
Print "Ersetzung:" & HW
HW=Replace(HW, "l", "L")
Print "Ersetzung:" & HW
Print "Ersetzung:" & Replace(HW, "H", "h")
Print "und weils so gut geklappt hat.."
Print "Aus '" & Ori &"' wird '" &Replace(Replace(Replace(Replace(Ori, "e", "a"), "World", "Welt"), "V", "F"), "?", "!") &"'"
hw="Dies ist ein besonders langer Text! Nein, es ist mein Beispiel"
hw=Replace(HW, "ein", "kein")
Print Hw
Print !"STOP: Never change a running program..\nEniki..";
GetKey
End