ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Удаление из строки нечисловых символов
6 сообщений из 6, страница 1 из 1
Удаление из строки нечисловых символов
    #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:02
| Ответить | Цитировать | Написать  
Удаление из строки нечисловых символов
    #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, 15:14
| Ответить | Цитировать | Написать  
Удаление из строки нечисловых символов
    #36423375
mimozka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mimozka
Гость
Спасибо большое, Shocker.Pro, все получается, вот тока одна проблемка, как передать полученное значение в ячейку
ThisWorkbook.Worksheets("Итого").Cells(i + 1, 8) = p
так не получается, точнее он ставить значение например 5.23Е+18, а не просто 20 цифр
...
Рейтинг: 0 / 0
21.01.2010, 16:38
| Ответить | Цитировать | Написать  
Удаление из строки нечисловых символов
    #36423391
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
mimozka,

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


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