Разбор полного пути файла на составляющие

Иногда требуется разобрать на составляющие (каталог, имя, расширение) полный путь к файлу. Вот функция для этого:

Разбирает полный путь к файлу на DIRECTORY (включая имя диска), FILENAME и EXT и добавляет эти поля в ассоциативный массив MAP. Массив должен существовать (либо передайте пустую строку в этот параметр, тогда он будет создан).


FUNC Parse_FilePath(pfp_map,pfp_string)
          result = Find_Last(pfp_string,"\")
          pfp_map = set_value(pfp_map,"DIRECTORY",substr(pfp_string,0,result))
          result = result + 1
          rp_fileext = Str_Right(Str_Right(pfp_string,result)
          result = Find_Last(rp_fileext,".")
          if result == -1
              result = len(rp_fileext)
          end if
          result = set_value(set_value(pfp_map,"FILENAME",substr(rp_fileext,0,result)), "FILEEXT",substr(rp_fileext,result+1,len(rp_fileext)-result-1))
END FUNC

Добавить комментарий


Защитный код
Обновить