| |
|
|
| | как программно определить знак препинания и при необходимости изменить | |
| |
| |
| |
|
|
| | что в Вашем понимании определить?
можно настроить в региональных настройках, как ручками, так и программно
поищите здесь на сайте про региональные настройки. | |
| |
| |
| |
|
|
| | Replace(me.Поле.Value, ",", "."
Заменит запятые на точки.
Аналогично можно заменять любые символы | |
| |
| |
| |
|
|
| | это не знак препинания, а - разделитель целой и дробной части
19 Ошибки при замене десятичного разделителя
http://vbrussian.com/Article.asp?ID=29#trc19
и вот ещё
http://www.sql.ru/forum/actualthread.aspx?tid=257713
да и много вообще всего | |
| |
| |
| |
|
|
| | У меня в программе в текстбоксе число указывается с десятичным разделителем как точка, и у кого в региональных установках разделитель установлен как запятая программа выдает ошибку. Поэтому желательно программно мне определить это и если необходимо программно изменить региональные настройки. Заранее спасибо. | |
| |
| |
| |
|
|
| | применяю вот такую функцию перед сохранением в базу.
и мне, получается, все равно - как настроены региональные установки у пользователя
пока нареканий не поступало.
'-- убирает лишние символы для сохранения числа в базе Oracle
Public Function Num4Ora(param)
Dim rg As New RegExp
On Error GoTo err12345
Num4Ora = Null
If nz(param, "") = "" Then Exit Function
rg.Global = True
rg.Pattern = "[^(0-9)|\-|\,|\.]": param = rg.Replace(param, "")
rg.Pattern = "\,": param = rg.Replace(param, ".")
Num4Ora = param
Exit Function
err12345:
MsgBox Error, vbExclamation, "Num4Ora #" & Err.Number
Exit Function
End Function
|
в References нужно подключить Microsoft VBScript Regular Expressions (у меня 5.5) | |
| |
| |
