Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 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):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 490ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1610827]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 152ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 230ms
total:  490ms
x
x
Закрыть


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