записать файл в UTF-кодировке

[DreamCreator]

Цитата:

Сообщение от gl00mie

Ну а если "руками" дописать этот BOM (0xEF 0xBB 0xBF) в файл перед конвертированными данными?..

Вот только что так и сделал На C# написал консольное приложение, которое принимает путь к файлу, который надо переконвертировать в UTF-8 и в него же записывает результат с BOM:

 static void Main(string[] args)
        {
            string path = args[0];            
                
            System.Text.Encoding encodingUTF = System.Text.Encoding.UTF8;
            System.Text.Encoding encodingWin = System.Text.Encoding.ASCII;

            string content = "";

            using (FileStream fs = File.Open(path, FileMode.Open))
            {
                StreamReader sr = new StreamReader(fs, Encoding.Default);
                content = sr.ReadToEnd();
            }

            using (FileStream fsw = File.OpenWrite(path))
            {
                Byte[] info = new UTF8Encoding(true).GetBytes(content);

                fsw.WriteByte(0xEF);
                fsw.WriteByte(0xBB);
                fsw.WriteByte(0xBF);

                fsw.Write(info, 0, info.Length);
            }
        }

Почему-то работает гораздо быстрее чем линуксовый конвертер recode )

[handy-comp]

Попробуйте такой вариант, насколько помню работал, у самого нет под рукой 3-ки проверить:

    Com objStream = new Com('ADODB.Stream');
    ;
    
    objStream.CharSet('utf-8');
    objStream.Open();
    objStream.WriteText('тест');
    objStream.SaveToFile(@'c:\test.txt');
    objStream.Close();

[Logger]

Цитата:

Сообщение от AndyD

Угу, насчет .NET согласен.
Вот так можно без промежуточных файлов работать с UTF8
...
По сути вопроса - возможно, проблемы из-за того, что строки теперь юникодные и преобразование на каком-то этапе идет неправильно.

Спасибо.
Попробовал применить такой подход для строчек - не получилось
В чем может быть проблема ?
Изначально задача стояла переписать на .Net функции

client static str oem2CharBuff(str strSource)
{
    DLL          winApiDLL      = new DLL( #UserDLL );
    DLLFunction  oemToCharBuff  = new DLLFunction( winApiDLL, @'OemToCharBuffA');
    Binary       bSource        = new Binary( strSource );
    str          ret;
    ;

    oemToCharBuff.returns( ExtTypes::DWORD );
    oemToCharBuff.arg( ExtTypes::POINTER, ExtTypes::POINTER, ExtTypes::DWord );
    oemToCharBuff.call( bSource, bSource, strlen(strSource) );
    ret = bSource.string(0);

    return ret;
}

client static str char2OEM(str strSource)
{
    DLL         _winApiDLL  = new DLL('USER32');
    DLLFunction _CharToOEM  = new DLLFunction(_winApiDLL, 'CharToOemA');
    Binary       bSource    = new Binary(strSource);
    str          oemstr;
    ;

    _CharToOEM.returns(ExtTypes:: DWORD);
    _CharToOEM.arg(ExtTypes::POINTER,
                   ExtTypes::POINTER);
    _CharToOEM.call(bSource, bSource);
    oemstr = bSource.string(0);

    return oemstr;
}

и

client static str oem2Char(str strSource)
{
    DLL         _winApiDLL  = new DLL('USER32');
    DLLFunction _CharToOEM  = new DLLFunction(_winApiDLL, 'OemToCharA');
    Binary       bSource    = new Binary(strSource);
    str          winstr;
    ;

    _CharToOEM.returns(ExtTypes:: DWORD);
    _CharToOEM.arg(ExtTypes::POINTER,
                   ExtTypes::POINTER);
    _CharToOEM.call(bSource, bSource);
    winstr = bSource.string(0);

    return winstr;
}

Но почему-то не получается.
Попробовал вот так :

static void Unicode2ANSI_5(Args _args)
{
//    str                     unicodeStr;
    System.Text.Encoding    encAnsi;
    System.Byte[]           bytesAnsi;
    System.Byte             byte;
    str                     byteStr;
    Counter                 len;
    Counter                 n;
    asciiio                 file = SysDataIntegration::openFile(@"c:\_\ttt.txt", "R", ";");
    container               con;
    System.Text.Encoding                encoding;
    System.Text.Encoding                encoding866;
    System.Text.Encoding                encodingUTF;
    System.Text.Encoding                encodingAnsi;
    System.Byte[]                       tmp;
    System.String                       ss;
    str                                 s;
    str                                 ret;
    ;
    New InteropPermission(InteropKind::ClrInterop).assert();
    while (file.status() == IO_Status::Ok)
    {
        con = file.read();
        s = conPeek(con,1);
        ss = s;

        //encodingUTF = System.Text.Encoding::get_Unicode();
        encodingUTF = System.Text.Encoding::get_UTF8();
        encoding866 = System.Text.Encoding::GetEncoding(866);
        //encoding866 = System.Text.Encoding::get_ASCII();


        tmp = encoding866.GetBytes(ss);

        tmp = System.Text.Encoding::Convert(encoding866, encodingUTF, tmp);

        ret = encodingUTF.GetString(tmp);
        
        info(strFMT("%1  <--->  %2 <---> %3 ",
            conPeek(con,1),
            winapi::oem2CharBuff( conPeek(con,1) ),
            ret
            ));
            
        break;

    }

}

не получается.
В файле лежит строка

Цитата:

1. Кодировка

в досовской кодировке. В ansi это выглядит так :

Цитата:

1. Љ®¤Ёа®ўЄ 

- задачка получить в Аксапте строчку

Цитата:

1. Кодировка

и не

Цитата:

1. Љ®¤Ёа®ўЄ 

Причем желательно оформить код в виде функции, принимающей строку, т.е. не использующей работу с файлом.
Процитированный джобик вывел что-то типа

Цитата:

4. Љ®¤Ёа®ўЄ  <---> 4. Кодировка <---> 4. ?R¤ЁаRўЄ 

т.е. процитированная выше функция oem2CharBuff написанная через вызов dll - работает, а .net вариант - нет. Т.е. написан ошибочно.

[Logger]

Решение нашлось

//pkoz 17.12.2013
server static str oem2Char(str strSource)
{
    str     ret;

    System.Text.Encoding    encAnsi;
    System.Text.Encoding    enc866;

    System.Byte[]           bytesAnsi;
    System.Byte[]           bytes;
    ;
    new InteropPermission(InteropKind::ClrInterop).assert();

    encAnsi     = System.Text.Encoding::get_Default();
    enc866      = System.Text.Encoding::GetEncoding(866);

    bytesAnsi   = encAnsi.GetBytes( strSource );
    
    bytes = System.Text.Encoding::Convert(enc866, encAnsi, bytesAnsi);
    ret = encAnsi.GetString(bytes);
    return ret;
}

[Ruff]

    str dos2win(str _source, int _srcCodePage = 866, int _destCodePage = 1251)
    {
        System.Text.Encoding    encodingSource  = System.Text.Encoding::GetEncoding(_srcCodePage);    
        System.Text.Encoding    encodingDest    = System.Text.Encoding::GetEncoding(_destCodePage);        
        System.Byte[]           buff            = encodingSource.GetBytes(_source);        
        str                     dest            = encodingDest.GetString(buff);
        return  dest;
    }

UPD: Упс, опередили)

[demianimp]

А как кодеровку менять в AX 3 ?

[Russland]

Полезно для экспорта csv в utf8 daxdilip: Tip - How to write to utf-8 encoding format using CommaTextIo Class