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

[Atani]

Здравствуйте!

Требуется из Аксапты создавать текстовый файл в кодировке UTF-8 (Обычный asciiio создаёт файл в windows-1251). Как такое сотворить?

Возможно, кто-нибудь знает способ перекодироки "на лету" или внешнюю утилиту перекодировки, которую можно было бы запустить программно сразу после создания файла

[EVGL]

Можно по такой схеме: Axapta -> XML -> XSLT -> CSV

[Atani]

Это мой запасной вариант :-)

Только почему нельзя пропустить фазу XSLT?
Разве не достаточно будет XMLDocument.save(filename); ?

[EVGL]

Можно. Если вы создаете XML.

[AndyD]

Рискну предложить свой вариант на основе виндовых функций

[Logger]

Цитата:

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

Рискну предложить свой вариант на основе виндовых функций

спасибо за код.

странно в 2009-й функция Utf2Ansi() валится с ошибкой "Метод вызван с недопустимыми параметрами" на вызове

buf.string(0, _utf8);

[someOne]

Цитата:

странно в 2009-й функция Utf2Ansi() валится с ошибкой "Метод вызван с недопустимыми параметрами" на вызове

X++:
buf.string(0, _utf8);

Может быть поэтому ? Ошибка при работе с binary в Ax2009

[someOne]

Еще - в Ax2009, наверное, лучше делать так (через NET):

static void Job31(Args _args)
{
    System.IO.StreamWriter file;
    ;
    file = new System.IO.StreamWriter("C:\\Test.txt", true, System.Text.Encoding::get_UTF8());
    file.WriteLine("Привет из Axapta");
    file.Close();
}

Гарантировано не будет проблем, например, при запуске на стороне сервера.
Замечал, что не все низкоуровневые api функции работают на стороне сервера.
Может проблема в том что операционная система сервера 64 bit ?
Наверное поэтому все серверные вызовы api (класс WinApiServer) переделаны на NET в axapta 2009.

[GBH]

Цитата:

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

Еще - в Ax2009, наверное, лучше делать так (через NET):

static void Job31(Args _args)
{
    System.IO.StreamWriter file;
    ;
    file = new System.IO.StreamWriter("C:\\Test.txt", true, System.Text.Encoding::get_UTF8());
    file.WriteLine("Привет из Axapta");
    file.Close();
}

Гарантировано не будет проблем, например, при запуске на стороне сервера.
Замечал, что не все низкоуровневые api функции работают на стороне сервера.
Может проблема в том что операционная система сервера 64 bit ?
Наверное поэтому все серверные вызовы api (класс WinApiServer) переделаны на NET в axapta 2009.

А как добиться работы данного кода на сервере?
У меня ругается на InteropPermission.
Пытался применить,то что написано здесь, но не помогает.
http://msdn.microsoft.com/en-us/library/bb190039.aspx
Видимо руки кривые.

static client работает корректно, но хотелось бы на сервере добиться работы.
Заранее спасибо.

[Just_smile]

Цитата:

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

Рискну предложить свой вариант на основе виндовых функций

У меня на тройке этот вариант не работает - в UTF8 выводятся кракозябры:
ABCDEFGabcdefgАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдежзийклмнопрстуфхцчшщьыъэюя123

ABCDEFGabcdefgАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдежзийклмнопрстуфхцчшщьыъэюя123

ABCDEFGabcdefgАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдежзийклмнопрстуфхцчшщьыъэюя123

[freezok]

Цитата:

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

Рискну предложить свой вариант на основе виндовых функций

Спасибо! Но есть одно но, класс плохо себя ведет со скобочками и цивфрами после 4-ки, а точнее добавляет после этих символов кряказябры... Как быть в таких случаях?
Пример:
На входе
ABCDEFGabcdefgАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдежзийклмнопрстуфхцчшщьыъэюя123(
Ны выходе
ABCDEFGabcdefgАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдежзийклмнопрстуфхцчшщьыъэюя123(Џ

[freezok]

Решил проблему добавлением пустоты в конце строки(проблема была толко если символ скобка или цифры 4-9 были в конце строки)

[Atani]

Спасибо!

[AndyD]

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

{
    System.Text.UTF8Encoding    UTF8Encoding;
    System.Byte[]               bytes;
    System.Byte[]               utf8;
    int i;
    int len;
    int val;
    Binary  bin;
    ;
    UTF8Encoding = new System.Text.UTF8Encoding();
    bytes = UTF8Encoding.GetBytes("Строка UTF8");
    len = bytes.get_Length();
    bin = new Binary(len);
    for (i=0;i<len;i++)
    {
        val = bytes.GetValue(i);
        bin.byte(i, val);
    }
    info(bin.string(0));
    
    utf8 = new System.Byte[len]();
    for (i=0;i<len;i++)
        utf8.SetValue(System.Convert::ToByte(bin.byte(i)), i);

    info(UTF8Encoding.GetString(utf8));
}

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

[DSPIC]

Ещё простой вариант:

    TextBuffer      textBuffer;
    ;
    
    textBuffer = new TextBuffer();
    textBuffer.setText("Строка");
    textBuffer.toFile(@"C:\utf8.txt", FileEncoding::UTF8);

[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 вариант - нет. Т.е. написан ошибочно.

[plumbum]

Я бы все таки сделал так:

    FileName    fileName;
    str         fileContent;
    ;
    
    new InteropPermission(InteropKind::ClrInterop).assert();
    
    System.IO.File::WriteAllText(fileName, fileContent, System.Text.Encoding::get_UTF8());
    
    CodeAccessPermission::revertAssert();

таким образом не надо освобождать файл методом Close() и нигде не хранятся ссылки на .NET объекты, которые потом АОС должен освобождать.

Удачи

[GBH]

Вопрос, возможно, глупый, но не могу разобраться. :-(
Всё работает как и надо.
Только перед записью, мне необходимо удалить файл. Использую WinAPIServer::deleteFile(fileName)

Set                     permissionSet = new set(Types::Class);
....
permissionSet.add(new FileIOPermission(fileName, #io_write));
permissionSet.add(new InteropPermission(InteropKind::ClrInterop));

CodeAccessPermission::assertMultiple(permissionSet);

if(WinAPIServer::fileExists(fileName))  
{
    WinAPIServer::deleteFile(fileName);
}

Получаю ошибку

Цитата:

Сбой запроса на разрешение типа "FileIOPermission".
(S)\Classes\FileIOPermission\demand
(S)\Classes\WinAPIServer\fileExists - line 14

Функция WinAPI отрабатывает без проблем. Права на папку все даны. Папка серверная.

Что я делаю нет?
Заранее спасибо.

[AndyD]

WinAPI::fileExists()

[GBH]

Цитата:

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

WinAPI::fileExists()

Спасибо.
Но я написал

Цитата:

Функция WinAPI отрабатывает без проблем.

. Но мне, для пакетной обработки, требуется использование WinAPIServer.