В строке заменить все двоеточия точкой с запятой, подсчитать количество замен - VB

Формулировка задачи:

Помогите решить задачу, не получается))))))) Задание вот такое. В строке заменить все двоеточия точкой с запятой.Подсчитать количество замен. Вот код программы но его нужно исправить по этому заданию.

Private Sub Command1_Click()
Str1 = Text1
Char = Text2
k = 0
i = 2
s = ""
For i = i To Len(Str1)
 If Mid(Str1, i, 1) = Char Then
 k = k + 1
 s = s + Str(i)
 End If
Next
Text3 = s
Text4 = k
 
End Sub

Решение задачи: «В строке заменить все двоеточия точкой с запятой, подсчитать количество замен»

textual
                            Листинг программы 
                        

                            Function Task(Stri as String) As integer
   Task=len(Stri)-len(Replace$(Stri,":",""))
   Stri=Replace$(Stri,":",";") 
End Sub
                        

Оцени полезность:

6 голосов , оценка 3.667 из 5

Похожие ответы