WRITELINETOFILE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 31: | Строка 31: | ||
if !File( [[ExpandUncFileName]]( path + name ) ) | if !File( [[ExpandUncFileName]]( path + name ) ) | ||
| − | WriteTxtFile( {}, name, path, true ) | + | [[WriteTxtFile]]( {}, name, path, true ) |
endif | endif | ||
| Строка 37: | Строка 37: | ||
try | try | ||
| − | _file := AssignFile( path + name ) | + | _file := [[AssignFile]]( path + name ) |
| − | if Empty( _file ) | + | if [[Empty]]( _file ) |
return | return | ||
endif | endif | ||
| − | TextReset( _file ) | + | [[TextReset]]( _file ) |
while !TextEof( _file ) | while !TextEof( _file ) | ||
| − | Aadd( aa, ReadLn( _file ) ) | + | [[Aadd]]( aa, ReadLn( _file ) ) |
end | end | ||
finally | finally | ||
| − | if !Empty( _file ) | + | if ![[Empty]]( _file ) |
| − | CloseFile( _file ) | + | [[CloseFile]]( _file ) |
endif | endif | ||
end | end | ||
Версия 12:22, 12 сентября 2016
WrieLineToFile - это программа из справочника R266
WRITELINETOFILE( str_line, name, path [, no_msg := true] )
Запись строки в файл
str_line - строка
name - имя файла
path - путь к файлу
no_msg - не надо выводить сообщения ( по умолчанию, no_msg = true, т.е. сообщения не нужны )
Текст программы
parameters str_line, name, path, no_msg := true local aa, _file if Empty( path ) path := 'c:\script\' path := TempPath endif path := Nice_path( path ) if Empty( name ) name := 'test.ps1' endif if !File( ExpandUncFileName( path + name ) ) WriteTxtFile( {}, name, path, true ) endif aa := {} try _file := AssignFile( path + name ) if Empty( _file ) return endif TextReset( _file ) while !TextEof( _file ) Aadd( aa, ReadLn( _file ) ) end finally if !Empty( _file ) CloseFile( _file ) endif end Aadd( aa, str_line ) WriteTxtFile( aa, name, path, no_msg )
