Форматирование и вставка в текстбокс

Привет!

нужно перед тем, как вставить в текстовое поле из буфера текст, его отформатировать. Как это можно сделать?

Например в буфере весит номер 495-123-45-67

а на поле стоит маска (000) 000-0000 и не всегда текст вставляет в поле или вставляется не полностью, а если кидать просто набор цифр, например 4951234567 то он сам распределяет правильно в поле по соответствию маске.

То есть Вы хотите выкинуть минусы? Ну так выкиньте.

А как потом отформатированный текст уложить в текстбокс?

Через буфер?

например все проблемы и тире можно убрать через Replace(Abc, "-", "") а дальше?

fury21

А как потом отформатированный текст уложить в текстбокс? Через буфер? например все проблемы и тире можно убрать через Replace(Abc, "-", "") а дальше?

можно скопировать одно поле все содержимое буфера, затем при обработке свойста "после обновления" убрать из содержимого этого поля все ненужные символы, оставить только цифры, а затем поместить этот результат в другое поле с маской.

fury21

А как потом отформатированный текст уложить в текстбокс? Через буфер? например все проблемы и тире можно убрать через Replace(Abc, "-", "") а дальше?

Мне лень лезть в хелп, но у этой маски есть параметр (где-то в конце через ;), который позволяет не считать символы маски частью значения поля. И тогда можно просто заносить значение в поле без символов маски, а форматирование произойдет само.

Реализовал таким вот образом:

Private Sub контактный_AfterUpdate()
If контактный.Value <> "" Then
a = Replace(контактный.Value, "-", "")
a = Replace(a, " ", "")
a = Replace(a, "(", "")
a = Replace(a, ")", "")
If Left(a, 1) = "8" Then a = Mid(a, 2)

контактный.Value = ""
контактный.InputMask = "\(999\) 999\-9999;0;;;"
контактный.Value = a
If Len(a) <> "10" Then MsgBox "Вы не правильно ввели номер телефона", vbCritical, "Ошибка": контактный.Value = "": контактный.SetFocus: контактный.InputMask = "###############": End
Else
контактный.InputMask = "###############"
End If
End Sub





но почему то маска не срабатывает.... В таблицу попадает не (495) 123-4567 а вот так: 4951234567 ........

автор

контактный.InputMask = "\(999\) 999\-9999;0;;;"

Далеко не всегда то, что вы видите в св-вах объекта так же выглядит, если его прочитать или присвоить в VBA.
Здесь, как минимум, "," вместо ";". Выплюньте в MsgBox значение правильно настроенного св-ва InputMask (а особенно - Format для числового поля в виде # ##0,00 и т.п.), и вы будете приятно удивлены.

Замена на "," не помогла ((((

Какие еще есть предположения?

Проблема очень актуальна!!! Почему не срабатывает маска???

Вопрос сам решил окончательно заменой вот на эту строку
контактный.Value = Format(a, "\(###\) ###\-####;0;;;")