The ansi2ascii tool, license problem

MarianoM wrote:

jversusj wrote:

We used the ansi-ascii tool and found quite a few characters that had to be remapped by our NSC. We also had a problem with spaces - but ours was a natural space vs a long space. We loaded everything as long spaces in error and had to remap the converter and start over. Otherwise, you couldn't search customers by name if they had more than one word in their name. good luck!

First of all, I'm new here, so greetings to everyone

I know this post is a bit old, but I'm having the same problem with space characters and I haven't found a solution yet.
Could you tell me what you did to solve this?

Thanks in advance.

OBJECT Codeunit 50109 ANSI <-> ASCII converter
{
  OBJECT-PROPERTIES
  {
    Date=10/19/06;
    Time=10:00:25 AM;
    Modified=Yes;
    Version List=NSDK;
  }
  PROPERTIES
  {
    OnRun=VAR
            Slimslam@1000000000 : Text[30];
            Slimslam2@1000000001 : Text[54];
          BEGIN
          END;

  }
  CODE
  {
    VAR
      AsciiStr@1000000000 : Text[250];
      AnsiStr@1000000001 : Text[250];
      CharVar@1000000002 : ARRAY [33] OF Char;
      x@1000000003 : Integer;
      outtext@1000000005 : Text[250];
      pos@1000000004 : Integer;
      textstr@1000000006 : Text[1];
      textstr2@1000000007 : Text[1];

    PROCEDURE Ansi2Ascii@9(_Text@1000000000 : Text[250]) : Text[250];
    BEGIN
      MakeVars;

      {
      FOR x:=1 TO STRLEN(_Text) DO BEGIN
      textstr[1] := _Text[x];
      pos := STRPOS(AnsiStr, textstr);
      IF pos > 0 THEN BEGIN
        textstr2[1] := AsciiStr[pos];
        MESSAGE(FORMAT(pos)+' '+textstr2);
      END;
      END;
       }

      outtext := CONVERTSTR(_Text,AnsiStr,AsciiStr);
      EXIT(outtext);
    END;

    PROCEDURE Ascii2Ansi@10(_Text@1000000000 : Text[250]) : Text[250];
    BEGIN
      MakeVars;
      EXIT(CONVERTSTR(_Text,AsciiStr,AnsiStr));
    END;

    PROCEDURE MakeVars@1();
    BEGIN
      AsciiStr := '€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯ÝÝÝÝݵ¶·¸ÝÝ++½¾++--+-+ÆÇ++--Ý-+';
      AsciiStr := AsciiStr +'ÏÐÑÒÓÔiÖ×Ø++Ý_ÝÞîàáâãäåæçèéêëìíîïðñ=óôõö÷øùúûüýÝ ';
      CharVar[1] := 196;
      CharVar[2] := 197;
      CharVar[3] := 201;
      CharVar[4] := 242;
      CharVar[5] := 220;
      CharVar[6] := 186;
      CharVar[7] := 191;
      CharVar[8] := 188;
      CharVar[9] := 187;
      CharVar[10] := 193;
      CharVar[11] := 194;
      CharVar[12] := 192;
      CharVar[13] := 195;
      CharVar[14] := 202;
      CharVar[15] := 203;
      CharVar[16] := 200;
      CharVar[17] := 205;
      CharVar[18] := 206;
      CharVar[19] := 204;
      CharVar[20] := 175;
      CharVar[21] := 223;
      CharVar[22] := 213;
      CharVar[23] := 254;
      CharVar[24] := 218;
      CharVar[25] := 219;
      CharVar[26] := 217;
      CharVar[27] := 180;
      CharVar[28] := 177;
      CharVar[29] := 176;
      CharVar[30] := 185;
      CharVar[31] := 179;
      CharVar[32] := 178;
      CharVar[33] := 160;

      AsciiStr[87] := 228;
      AsciiStr[54] := 219;
      AsciiStr[72] := 222;
      AsciiStr[56] := 218;
      AsciiStr[84] := 226;
      AsciiStr[55] := 220;
      AsciiStr[85] := 223;
      AsciiStr[89] := 231;
      AsciiStr[30] := 'î';

      AnsiStr  := 'Çüéâäàåçêëèïîì'+FORMAT(CharVar[1])+FORMAT(CharVar[2])+FORMAT(CharVar[3])+ 'æÆôö'+FORMAT(CharVar[4]);
      AnsiStr := AnsiStr + 'ûùÿÖ'+FORMAT(CharVar[5])+'ø£Ø׃áíóúñѪ'+FORMAT(CharVar[6])+FORMAT(CharVar[7]);
      AnsiStr := AnsiStr + '®¬½'+FORMAT(CharVar[8])+'¡«'+FORMAT(CharVar[9])+'___¦¦' + FORMAT(CharVar[10])+FORMAT(CharVar[11]);
      AnsiStr := AnsiStr + FORMAT(CharVar[12]) + '©¦¦++¢¥++--+-+ã' + FORMAT(CharVar[13]) + '++--¦-+¤ðÐ';
      AnsiStr  :=  AnsiStr +FORMAT(CharVar[14])+FORMAT(CharVar[15])+FORMAT(CharVar[16])+'i'+FORMAT(CharVar[17])+FORMAT(CharVar[18]);
      AnsiStr  :=  AnsiStr + 'Ï++__¦' + FORMAT(CharVar[19])+FORMAT(CharVar[20])+'Ó'+FORMAT(CharVar[21])+'ÔÒõ';
      AnsiStr  :=  AnsiStr + FORMAT(CharVar[22]) + 'µ' + FORMAT(CharVar[23]) + 'Þ' + FORMAT(CharVar[24])+ FORMAT(CharVar[25]);
      AnsiStr  :=  AnsiStr + FORMAT(CharVar[26]) + 'ýݯ' + FORMAT(CharVar[27]) + '­' + FORMAT(CharVar[28]) +'=¾¶§÷¸'+ FORMAT(CharVar[29]
      );
      AnsiStr  :=  AnsiStr + '¨·' + FORMAT(CharVar[30]) +FORMAT(CharVar[31]) +FORMAT(CharVar[32]) +'_'+FORMAT(CharVar[33]);
    END;

    BEGIN
    END.
  }
}