PDA

Vollständige Version anzeigen : Tab-Stops in einer String-Variabele suchen ???????


sistma
23.01.2001, 09:20
Hallo,
ich muss in enem String mit TAB-Stops diese TAB-Stops zählen und mit einem anderen Zeichen ersetzen. Mit InStr bekomme ich dies nicht hin.

Bitte helft mir.

Gruss Steffen

Mike
23.01.2001, 09:37
Function CharChange(ByVal xVar As Variant, xAlt As String, xNew As String) As Variant
Dim X As Integer, P As Integer

On Error GoTo Proc_Err
If IsNull(xVar) Then CharChange = Null: GoTo Proc_Exit
P = Len(xAlt)

Do
X = InStr(xVar, xAlt)
If X = 0 Then Exit Do
xVar = Left(xVar, X - 1) + xNew + Mid(xVar, X + P)
Loop
CharChange = xVar

Proc_Exit:
Exit Function

Proc_Err:
MsgBox Err.Description
Resume Proc_Exit
End Function
Mike