строка символов, замена и удаление символов

Тема в разделе "Visual Basic", создана пользователем -, 9 дек 2010.

  1. Гость

    Дана строка символов до 254. Удалить все знаки "+" перед символами не являющимися цифрами. Знаки "+" перед символами являющимися цифрами заменить на знак "!".
    Вот программный код:

    Код (LotusScript):
    Dim L As Byte
    Dim x As String


    Private Sub Command1_Click()
    Rem x$-строка символов, L-длина строки

    'x$ = InputBox("Введите строку")
    x$ = "vbvn +kbf+5uyt+h +6"
    L = Len(x$)
    Text1.Text = x$
    L = Len(x$)
    Print x$; " L="; L
    For k = 1 To L
    c$ = Mid$(x$, k, 1)
    If c$ = "+" Then
    Lx = Left$(x$, k - 1)
    Rx = Right$(x$, L - k)
    Print " k="; k; Lx, Rx
    d$ = Mid$(x$, k + 1, 1)
    If d$ >= "0" And d$ <= "9" Then
    Print "d$"; d$; k + 1
    x$ = Lx + "!" + Rx
    Else
    x$ = Lx + Rx

    End If

    L = Len(x$)
    End If
    Next k


    End Sub


    Private Sub Command2_Click()


    L = Len(x$)
    Text2.Text = x$

    End Sub


    Как вывести сообщение о количестве удаленных и добавленных символов или об отсутствии заменяемых символов?
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    а MsgBox или MessageBox в языке нет или он не работает?

    Добавлено: Ворожея
    когда регились, правила читали? освежите в голове, пока не поздно... а то я ща молчанку наворожу...
     
Загрузка...

Поделиться этой страницей