WRITELINETOFILE — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 42: Строка 42:
 
   endif
 
   endif
 
   [[TextReset]]( _file )
 
   [[TextReset]]( _file )
   while !TextEof( _file )
+
   while ![[TextEof]]( _file )
 
     [[Aadd]]( aa, ReadLn( _file ) )
 
     [[Aadd]]( aa, ReadLn( _file ) )
 
   end
 
   end

Версия 12:23, 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 )

Смотрите также

Функции Delphi

Полезные функции