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

  • Автор темы -
  • Дата начала

Гость
#1
Дана строка символов до 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


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

hosm

* so what *
18.05.2009
2 442
9
#2
Как вывести сообщение о количестве удаленных и добавленных символов или об отсутствии заменяемых символов?
а MsgBox или MessageBox в языке нет или он не работает?

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