Identify ASCII-Codes for UNICODE

With this dataport you can easily identify which ASCII-characters correspond to UNICODE-signs.

This helps a lot when doing import/export of data, especially in countries such as Poland, Hungary, Czechia,...

Use this for a conversion such as:

Export Data conversion:
Function:
ConvChar_CZ_Exp(InputString_ : Text[1024]) : Text[1024]

WHILE i < STRLEN(InputString_)+1 DO BEGIN
i := i +1;
CASE InputString_ OF
'?':BEGIN
InputString_ := 239;
Char2 := 187;
Char3 := 191;
Char4 := 196;
Char5 := 155;
InputString_ := COPYSTR(InputString_,1,i) + FORMAT(Char) + FORMAT(Char2) + FORMAT(Char3) + FORMAT(Char4) + FORMAT(Char5) + COPYSTR(InputString_,i+1);
i := i + 1;
END;
'':BEGIN
InputString_ := 197;
Char := 161;
InputString_ := COPYSTR(InputString_,1,i) + FORMAT(Char) + COPYSTR(InputString_,i+1);
i := i + 1;
END;
'?':BEGIN
InputString_ := 196;
Char := 141;
InputString_ := COPYSTR(InputString_,1,i) + FORMAT(Char) + COPYSTR(InputString_,i+1);
i := i + 1;
END;
end;

EXIT(InputString_);


Import data conversion:

Function:
ConvertChar_CZ_Import(InputString_ : Text[1024]) : Text[1024]

FOR i := 1 TO STRLEN(InputString_) DO BEGIN
CASE InputString_ OF
197 :
BEGIN
CASE InputString_[i+1] OF
161: InputString_ := '';
153: InputString_ := '?';
190: InputString_ := '';
175: InputString_ := '?';
160: InputString_ := '';
152: InputString_ := '?';
189: InputString_ := '';
174: InputString_ := '?';
END;
InputString_ := COPYSTR(InputString_,1,i) + COPYSTR(InputString_,i+1);
END;
196 :
BEGIN
CASE InputString_[i+1] OF
141: InputString_ := '?';
154: InputString_ := '?';
140: InputString_ := '?';
END;
InputString_ := COPYSTR(InputString_,1,i) + COPYSTR(InputString_,i+1)
END;

EXIT(InputString_);

I encluded an example file which contains all special signs of the desired language. Import it with the dataport and you'll get a file which contains the ASCII-chars expressions.

If you need help for this please feel free to contact me.