ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / обработка текстовой строки
24 сообщений из 24, страница 1 из 1
обработка текстовой строки
    #36074980
romazeka1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
romazeka1
Гость
Как из текстовой строки удалить все сиволы и оставить только цифры? на VBA
...
Рейтинг: 0 / 0
06.07.2009, 13:13
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075016
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
romazeka1Как из текстовой строки удалить все сиволы и оставить только цифры? на VBA
В общем случае? или какой-то частный случай, например все цифры рядом и не разбросаны по текстовой строке? или цифры всегда в конце?
...
Рейтинг: 0 / 0
06.07.2009, 13:22
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075055
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Function ClearName(ByVal strText As String, ByVal strPattern As String) As String
    Dim RegExp As Object
    Set RegExp = CreateObject("vbscript.regexp")
    With RegExp
        .Pattern = strPattern
        .Global = True
        ClearName = .Replace(Trim(strText), "")
    End With
End Function

Sub Test()
    MsgBox ClearName("gyes573jd83j09 ~!@#)", "[^0123456789]")
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
06.07.2009, 13:31
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075056
Фотография qwrqwr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwrqwr
Участник
romazeka1Как из текстовой строки удалить все сиволы и оставить только цифры? на VBA
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Function NumbersOnly(srcStr As String) As String
Dim objRegEx As Object
Set objRegEx = CreateObject("VBScript.RegExp")
    With objRegEx
        .Global = True
        .Pattern = "\D"
        NumbersOnly = .Replace(srcStr, vbNullString)
    End With
Set objRegEx = Nothing
End Function
...
Рейтинг: 0 / 0
06.07.2009, 13:32
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075061
Фотография qwrqwr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwrqwr
Участник
аааа! апаздал!
зато у меня .Pattern красивше
...
Рейтинг: 0 / 0
06.07.2009, 13:34
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075132
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Ну а если без регулярных выражений?
И вопрос если в числе дробная часть, разделитель дробной части убьет?
...
Рейтинг: 0 / 0
06.07.2009, 13:48
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075174
Фотография qwrqwr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwrqwr
Участник
DeggasadИ вопрос если в числе дробная часть, разделитель дробной части убьет?
топикстартерКак из текстовой строки удалить все сиволы и оставить только цифры ?
DeggasadНу а если без регулярных выражений?перебор посимвольно;
перевод в массив байт StrConv(srcStr, vbFromUnicode) и перебор побайтово;
еще чего-нибудь :)
...
Рейтинг: 0 / 0
06.07.2009, 13:58
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075180
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
DeggasadНу а если без регулярных выражений?
А зачем без регулярных выражений?

DeggasadИ вопрос если в числе дробная часть, разделитель дробной части убьет?
Дык ты добавь в маску разделитель :-)

"[^0123456789,]"
...
Рейтинг: 0 / 0
06.07.2009, 14:01
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075186
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
DeggasadНу а если без регулярных выражений?перебор посимвольно;
перевод в массив байт StrConv(srcStr, vbFromUnicode) и перебор побайтово;
еще чего-нибудь :)[/quot]
Да нет ничего, просто, помню было где-то на форуме похожая тема, но не нашел. Там было какое-то интересное решение без оных...:)
...
Рейтинг: 0 / 0
06.07.2009, 14:02
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075193
romazeka1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
romazeka1
Гость
Офигеть! Неуспел вопрос задать уже ответов..пара ))
пасиба! такой код мне не знаком буду пробовать.

А если все тоже самое но оставить пробелы??
...
Рейтинг: 0 / 0
06.07.2009, 14:04
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075199
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
KL (XL)"[^0123456789,]"

Собственно, что это я: "[^0-9,]"

...и да, \D - красивше :-)
...
Рейтинг: 0 / 0
06.07.2009, 14:06
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075201
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL)DeggasadНу а если без регулярных выражений?
А зачем без регулярных выражений?
незнаю :)

KL (XL)DeggasadИ вопрос если в числе дробная часть, разделитель дробной части убьет?
Дык ты добавь в маску разделитель :-)
"[^0123456789,]"
Так тогда все разделители останутся
...
Рейтинг: 0 / 0
06.07.2009, 14:06
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075203
romazeka1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
romazeka1
Гость
А , понял, добавить в маску пробел!
...
Рейтинг: 0 / 0
06.07.2009, 14:07
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075211
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Код: plaintext
1.
2.
Sub Test()
    MsgBox ClearName("g yes5 7,3j d83j0 9 ~!@#)", "[^0-9 ]")
End Sub
...
Рейтинг: 0 / 0
06.07.2009, 14:09
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075217
romazeka1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
romazeka1
Гость
а зачем знак степени в маске?
...
Рейтинг: 0 / 0
06.07.2009, 14:12
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075218
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
DeggasadТак тогда все разделители останутся
Какие все? Разделитель - он или разделитель или нет :-) Может пример приведешь?
...
Рейтинг: 0 / 0
06.07.2009, 14:12
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075220
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
romazeka1а зачем знак степени в маске?
Это означает - найти все кроме...
...
Рейтинг: 0 / 0
06.07.2009, 14:13
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075227
romazeka1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
romazeka1
Гость
KL (XL)DeggasadТак тогда все разделители останутся
Какие все? Разделитель - он или разделитель или нет :-) Может пример приведешь?

Наверно Deggasad имеет в виду что останутся всякие запятые которые были в тексте
...
Рейтинг: 0 / 0
06.07.2009, 14:17
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075231
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
romazeka1KL (XL)DeggasadТак тогда все разделители останутся
Какие все? Разделитель - он или разделитель или нет :-) Может пример приведешь?

Наверно Deggasad имеет в виду что останутся всякие запятые которые были в тексте
да именно
...
Рейтинг: 0 / 0
06.07.2009, 14:18
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075297
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Тогда каков критерий того, разделитель запятая или нет? То, что между цифрами? А если между цифрами не одна запятая? А если запятая - разделитель разрядов? А если число записано в научной нотации (9+E307) или отрицательное (-2000), а мы уничтожили и "+" и "-" и "E"?
...
Рейтинг: 0 / 0
06.07.2009, 14:49
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #36075469
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL)Тогда каков критерий того, разделитель запятая или нет? То, что между цифрами? А если между цифрами не одна запятая? А если запятая - разделитель разрядов? А если число записано в научной нотации (9+E307) или отрицательное (-2000), а мы уничтожили и "+" и "-" и "E"?
Ну да. Так и есть.
...
Рейтинг: 0 / 0
06.07.2009, 15:48
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
обработка текстовой строки
    #38230359
romazeka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
romazeka
Гость
Подскажите я такой функцией оставляю из строки только буквы. Как эти буквы упорядочить (по алфавиту) ?
...
Рейтинг: 0 / 0
18.04.2013, 10:33
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #38230931
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Вот функция для сортировки букв в строке методом пузырька. Написано дико неоптимально, но для учебного задания сойдет :)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Function SortCharsBubble(ByVal s As String, Optional Compare As VBA.VbCompareMethod = VBA.VbCompareMethod.vbTextCompare) As String
Dim i&, j&, d$
For i = 1 To Len(s) ' - 1
    For j = 1 To Len(s) - i
        If StrComp(Mid$(s, j, 1), Mid$(s, j + 1, 1), Compare) > 0 Then
            d = Mid$(s, j, 1)
            Mid$(s, j, 1) = Mid$(s, j + 1)
            Mid$(s, j + 1) = d
        End If
    Next
Next
SortCharsBubble = s
End Function


Тест в окне Immediate

Код: plaintext
1.
2.
3.
?SortCharsBubble("Как эти буквы упорядочить")
   абвдииКккоопрттуучыьэя
?SortCharsBubble("Как эти буквы упорядочить", vbBinaryCompare)
   Кабвдииккоопрттуучыьэя

В первом случае буквы "к" и "К" не различаются, во втором - различаются.
...
Рейтинг: 0 / 0
18.04.2013, 14:37
| Ответить | Цитировать | Написать  
обработка текстовой строки
    #38230965
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
КазанскийНаписано дико неоптимальнонаписано-то как раз оптимально, сам метод дикий ))))
...
Рейтинг: 0 / 0
18.04.2013, 14:56
| Ответить | Цитировать | Написать  
24 сообщений из 24, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / обработка текстовой строки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36075231&tid=2174852]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 12ms
total:  151ms
созд. / загр.: 151ms
x
x
Закрыть


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