OEMTOANSI FOR MIXD
Материал из Фабиус wiki
Версия от 15:59, 14 июня 2017; Hisava (обсуждение | вклад)
OEMTOANSI_FOR_MIXD - это программа из R266
Преобразовать файл c:\MIXD\TMP.TXT из кодировки 866 в кодировку 1251
OEMTOANSI_FOR_MIXD()
Текст
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 )
