подстроки

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
pikass
Сообщения: 14
Зарегистрирован: 23 янв 2006, 02:21

подстроки

Сообщение pikass » 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

Avsha
Сообщения: 664
Зарегистрирован: 08 сен 2005, 12:47
Откуда: KZ

Сообщение Avsha » 17 фев 2006, 02:34

If Mid(s, i, Len(s2)) <> s2 Then s3 = s3 + Mid(s, i, 1) Else i = i + Len(s2) - 1 'считывание числа символов в строке

Ответить