| |
|
|
| | Последний раз, надеюсь, беспокою сегодня сообщество.
test = "[\-\(\)+ !?.']"
If Str1 Like test Then
удаление
Else
обработка
End If
Мне нужно обработать строку только в том случае, если в ней отсутствуют небуквенные символы. При наличии знака вопроса, дефиса, скобок, пробела, точки и т.д., строка удаляется
Как составить строку test, чтобы при наличии в строке Str1 хотя бы одного символа из Test выскакивала истина? | |
| |
| |
| |
|
|
| | При наличии знака вопроса, дефиса, скобок, пробела, точки и т.д., строка удаляется
А проще удалить "плохие" записи скопом до начала обработки. | |
| |
| |
| |
|
|
| | В соседней ветке был пример разбора слов на символы
Вот один из вариантов, приведенных там
test = "[\-\(\)+ !?.']"
Dim i As Integer
For i =1 to Len(test)
s = Mid(test, i, 1)
CurrentDB.Execute "Delete FROM Таблица WHERE Str1 Like*'" & s & "'* '"
Next i
Как то так. Возможно с кавычками и апострофами я напутал. Уже не помню точно синтаксис конструкции. Но суть должна быть понятна | |
| |
| |
| |
|
|
| | в этом случае ИМХО поможет отбор LIKE по маске (числа 0-9 спецсимволы и т.п.) или NOT LIKE (только буквы, например) | |
| |
| |
