| |
|
|
| | Необходимо создать таблицу из процедуры. В качестве имен для полей этой таблицы используются строковые значения, содержащие недопустимые символы, как то: точка, запятая, скобки и т.д.
- Нужна функция для преобразования значения строки к допустимому значению, пригодному для использования в качестве имени поля.
- Подскажите ссылочку плиз!!! | |
| |
| |
|
|
| |
|
|
| | http://hiprog.com/forum/read.php?id_forum=1&id_theme=5477&page=1
вообще Help по replace и instr | |
| |
| |
| |
|
|
| | Или так:
Public Function funValidate(str As String) As String
Dim bytArr() As Byte
Dim i As Integer
bytArr = StrConv(str, vbFromUnicode)
For i = 0 To UBound(bytArr)
Select Case bytArr(i)
Case 65 To 90, 97 To 122
funValidate = funValidate & Mid$(str, i + 1, 1)
End Select
Next i
End Function
'?funValidate(") 12wer-=\\=,./asASDапрке34538нлячсм.аззп .эх? @#$%^&*()")
'werasASD
|
| |
| |
| |
| |
|
|
| | Спасибо за помощь. Все идеи очень даже пригодились. Особенно - F1.  | |
| |
| |
|
|
|
|
