Добрый день!
есть текстовые файлы (таблицы в Ексель в формате csv), помогите, чем можно сконвертировать их из windows-1251 в utf-8.
таблиц довольно много, конвертировать руками - неудобно и утомляет
#pragma compile(Console, True) ; консольное приложение, можно использовать в .batOpt('MustDeclareVars',True)#include <FileConstants.au3>LocalConst$cnErrOpen=-1; признак облома FileOpenLocal$sFileAnsi,$sFileUTF,_; имена входного и вых. файлов$hRead,$hWrite,_; хендлы их же$sText; данныеIf$CmdLine[0]<2Then; «защита от дурака» #1i_Error('Missing parameter(s)!')Exit362EndIf; параметры запуска скрипта: <файл-источник> <файл-результат>;$sFileAnsi=$CmdLine[1]$sFileUTF=$CmdLine[2];$hRead=FileOpen($sFileAnsi,$FO_ANSI)If$hRead=$cnErrOpenThen; «защита от дурака» #2i_Error('Cannot open source file '&$sFileAnsi)Exit432EndIf;$hWrite=FileOpen($sFileUTF,$FO_UTF8+$FO_OVERWRITE); или вместо $FO_UTF8 мб $FO_UTF8_NOBOM если не нужен маркер кодировкиIf$hWrite=$cnErrOpenThen; «защита от дурака» #3i_Error('Cannot open target file '&$sFileUTF)Exit470EndIf;$sText=FileRead($hRead)FileWrite($hWrite,$sText)FileClose($hWrite)FileClose($hRead)ConsoleWrite('Ok!'&@CRLF)Exit0;Funci_Error($sMsg); вывод сообщений об ошибке в одном стилеConsoleWrite('*** Error *** '&$sMsg&@CRLF)EndFunc
Контрольный пример: источник = qwerty.txt, результат = asdfg.txt