WRITELINETOFILE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м |
||
| (не показано 16 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | + | [[WRITELINETOFILE]] - это программа из справочника [[R266]] | |
| − | + | Запись строки в файл | |
| − | WRITELINETOFILE( str_line, name, path [, no_msg := true] ) | + | [[WRITELINETOFILE]]( str_line, name, path [, no_msg := true] ) |
| − | + | ||
| − | + | ||
str_line - строка | str_line - строка | ||
| Строка 13: | Строка 11: | ||
no_msg - не надо выводить сообщения ( по умолчанию, no_msg = true, т.е. сообщения не нужны ) | no_msg - не надо выводить сообщения ( по умолчанию, no_msg = true, т.е. сообщения не нужны ) | ||
| − | = | + | = Пример = |
| + | |||
| + | local aa, sql, i, ii, file_name, fld, r169_kod, r166_lvl | ||
| + | |||
| + | // выбор документа | ||
| + | r169_kod := [[ChoiceRefr]]( 'R169', 'KOD', { 'KOD', 'PNAME' }, ~Title := 'Выберите один документ' ) | ||
| + | if [[Empty]]( r169_kod ) | ||
| + | return | ||
| + | endif | ||
| + | |||
| + | // выбор уровня | ||
| + | r166_lvl := [[ChoiceRefr]]( 'R166', 'LVLNUM', { 'LVLNUM', 'PNAME' }, [ KINDDOC = '] + r169_kod + [' ], ~Title := 'Выберите уровень' ) | ||
| + | if [[Empty]]( r166_lvl ) | ||
| + | return | ||
| + | endif | ||
| + | |||
| + | file_name := r169_kod + r166_lvl + '.txt' | ||
| + | |||
| + | '''WriteLineToFile'''( '{| class = "wikitable"', file_name, TempPath ) | ||
| + | '''WriteLineToFile'''( '|-', file_name, TempPath ) | ||
| + | '''WriteLineToFile'''( '! Идентификатор реквизита || Наименование ', file_name, TempPath ) | ||
| + | |||
| + | fld := { 'IDENT', 'PNAME' } | ||
| + | |||
| + | sql := [ Select IDENT, PNAME From R165 Where KINDDOC = '] + r169_kod + [' and LVLNUM = '] + r166_lvl + [' Order by IDENT ] | ||
| + | aa := [[SqlToArr]]( sql, fld, ReflisPath ) | ||
| + | |||
| + | if ![[IsEmpty]]( aa ) | ||
| + | for i := 1 to len( aa ) | ||
| + | '''WriteLineToFile'''( '|-', file_name, TempPath ) | ||
| + | '''WriteLineToFile'''( '|' + aa[i,1] + ' || ' + StrTran( StrTran( aa[i,2], ';', ' ' ), '|', '' ), file_name, TempPath ) | ||
| + | next | ||
| + | endif | ||
| + | |||
| + | aa := '|}' | ||
| + | '''WriteLineToFile'''( aa, file_name, TempPath, false ) | ||
| + | |||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | + | [[Функции Delphi]] | |
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
Текущая версия на 10:45, 14 октября 2025
WRITELINETOFILE - это программа из справочника R266
Запись строки в файл
WRITELINETOFILE( str_line, name, path [, no_msg := true] )
str_line - строка
name - имя файла
path - путь к файлу
no_msg - не надо выводить сообщения ( по умолчанию, no_msg = true, т.е. сообщения не нужны )
Пример
local aa, sql, i, ii, file_name, fld, r169_kod, r166_lvl // выбор документа r169_kod := ChoiceRefr( 'R169', 'KOD', { 'KOD', 'PNAME' }, ~Title := 'Выберите один документ' ) if Empty( r169_kod ) return endif // выбор уровня r166_lvl := ChoiceRefr( 'R166', 'LVLNUM', { 'LVLNUM', 'PNAME' }, [ KINDDOC = '] + r169_kod + [' ], ~Title := 'Выберите уровень' ) if Empty( r166_lvl ) return endif file_name := r169_kod + r166_lvl + '.txt' WriteLineToFile( '{| class = "wikitable"', file_name, TempPath ) WriteLineToFile( '|-', file_name, TempPath ) WriteLineToFile( '! Идентификатор реквизита || Наименование ', file_name, TempPath ) fld := { 'IDENT', 'PNAME' } sql := [ Select IDENT, PNAME From R165 Where KINDDOC = '] + r169_kod + [' and LVLNUM = '] + r166_lvl + [' Order by IDENT ] aa := SqlToArr( sql, fld, ReflisPath ) if !IsEmpty( aa ) for i := 1 to len( aa ) WriteLineToFile( '|-', file_name, TempPath ) WriteLineToFile( '|' + aa[i,1] + ' || ' + StrTran( StrTran( aa[i,2], ';', ' ' ), '|', ), file_name, TempPath ) next endif aa := '|}' WriteLineToFile( aa, file_name, TempPath, false )
