vb6, почему не работает функция?!
Добавлено: 16 ноя 2008, 21:06
Привет всем! подскажите почему не работает эта функция?
Public Function myReplace(A As String, B As String, C As String) As String
Dim myA As String
Dim myB As String
Dim Number As Integer
Dim Stroka As String
myA = A
myB = B
Do
Number = InStr(1, LCase(myA), LCase(myB))
If Number = 0 Then
Exit Do
End If
Stroka = Left(A, Number - 1) + C + Right(A, Len(A) - Number)
Loop
myReplace = Stroka
End Function
Public Function myReplace(A As String, B As String, C As String) As String
Dim myA As String
Dim myB As String
Dim Number As Integer
Dim Stroka As String
myA = A
myB = B
Do
Number = InStr(1, LCase(myA), LCase(myB))
If Number = 0 Then
Exit Do
End If
Stroka = Left(A, Number - 1) + C + Right(A, Len(A) - Number)
Loop
myReplace = Stroka
End Function