[Kirvisniemi]

Цитата:

Хм... Допустим, я на своей машине поставлю нужный мне разделитель (т.е. "пробел" = 0x20). А у клиента что делать? Прописывать в регламент его IT-службе замену стандартного разделителя? А если у него на площадке целый "зоопарк" приложений?

Может так? :-)

<div class='CALtop'>C/AL</div><div class='CAL'>   VAR
    WshShell@1000000000 : Automation "{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B} 1.0:{72C24DD5-D70A-438B-8A42-98424B88AFB8}:'Windows Script Host Object Model'.WshShell";

  PROCEDURE GetRegionalDelimiter() : Text[1024];
  BEGIN
    IF ISCLEAR(WshShell) THEN CREATE(WshShell);
    EXIT(FORMAT(WshShell.RegRead('HKEY_CURRENT_USER\Control Panel\International\sThouansd')));
    CLEAR(WshShell);
  END;

  PROCEDURE SetRegionalDelimiter(cDelimiter: Char) : Text[1024];
  BEGIN
    IF ISCLEAR(WshShell) THEN CREATE(WshShell);
    WshShell.RegRead('HKEY_CURRENT_USER\Control Panel\International\sThouansd', cDelimiter, 'REG_SZ');
    CLEAR(WshShell);
  END;

  PROCEDURE Export2Excel()
  BEGIN
    cDelimiter := GetRegionalDelimiter();
    SetRegionalDelimiter(' ');
    ...
    // export
    ...
    SetRegionalDelimiter(cDelimiter);
  END;</div>