• Артем
  • Восстановленный участник
  • На форуме с 28 августа 2004г.
  • Сообщений: 4
  • Спасибо: 0

Тема: Как можно удалить из введенного текста все цифры?

Подскажите как можно удалить из введенного текста все цифры и вывести на экран новый текст (без цифр).

  • BJ
  • Восстановленный участник
  • На форуме с 20 сентября 2004г.
  • Сообщений: 3
  • Спасибо: 0

Re: Как можно удалить из введенного текста все цифры?

вот попробуй:
Sub analiz()
Dim stroca As String
Dim stroca2 As String
Dim a As Variant
Dim symb As String
Dim i As Integer
Dim j As Integer
stroca2 = ""
a = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
stroca = InputBox(stroca)
For i = 1 To Len(stroca)
symb = Mid$(stroca, i, 1)
For j = 0 To 9
If symb = a(j) Then GoTo line1
Next j
stroca2 = stroca2 + symb
line1:
Next
MsgBox stroca2
End Sub

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: Как можно удалить из введенного текста все цифры?

Можно так же проверять символ на цифру функцией IsNumeric(symb).
Тогда вместо

For j = 0 To 9
If symb = a(j) Then GoTo line1
Next j
stroca2 = stroca2 + symb
line1:

Можно записать

If Not IsNumeric(symb) Then stroca2 = stroca2 + symb

  • BJ
  • Восстановленный участник
  • На форуме с 20 сентября 2004г.
  • Сообщений: 3
  • Спасибо: 0

Re: Как можно удалить из введенного текста все цифры?

> brigval:
точно, для данной задачи IsNumeric красивее... и код короче. (А может удалить нужно ещё чего-нить попутно, тогда в самый раз :)))