Отчет по практике, работа с "1С:Бухгалтерия 8.2"

_{filegetattr(const filename: string): integer;}

_{filesetattr(const filename: string; attr: integer): integer; - функции для работы с атрибутами файлов. Вот список возможных атрибутов:}

_{fareadonly $00000001 read-only files}

_{fahidden $00000002 hidden files}

_{fasysfile $00000004 system files}

_{favolumeid $00000008 volume id files}

_{fadirectory $00000010 directory files}

_{faarchive $00000020 archive files}

_{faanyfile $0000003f any file}

_{(Естественно  не все атрибуты  применимы во всех  случаях)} 

_{removedir(const dir: string): boolean; - удаляет папку(пустую)}

_{deletefile(const filename: string): boolean; - удаляет файл}

_{renamefile(const oldname, newname: string) - переименовывает файл}

_{Информация  о файле} 

_{Привожу пример функции, которая  собирает довольно большое  количество информации о выбранном файле:}

_type

_{tfileinfo = record}

_{exists: boolean; //true если файл найден}

_{name: string; //имя  файла с расширением}

_{shortname: string; //dos 8.3 имя файла}

_{namenoext: string; //имя  файла без расширения}

_{extension: string; //расширение  файла}

_{associatedfile: string; //программа  с которой ассоциирован  файл}

_{path: string; // путь к файлу}

_{shortpath: string; // dos 8.3 путь файла}

_{drive: string; // дисковод на котором находится файл}

_{createdate: tdatetime; //время  когда файл создан}

_{size: int64; // размер файла (работает  для файлов и  больше 2gb)}

_{attributes: record ///отсутствие системных атрибутов}

_{readonly: boolean;}

_{hidden: boolean;}

_{system: boolean;}

_{archive: boolean;}

_end;

_{modifydate: tdatetime; // время последнего изменения файла}

_{lastaccessdate: tdatetime; // дата последнего  открытия файла}

_end;

 

_{function readfileinfo(filename: string): tfileinfo;}

_var

_{ts: tsearchrec;}

 

_{function filetime2datetime(ft: _filetime): tdatetime;}

_var

_{filetime: _systemtime;}

_begin

_{filetimetolocalfiletime(ft, ft);}

_{filetimetosystemtime(ft, filetime);}

_{result := encodedate(filetime.wyear, filetime.wmonth, filetime.wday) +}

_{encodetime(filetime.whour, filetime.wminute, filetime.wsecond,}

_{filetime.wmilliseconds);}

_end;

 

_{function associatedfile(fileext: string): string;}

_var

_{key: string;}

_begin

_{with tregistry.create do}

_try

_{rootkey := hkey_classes_root;}

_{openkey(fileext, false);}

_{key := readstring('');}

_closekey;

_{openkey(key + 'shellopencommand', false);}

_{result := readstring('');}

_closekey;

_finally

_free;

_end

_end;

 

_begin

_{result.name := extractfilename(filename);}

_{result.extension := extractfileext(filename);}

_{result.namenoext := copy(result.name, 1, length(result.name) -}

_{length(result.extension));}

_{result.path := extractfilepath(filename);}

_{result.drive := extractfiledrive(filename);}

_{result.shortpath := extractshortpathname(extractfilepath(filename));}

_{if lowercase(result.extension) <> '.exe' then}

_{result.associatedfile := associatedfile(result.extension);}

_{if findfirst(filename, faanyfile, ts) = 0 then}

_begin

_{result.exists := true;}

_{result.createdate := filedatetodatetime(ts.time);}

_{result.size := ts.finddata.nfilesizehigh * 4294967296 +}

_{ts.finddata.nfilesizelow;}

_{result.attributes.readonly := (fareadonly and ts.attr) > 0;}

_{result.attributes.hidden := (fahidden and ts.attr) > 0;}

_{result.attributes.system := (fasysfile and ts.attr) > 0;}

_{result.attributes.archive := (faarchive and ts.attr) > 0;}

_{result.modifydate := filetime2datetime(ts.finddata.ftlastwritetime);}

_{result.lastaccessdate := filetime2datetime(ts.finddata.ftlastaccesstime);}

_{result.shortname := ts.finddata.calternatefilename;}

_{findclose(ts);}

_end

_else

_{result.exists := false;}

_end;

_{Скорее  всего, эта функция  как есть вряд ли понадобится, так  как наверняка  большее количество определяемых параметров избыточно, тем ни менее может кому пригодится как пример выяснения информации о файле.}

_{Поиск файлов}

_{Теперь  поговорим о поиске файлов. Для этой цели могут использоваться процедуры findfirst, findnext, findclose, при участии переменной типа tsearchrec которая  хранит информацию о  текущем статусе  поиска и характеристики последнего найденного файла.}

_{Пример  иллюстрирующий поиск  всех файлов и каталогов  в определенном каталоге:}

_var

_{searchrec: tsearchrec;}

_...

 

_{if findfirst('c:windows*.*', faanyfile, searchrec) = 0 then}

_repeat

_{{Вот  здесь мы можем  делать с найденным  файлом что угодно}}

_{searchrec.name - имя файла}

_{expandfilename(searchrec.name) - имя файла с  полным путем}}

_until

_{findnext(searchrec) <> 0;}

_{findclose(searchrec);}

_{Примечания  по приведенному коду:}

_{Первыми в список могут  попадать файлы с  именами "." и ".." - это ДОСовские  имена для переходов  на "родительский уровень", иногда нужна обработка для их игнорирования.}

_{findfirst в качестве первого  параметра принимает  шаблон для поиска, так как он был  принят для ДОС.  Если шаблон не  включает путь  то файлы будут  искаться в текущем  каталоге.}

_{findfirst требует задания атрибута для файла - здесь мы искали все файлы, если надо какие-то определенные (например только скрытые, или только каталоги) то надо это указать, список всех атрибутов я уже приводил выше.}

_{searchrec переменная связывает  воедино findfirst и  findnext, но требует ресурсов для своей работы, поэтому желательно ее освободить после поиска процедурой findclose(searchrec) - на самом деле утечки памяти небольшие, но если программа работает в цикле и долгое время пожирание ресурсов будет значительным.}

_{findfirst/findnext - работают, не открывая файлы, поэтому они корректно находят даже swap файлы windows.}

 

 

 

 

 

 

_{Процедуры создания текстового файла}

 

Текстовые файлы связываются  с файловыми переменными, принадлежащими стандартному типу TEXT. Текстовые файлы  предназначены для хранения текстовой информации. Именно в такого типа файлах хранятся, например, исходные тексты программ. Компоненты (записи) текстового файла могут иметь переменную длину, что существенно влияет на характер работы с ними.

  Текстовый файл трактуется в Турбо Паскале как совокупность строк переменной длины. Доступ к каждой строке возможен лишь последовательно, начиная с первой. При создании текстового файла в конце каждой записи (строки) ставится специальный признак EOLN (End OfLiNe - конец строки), а в конце всего файла - признак EOF (End Of File - конец файла). Эти признаки можно протестировать одноименными логическими функциями (см. ниже). При формировании текстовых файлов используются следующие системные соглашения:

  EOLN- последовательность кодов ASCII #13 (CR) и #10 (LF);

  EOF - код #26 стандарта ASCII.

  Для доступа к записям применяются процедуры READ, READLN, WRITE, WRITELN. Они отличаются возможностью обращения к ним с переменным числом фактических параметров, в качестве которых могут использоваться символы, строки и числа. Первым параметром в любой из перечисленных процедур может стоять файловая переменная. В этом случае осуществляется обращение к дисковому файлу или логическому устройству, связанному с переменной процедурой ASSIGN. Если файловая переменная не указана, происходит обращение к стандартным файлам INPUT к OUTPUT.

 

Процедура READ.

  Обеспечивает ввод символов, строк и чисел. Формат обращения:

READ (<ф.п.>,<сп.ввода>) или READ (<сп.ввода>)

  Здесь <сп.ввода> - список ввода: последовательность из одной или более переменных типа CHAR, STRING, а также любого целого или вещественного типа.

  При вводе переменных типа CHAR выполняется чтение одного символа из файла и присваивание считанного значения переменной. Если перед выполнением чтения указатель файла достиг конца очередной строки, то результатом чтения будет символ CR (ASCII код #13), а если достигнут конец файла, то - символ EOF (код #26). При вводе с клавиатуры символ CR вводится при нажатии на клавишу Enter, а символ EOF - при одновременном нажатии клавиш CTRL и Z.

  При вводе переменных типа STRING количество считанных процедурой и помещенных в строку символов равно максимальной длине строки, если только раньше не встретились символы CR или EOF. В этом случае сами символы CR и EOF в строку не помещаются. Если количество символов во входном потоке данных больше максимальной длины строки, «лишние» символы до конца строки отбрасываются,а новое обращение к READ возвращает пустую строку. Таким образом, процедура READ не в состоянии прочесть последовательность строк: первая строка будет прочитана нормально, а все последующие окажутся пустыми. Для ввода последовательности строк нужно использовать процедуру READLN (см. ниже).

  При вводе числовых переменных процедура READ вначале выделяет подстроку во входном потоке по следующему правилу: все ведущие пробелы, символы табуляции и маркеры конца строк EOLN пропускаются; после выделения первого значащего символа, наоборот, любой из перечисленных символов или символ EOF служат признаком конца подстроки. Выделенная таким образом подстрока затем рассматривается как символьное представление числовой константы соответствующего типа и преобразуется во внутреннее представление, а полученное значение присваивается переменной. Если в подстроке был нарушен требуемый формат представления численной константы, возникает ошибка ввода-вывода. Если при пропуске ведущих пробелов встретился символ EOF, переменная получает значение 0. Отметим, что в Турбо Паскале не предусмотрен ввод шестнадцатеричных констант.

  При использовании процедуры READ применительно к стандартному файлу INPUT, т.е. при вводе с клавиатуры, символьные строки запоминаются в буфере, который передается процедуре только после нажатия на клавишу Enter. Это позволяет редактировать данные при их вводе. Для редактирования используются следующие клавиши:

• Backspace, Ctrl-H, перевод курсора влево - стирают символ слева от курсора;
• перевод курсора вправо - восстанавливает символ за символом предыдущую строку ввода;
• Ctrl-Z Enter - завершает ввод по процедуре READ; оставшиеся «лишние» символьные параметры принимают значение CHR(26), строки возвращаются пустыми, а численные переменные остаются без изменения.

  Максимальная длина буфера ввода при работе с клавиатурой составляет 127 символов. Ввод с клавиатуры по процедуре READ сопровождается эхо-повтором вводимых символов на экране ПК.

Процедура READ прекрасно  приспособлена к вводу чисел. При обращении к ней за вводом очередного целого или вещественного  числа процедура «перескакивает»  маркеры конца строк, т.е. фактически весь файл рассматривается ею как одна длинная строка, содержащая текстовое представление чисел. В сочетании с проверкой конца файла функцией EOF процедура READ позволяет организовать простой ввбд массивов данных, например, так:

const

N = 1000; {Максимальная длина ввода}

var

f : text;

m : array [1..N] of real; 

i : Integer; 

begin

assign(f, 'prog.dat') ; 

reset(£); i := 1;

while not EOF(f) and (i <= N) do 

begin

read(f ,m[i] ) ; 

inc(i) 

end; 

close(f);

.......

end.

 

Процедура READLN.

  Обеспечивает ввод символов, строк и чисел. Эта процедура идентична процедуре READ за исключением того, что после считывания последней переменной оставшаяся часть строки до маркера EOLN пропускается, поэтому следующее обращение к READLN или READ начинается с первого символа новой строки. Кроме того, эту процедуру можно вызвать без параметра <cn.вводa> (см. процедуру READ), что приведет к пропуску всех символов текущей строки вплоть до EOLN.

  Если процедура используется для чтения с клавиатуры, нажатие на клавишу Enter отобразится на экране как последовательность CR + LF и курсор будет помещен в начало следующей строки, в то время как в процедуре READ эхо-повтором клавиши Enter является символ CR и курсор помещается в начало текущей строки.