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

[NewUser]

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

[kreator]

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

[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) 

[NewUser]

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

Уже её нет и в помине.
Спасибо!

[PavelNK]

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

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

[NewUser]

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

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

[PavelNK]

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

[NewUser]

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

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