TAKE FROM FTP4 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[TAKE_FROM_FTP4]] - это программа из справочника [[R266]] | [[TAKE_FROM_FTP4]] - это программа из справочника [[R266]] | ||
| + | Конец | ||
| + | [[TAKE_FROM_FTP4]]() | ||
| + | = Текст = | ||
| + | local temp_path, aa, name | ||
| + | |||
| + | name := 'Fill_and_dance.txt' | ||
| + | |||
| + | temp_path := Nice_Path( ExpandUNCFileName( TempPath ) ) | ||
| + | aa := Rat( '\', temp_path ) | ||
| + | temp_path := Left( temp_path, aa - 1 ) | ||
| + | aa := Rat( '\', temp_path ) | ||
| + | temp_path := Left( temp_path, aa - 1 ) | ||
| + | temp_path := Nice_Path( temp_path ) | ||
| + | temp_path := temp_path + '_' | ||
| + | if !DirectoryExists( temp_path ) | ||
| + | CreateDir( temp_path, true ) | ||
| + | endif | ||
| + | |||
| + | temp_path := Nice_Path( temp_path ) | ||
| + | WRITELINETOTXTFILE( temp_path, name, 'окончание приема' ) | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 17:05, 26 февраля 2018
TAKE_FROM_FTP4 - это программа из справочника R266
Конец
TAKE_FROM_FTP4()
Текст
local temp_path, aa, name name := 'Fill_and_dance.txt' temp_path := Nice_Path( ExpandUNCFileName( TempPath ) ) aa := Rat( '\', temp_path ) temp_path := Left( temp_path, aa - 1 ) aa := Rat( '\', temp_path ) temp_path := Left( temp_path, aa - 1 ) temp_path := Nice_Path( temp_path ) temp_path := temp_path + '_' if !DirectoryExists( temp_path ) CreateDir( temp_path, true ) endif temp_path := Nice_Path( temp_path ) WRITELINETOTXTFILE( temp_path, name, 'окончание приема' )
