Dataport output with ANSI chars - how?

Business Central/NAV Developers Forum
1

Moin: By default dataport outputs are coded with OEM character set. Is there an easy way to have the output file with ANSI chars? Regards Uwe Uwe Wenk

2

Hi Uwe I don’t know, if it’s possible to export ANSI-chars in a NAVISION dataport, but we have a Codeunit, that converts an ASCII-File to an ANSI-File (and reverse). We use(ed) this codeunit after running dataports. I could send you the object, if you want it!? Bye, Joerg Stryk

3

Function OEM2ANSI (OEMString : Text250) : Text250

 
FromChars := '';
FromChars [1] := 192;
FromChars [2] := 193;
FromChars [3] := 196;
FromChars [4] := 197;
FromChars [5] := 198;
FromChars [6] := 199;
FromChars [7] := 200;
FromChars  := 201;
FromChars [9] := 202;
FromChars [10] := 203;
FromChars [11] := 204;
FromChars [12] := 205;
FromChars [13] := 206;
FromChars [14] := 207;
FromChars [15] := 209;
FromChars [16] := 210;
FromChars [17] := 211;
FromChars [18] := 212;
FromChars [19] := 214;
FromChars [20] := 220;
FromChars [21] := 223;
FromChars [22] := 224;
FromChars [23] := 225;
FromChars [24] := 226;
FromChars [25] := 228;
FromChars [26] := 229;
FromChars [27] := 230;
FromChars [28] := 231;
FromChars [29] := 232;
FromChars [30] := 233;
FromChars [31] := 234;
FromChars [32] := 235;
FromChars [33] := 236;
FromChars [34] := 237;
FromChars [35] := 238;
FromChars [36] := 239;
FromChars [37] := 241;
FromChars [38] := 242;
FromChars [39] := 243;
FromChars [40] := 244;
FromChars [41] := 245;
FromChars [42] := 246;
FromChars [43] := 249;
FromChars [44] := 250;
FromChars [45] := 251;
FromChars [46] := 252;

ToChars := '';
ToChars [1] := 183;
ToChars [2] := 181;
ToChars [3] := 142;
ToChars [4] := 143;
ToChars [5] := 146;
ToChars [6] := 128;
ToChars [7] := 212;
ToChars  := 144;
ToChars [9] := 210;
ToChars [10] := 211;
ToChars [11] := 222;
ToChars [12] := 214;
ToChars [13] := 215;
ToChars [14] := 216;
ToChars [15] := 165;
ToChars [16] := 227;
ToChars [17] := 224;
ToChars [18] := 226;
ToChars [19] := 153;
ToChars [20] := 154;
ToChars [21] := 225;
ToChars [22] := 133;
ToChars [23] := 160;
ToChars [24] := 131;
ToChars [25] := 132;
ToChars [26] := 134;
ToChars [27] := 145;
ToChars [28] := 135;
ToChars [29] := 138;
ToChars [30] := 130;
ToChars [31] := 136;
ToChars [32] := 137;
ToChars [33] := 141;
ToChars [34] := 161;
ToChars [35] := 140;
ToChars [36] := 139;
ToChars [37] := 164;
ToChars [38] := 149;
ToChars [39] := 162;
ToChars [40] := 147;
ToChars [41] := 228;
ToChars [42] := 148;
ToChars [43] := 151;
ToChars [44] := 163;
ToChars [45] := 150;
ToChars [46] := 129;

EXIT (CONVERTSTR (OEMString, ToChars, FromChars));

Marcus Fabian phone: +41 79 4397872 m.fabian@thenet.ch

4

Marcus: Well done! Thank you very much! And inverting your function to ANSI2OEM is a snap! Regards Uwe P.S.: Joerg: might be more efficient for you too :o) Uwe Wenk