Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Удаление из строки нечисловых символов / 6 сообщений из 6, страница 1 из 1
21.01.2010, 15:02
    #36423039
mimozka
mimozka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление из строки нечисловых символов
Есть у меня числовая строчка в которой могут быть не только число, но и другие символы и буквы, так вот мне надо их всех удалить, что то я вроде сделала...но как дальше быть незнаю, помогите пожалуйста.
Здесь я хотела удалить из строки все нечисловые символы

l = Len(Trim(ThisWorkbook.Worksheets("Итого").Cells(i + 1, 8))) ' определяем длину строки
st = Trim(ThisWorkbook.Worksheets("Итого").Cells(i + 1, 8)) ' сама строка без пробелов справа и слева
For k = 1 To l
If Mid(st, k, 1) <> 0 And Mid(st, k, 1) <> 1 And Mid(st, k, 1) <> 2 And Mid(st, k, 1) <> 3 And Mid(st, k, 1) <> 4 And Mid(st, k, 1) <> 5 And Mid(st, k, 1) <> 6 And Mid(st, k, 1) <> 7 And Mid(st, k, 1) <> 8 And Mid(st, k, 1) <> 9 Then
Mid(st, k, 1) = ""
End If

Next k
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.01.2010, 15:14
    #36423082
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление из строки нечисловых символов
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Command1_Click()

Dim k As String, i As Integer, p As String
k = "dsfs4hjk5807632k"
p = ""
For i =  1  To Len(k)
  If Mid$(k, i,  1 ) Like "[0-9]" Then p = p + Mid$(k, i,  1 )
Next
MsgBox p

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.01.2010, 16:38
    #36423375
mimozka
mimozka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление из строки нечисловых символов
Спасибо большое, Shocker.Pro, все получается, вот тока одна проблемка, как передать полученное значение в ячейку
ThisWorkbook.Worksheets("Итого").Cells(i + 1, 8) = p
так не получается, точнее он ставить значение например 5.23Е+18, а не просто 20 цифр
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.01.2010, 16:42
    #36423391
.Михаил.
.Михаил.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление из строки нечисловых символов
mimozka,

Код: plaintext
ThisWorkbook.Worksheets("Итого").Cells(i +  1 ,  8 ) = "`" & p
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.01.2010, 16:53
    #36423423
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление из строки нечисловых символов
Код: plaintext
1.
2.
3.
4.
5.
Sub tt()
p = "12345678901234567890123456"
Cells( 1 ,  8 ).NumberFormat = "@"
Cells( 1 ,  8 ) = p
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.01.2010, 17:12
    #36423491
mimozka
mimozka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление из строки нечисловых символов
Hugo121 , Ураааа!!!! Получилось!!!
Бик зур рэхмэт!!!! :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Удаление из строки нечисловых символов / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]