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

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

  1. Гость

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

    Код:
    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 *

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

    Добавлено: Ворожея
    когда регились, правила читали? освежите в голове, пока не поздно... а то я ща молчанку наворожу...
     
Загрузка...
Похожие Темы - строка символов замена
  1. I_am_user
    Ответов:
    0
    Просмотров:
    129
  2. basheer
    Ответов:
    7
    Просмотров:
    237
  3. evgenyum
    Ответов:
    6
    Просмотров:
    466
  4. alexas1
    Ответов:
    1
    Просмотров:
    639
  5. DezIntegrator
    Ответов:
    1
    Просмотров:
    1.303

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