Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удалить из поля ТЕЛЕФОН все кроме чисел / 6 сообщений из 6, страница 1 из 1
22.02.2019, 15:26
    #39778016
DaniilTru
DaniilTru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить из поля ТЕЛЕФОН все кроме чисел
Есть таблица которая заново создается из запроса.

В этой таблице находятся 3 поля с телефонами формата + 7(499)111-11-11,
--нужно что бы в итоге все телефоны были формата 74991111111.
--При этом в таблицу нельзя засунуть значение, так как таблица создается заново из запроса, а данные берутся из firebird.

может в запрос что прописать или макрос помогите плиззз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2019, 15:35
    #39778019
Прогер_самоучка
Прогер_самоучка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить из поля ТЕЛЕФОН все кроме чисел
DaniilTruЕсть таблица которая заново создается из запроса.

В этой таблице находятся 3 поля с телефонами формата + 7(499)111-11-11,
--нужно что бы в итоге все телефоны были формата 74991111111.
--При этом в таблицу нельзя засунуть значение, так как таблица создается заново из запроса, а данные берутся из firebird.

может в запрос что прописать или макрос помогите плиззз.при вставке
Код: vbnet
1.
 replace
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2019, 15:44
    #39778027
DaniilTru
DaniilTru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить из поля ТЕЛЕФОН все кроме чисел
Прогер_самоучка,

а поточнее можно? Я новичок в этом деле(( спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2019, 15:45
    #39778028
Прогер_самоучка
Прогер_самоучка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить из поля ТЕЛЕФОН все кроме чисел
DaniilTruПрогер_самоучка,

а поточнее можно? Я новичок в этом деле(( спасибоREPLACE F1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2019, 16:05
    #39778034
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить из поля ТЕЛЕФОН все кроме чисел
как вариант функция:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Function zamena(myStr)
Dim i, a
For i = 1 To Len(myStr)
a = Mid(myStr, i, 1)
If IsNumeric(a) Then zamena = zamena & a
Next
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2019, 07:34
    #39779099
studieren
studieren
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить из поля ТЕЛЕФОН все кроме чисел
DaniilTru,

Можете 1 раз создать вот такую VBA функцию:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function RegularExp(strPattern As String, strText As String) As String
    Static objRegExp As Object
    
    If objRegExp Is Nothing Then
        Set objRegExp = CreateObject("VBScript.RegExp")
        objRegExp.Global = True
        objRegExp.IgnoreCase = True
    End If
    objRegExp.Pattern = strPattern
    RegularExp = objRegExp.Replace(strText, "")
End Function


Затем можете использовать её вот таким образом:
Код: vbnet
1.
2.
?RegularExp("\D","+ 7(499)111-11-11") 
74991111111


А если нужно наоборот все не цифровые символы, то вот так:
Код: vbnet
1.
2.
?RegularExp("\d","+ 7(499)111-11-11") 
+ ()--
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удалить из поля ТЕЛЕФОН все кроме чисел / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 122ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1610827]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 3ms
others: 10ms
total:  122ms
x
x
Закрыть


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