OEMTOANSI FOR MIXD — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 6: | Строка 6: | ||
= Текст = | = Текст = | ||
local path, name, af, aa | local path, name, af, aa | ||
| + | |||
| + | [[CopyFile]]( 'c:\MIXD\TMP.TXT', 'c:\MIXD\TMPTMP.TXT' ) | ||
path := 'c:\MIXD\' | path := 'c:\MIXD\' | ||
| − | name := ' | + | name := 'TMPTMP.TXT' |
| + | |||
aa := {} | aa := {} | ||
| Строка 18: | Строка 21: | ||
[[TextReset]]( af ) | [[TextReset]]( af ) | ||
while ![[TextEof]]( af ) | while ![[TextEof]]( af ) | ||
| − | Aadd( aa, [[OemToAnsi]]( ReadLn( af ) ) ) | + | [[Aadd]]( aa, [[OemToAnsi]]( [[ReadLn]]( af ) ) ) |
end | end | ||
finally | finally | ||
| Строка 27: | Строка 30: | ||
[[WriteTxtFile]]( aa, name, path ) | [[WriteTxtFile]]( aa, name, path ) | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 16:02, 14 июня 2017
OEMTOANSI_FOR_MIXD - это программа из R266
Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251
OEMTOANSI_FOR_MIXD()
Использование
Лаборатория - Открыть файл c:\MIXD\TMP.TXT
Текст
local path, name, af, aa CopyFile( 'c:\MIXD\TMP.TXT', 'c:\MIXD\TMPTMP.TXT' ) path := 'c:\MIXD\' name := 'TMPTMP.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 )
