|
18.05.2011 11:12:43
UDF (я без regexp за такие задачи не берусь :))
Если возникнет вопрос, что такое UDF: |
|
|
|
|
|
18.05.2011 11:22:50
и как же это применить?
|
|
|
|
|
|
18.05.2011 11:30:32
Если телефоны всегда в конце, всегда 10-значные и "Т.:" всегда латинское, то можно так
UDF в данном случае лучше. |
|
|
|
|
|
18.05.2011 11:36:45
С формулами (правда пробелы и тире пока не убирал).
|
|
|
|
|
|
18.05.2011 11:43:52
{quote}{login=}{date=18.05.2011 11:36}{thema=}{post}С формулами (правда пробелы и тире пока не убирал).{/post}{/quote}
все знаки кроме цифр лишние, и если два моб тел. то нужно бы два! |
|
|
|
|
|
18.05.2011 11:52:41
{quote}{login=R Dmitry}{date=18.05.2011 11:42}{thema=}{post}можно и без регулярных примерно так
Function num_telefon(tel$) As String Dim x$, tmp$ For i = 1 To Len(tel) tmp = Mid(tel, i, 1) If IsNumeric(tmp) Then x = x & tmp If Len(x) = 10 Then Exit For Else If Asc(tmp) <> 32 And Asc(tmp) <> 45 Then x = "" End If Next num_telefon = x End Function{/post}{/quote} если б знать еще что с этим делать....! ни бум-бум же! а так спасибо! |
|
|
|
|
|
18.05.2011 11:57:22
А что на Донбассе все такие капризные? Вот пример, что делать с этим (но функция извлекает только один номер):
Function num_telefon(tel$) As String Dim x$, tmp$ For i = 1 To Len(tel) tmp = Mid(tel, i, 1) If IsNumeric(tmp) Then x = x & tmp If Len(x) = 10 Then Exit For Else If Asc(tmp) <> 32 And Asc(tmp) <> 45 Then x = "" End If Next num_telefon = x End Function |
|
|
|
|
|
18.05.2011 12:00:16
{quote}{login=}{date=18.05.2011 11:57}{thema=}{post}А что на Донбассе все такие капризные? Вот пример, что делать с этим (но функция извлекает только один номер):
Function num_telefon(tel$) As String Dim x$, tmp$ For i = 1 To Len(tel) tmp = Mid(tel, i, 1) If IsNumeric(tmp) Then x = x & tmp If Len(x) = 10 Then Exit For Else If Asc(tmp) <> 32 And Asc(tmp) <> 45 Then x = "" End If Next num_telefon = x End Function{/post}{/quote} за капризы извините, но знал бы как это работает не хныкал бы!!!!! |
|
|
|
|
|
18.05.2011 12:03:06
спасибо огромное а как бы все номера получить и текст их перевести?
|
|
|
|
|
|
18.05.2011 12:03:41
Ликбез тут:
|
|
|
|
|
|
18.05.2011 12:18:42
{quote}{login=}{date=18.05.2011 12:03}{thema=}{post}Ликбез тут: {/post}{/quote}
спаасибо! |
|
|
|
|
|
18.05.2011 12:24:06
Только формулой.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
|
|
|
|
|
|
18.05.2011 12:29:12
Исправленному верить.. ошибочку нашёл.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
|
|
|
|
|
|
18.05.2011 12:53:03
Все телефоны (не менее 5 цифр), с сохранением плюса:
|
||||
|
|
|
|||
