Страница 1 из 1

Избавление от спецсимволов в названии файла ОС

Добавлено: 20 Апрель 2016, 14:48
NewUser
А не завалялся ли у кого код очистки строки от спецсимволов, в результате выполнения которого в строке остались бы буквы в 2х регистрах на 2х языках, цифры, и символы: точка, тире, подчеркивание, пробел.
Если данная тема уже обсуждалась на этом форуме, и у кого, в отличии от меня, получиться ее найти, сошлитесь на неё в данной теме, буду крайне признателен. Уже все сроки горят - не успеваю!!! :shock:

Избавление от спецсимволов в названии файла ОС

Добавлено: 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 писал(а): А в чём проблема?
Уже её нет и в помине. :D
Спасибо!

Избавление от спецсимволов в названии файла ОС

Добавлено: 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, АВС).