Visual Basic 5.0: Zeichen ersetzen

[Tom]

Hallo Nico

Von Hand programmiert in etwa so:

Dim s_old, s_new, s_char As String
Dim i_len, i_cnt As Integer

s_old = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion"
s_new = ""
i_cnt = 0
i_len = Len(s_old)
s_char = ""
While i_cnt < i_len
   s_char = Mid(s_old, i_cnt, 1)
   If s_char = "" Then
      s_new = s_new + "\"
   Else
      s_new = s_new + s_char
   End If
   i_cnt = i_cnt + 1
Wend

Danch steht in s_new der konvertierte String drin.

Die Befehle entsprechen dem VBA for Access97, sollten bei diesen Grundbefehlen aber auch in VB 5.0 funktionieren.

Grüsse
Tom