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

NewUser

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

kreator

Никогда не делал, сразу скажу. Попробуй пустить цикл по строке и проверяй каждый символ функциями ISALPHA и NUMERIC.

Yufil · Сообщение **Yufil** » 20 Апрель 2016, 15:10

А в чём проблема?

Код: Выделить всё

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)

NewUser

Yufil писал(а): А в чём проблема?

Уже её нет и в помине.

Спасибо!

PavelNK

А не проще вместо INSTRING использовать MATCH

IF MATCH(Upper(OldName[I#]),'[ \.-_A-ZА-Я0-9]',Match:Regular)

NewUser

PavelNK писал(а): не проще вместо INSTRING использовать MATCH
IF MATCH(Upper(OldName[I#]),'[ \.-_A-ZА-Я0-9]',Match:Regular)

Конечно, проще! Никогда не сталкивался с данной функцией. Кстати, как добавить в список пробел? Пока вышел из положения, приписав ... or Val(OldName[I#]) = 32, но хотелось бы отслеживать его с помощью самой функции.

PavelNK

А он добавлен, самый первый

NewUser

PavelNK писал(а): А он добавлен, самый первый

Я его даже во внутрь конструкции переставлял - не работает (С63, АВС).