+ Ответить в теме
Показано с 1 по 2 из 2

Тема: подстроки

  1. #1
    coder pikass is on a distinguished road
    Регистрация
    23.01.2006
    Сообщений
    14
    Вес репутации
    14

    По умолчанию подстроки

    Даны две строки: 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

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    system architect Avsha is on a distinguished road
    Регистрация
    08.09.2005
    Адрес
    KZ
    Сообщений
    664
    Вес репутации
    15

    По умолчанию

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

+ Ответить в теме

Похожие темы

  1. Вставка в текст подстроки в определенное фокусом место?
    Так вот!... Есть TEXTAREA, и кнопка. При нажати на кнопку, в TEXTAREA должен добавиться определенный текст, например "Yahooo!". но не в конец (типа...
    от Zvepr в разделе JScript, VBScript, DHTML...

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения