OEMTOANSI FOR MIXD — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
OEMTOANSI_FOR_MIXD - это программа из [[R266]] | OEMTOANSI_FOR_MIXD - это программа из [[R266]] | ||
| + | |||
| + | Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251 | ||
| + | |||
| + | = Текст программы = | ||
| + | |||
| + | local path, name, af, aa | ||
| + | |||
| + | path := 'c:\MIXD\' | ||
| + | name := 'TMP.TXT' | ||
| + | aa := {} | ||
| + | |||
| + | try | ||
| + | af := [[AssignFile]]( path + name ) | ||
| + | if [[Empty]]( af ) | ||
| + | return | ||
| + | endif | ||
| + | [[TextReset]]( af ) | ||
| + | while ![[TextEof]]( af ) | ||
| + | Aadd( aa, [[OemToAnsi]]( ReadLn( af ) ) ) | ||
| + | end | ||
| + | finally | ||
| + | if ![[Empty]]( af ) | ||
| + | [[CloseFile]]( af ) | ||
| + | endif | ||
| + | end | ||
| + | |||
| + | [[WriteTxtFile]]( aa, name, path ) | ||
= Смотрите также = | = Смотрите также = | ||
Версия 08:18, 19 сентября 2016
OEMTOANSI_FOR_MIXD - это программа из R266
Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251
Текст программы
local path, name, af, aa
path := 'c:\MIXD\'
name := 'TMP.TXT'
aa := {}
try
af := AssignFile( path + name )
if Empty( af )
return
endif
TextReset( af )
while !TextEof( af )
Aadd( aa, OemToAnsi( ReadLn( af ) ) )
end
finally
if !Empty( af )
CloseFile( af )
endif
end
WriteTxtFile( aa, name, path )
