подстроки
Добавлено: 17 фев 2006, 01:35
Даны две строки: S1 и S2. Удалить из строки S1 (S1 – строка выделения) все подстроки, совпадающие с S2. Если таких подстрок нет, то выделение оставить без изменений.
Для некоторых случаев прога работает, а иногда не видит подстроки. Как исправить, подскажите если знаете.
Private Sub CommandButton1_Click()
s = Selection.Text
s2 = TextBox1.Text
Dim s3 As String
For i = 1 To Len(s) 'размер строки
If Mid(s, i, Len(s2)) <> s2 Then s3 = s3 + Mid(s, i, 1) Else i = i + Len(s2) 'считывание числа символов в строке
Next i
MsgBox s3, vblnformation, "Результат"
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Для некоторых случаев прога работает, а иногда не видит подстроки. Как исправить, подскажите если знаете.
Private Sub CommandButton1_Click()
s = Selection.Text
s2 = TextBox1.Text
Dim s3 As String
For i = 1 To Len(s) 'размер строки
If Mid(s, i, Len(s2)) <> s2 Then s3 = s3 + Mid(s, i, 1) Else i = i + Len(s2) 'считывание числа символов в строке
Next i
MsgBox s3, vblnformation, "Результат"
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub