Visual Basic 5.0: Zeichen ersetzen

[Thomas Mirke]

Hi Ihr alle!

Ich muss in VB 5.0 etwas in die Registry eintragen, einen Pfad. Dazu muss ich aus der Variable CurDir$ aber alle Backslash's in zwei umwandeln, also \ in \, weil die Reqistry diese als Steuerzeichen ansieht. Ich habe erfahren, dass es so gehen kann:

newString = Replace(oldString, "", "\")

doch VB5 kennt diese Funtion nicht. Wie geht es sonst?

function Replace(old$,a$,b$)
if len(old$)=0 then exit function

dim temp$, erg$
for i%=1 to len(old$)
   if mid$(old$,i%,len(a$))=a$ then
      erg$=erg$+b$
   else
      erg$=erg$+mid$(old$,i%,1)
   endif
next
Replace=erg$

end function

Ist ungetestet, nur so ausm Kopf hingeschrieben. Viel Spaß.

Thomas