Страница 1 из 1
Избавление от спецсимволов в названии файла ОС
Добавлено: 20 Апрель 2016, 14:48
NewUser
А не завалялся ли у кого код очистки строки от спецсимволов, в результате выполнения которого в строке остались бы буквы в 2х регистрах на 2х языках, цифры, и символы: точка, тире, подчеркивание, пробел.
Если данная тема уже обсуждалась на этом форуме, и у кого, в отличии от меня, получиться ее найти, сошлитесь на неё в данной теме, буду крайне признателен. Уже все сроки горят - не успеваю!!!
Избавление от спецсимволов в названии файла ОС
Добавлено: 20 Апрель 2016, 15:07
kreator
Никогда не делал, сразу скажу. Попробуй пустить цикл по строке и проверяй каждый символ функциями ISALPHA и NUMERIC.
Избавление от спецсимволов в названии файла ОС
Добавлено: 20 Апрель 2016, 15:10
Yufil
А в чём проблема?
Код: Выделить всё
ConvertFileName Procedure(OldName),String
! Правильные буквы
AllowSymbols String(' .-_ABCD..ZАБВ...я0123456789')
Ret Cstring(260)
Code
Loop I#=1 to Len(OldName)
IF Instring(Upper(OldName[I#]), AllowSymbols, 1,1)
Ret = Ret & OldName[i#]
Else
! Неправильный символ, что делать?
Ret = Ret & '?'
End
End
Return(Ret)
Избавление от спецсимволов в названии файла ОС
Добавлено: 20 Апрель 2016, 16:33
NewUser
Yufil писал(а): А в чём проблема?
Уже её нет и в помине.
Спасибо!
Избавление от спецсимволов в названии файла ОС
Добавлено: 20 Апрель 2016, 19:11
PavelNK
А не проще вместо INSTRING использовать MATCH
IF MATCH(Upper(OldName[I#]),'[ \.-_A-ZА-Я0-9]',Match:Regular)
Избавление от спецсимволов в названии файла ОС
Добавлено: 21 Апрель 2016, 8:04
NewUser
PavelNK писал(а): не проще вместо INSTRING использовать MATCH
IF MATCH(Upper(OldName[I#]),'[ \.-_A-ZА-Я0-9]',Match:Regular)
Конечно, проще! Никогда не сталкивался с данной функцией. Кстати, как добавить в список пробел? Пока вышел из положения, приписав ... or Val(OldName[I#]) = 32, но хотелось бы отслеживать его с помощью самой функции.
Избавление от спецсимволов в названии файла ОС
Добавлено: 21 Апрель 2016, 12:47
PavelNK
А он добавлен, самый первый
Избавление от спецсимволов в названии файла ОС
Добавлено: 21 Апрель 2016, 21:50
NewUser
PavelNK писал(а): А он добавлен, самый первый
Я его даже во внутрь конструкции переставлял - не работает (С63, АВС).