![]() |
![]() ![]() v.5.2011.12.30 |
Будь хитрее всех, используй хитрые инструменты! |
|
Visual Basic 5.0/6.0 - Регулярные выраженияВсе примеры / Строки / Регулярные выраженияИспользование регулярных выражений для поиска номеров телефонов
Автор: Алексей Немиро | добавлено: 06.03.2010, 10:40 | просмотров: 2545 (1+) | комментариев: 0 | рейтинг:
Пример использования регулярных выражений для поиска номеров телефонов в формате: ![]() 8xxxxxxxxxx 8-xxx-xxx-xx-xx 8-xxx-xx-xx-xxx 8xxx-xx-xx-xxx xx-xx-xx xxx-xx-xx xxxxxxx xxxxxx КодOption Explicit 'Aleksey S Nemiro, 04.11.2007 'http://aleksey.nemiro.ru 'http://kbyte.ru Dim myRegEx As New RegExp Private Sub Command1_Click() myRegEx.MultiLine = True myRegEx.IgnoreCase = True myRegEx.Global = True myRegEx.Pattern = "(([\d]{1})([\-]{0,1})([\d]{3})([\-]{0,1})([\d]{2,3})([\-]{0,1})([\d]{2})([\-]{0,1})([\d]{2,3}))|(([\d]{2,3})([\-]{0,1})([\d]{2})([\-]{0,1})([\d]{2}))" List1.Clear Dim myMatches As MatchCollection Set myMatches = myRegEx.Execute(Text1) Dim i As Long For i = 0 To myMatches.Count - 1 List1.AddItem myMatches(i).Value Next i End Sub
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все примеры этого автора (всего: 286)
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 9)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|