powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удалить из поля ТЕЛЕФОН все кроме чисел
6 сообщений из 6, страница 1 из 1
Удалить из поля ТЕЛЕФОН все кроме чисел
    #39778016
DaniilTru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть таблица которая заново создается из запроса.

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

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

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

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

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

а поточнее можно? Я новичок в этом деле(( спасибоREPLACE F1
...
Рейтинг: 0 / 0
Удалить из поля ТЕЛЕФОН все кроме чисел
    #39778034
Фотография 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
Удалить из поля ТЕЛЕФОН все кроме чисел
    #39779099
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
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удалить из поля ТЕЛЕФОН все кроме чисел
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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