how to convert/delete characters from a text?

[ABNormal]

is there a way to remove (or substitute) some characters from a field text
in some collected fields i have to "fight" with some "chinese" characters.
Example: Does not have é—´éÂ￾“ (taped)
I'ld like to leave only the "western" part of that text:
Does not have (taped)

logically the function should be:

Code: Select all

oldtxt:=getfield(fieldXYZ);
n:=1;
newtxt:='';
letter:='';
while n<=[i]length(oldtxt)[/i] do begin
letter:= [i]substring(oldtext,n,1)[/i] ;
//valid only between #32 to #165 
if letter<' ' [i].or.[/i] letter > 'Ñ' then letter:='';
newtxt:=newtxt+letter;
end;

Antoine may you help me to write it in a correct way, please?

thank you
ABN

[antp]

Why 165? Basic ASCII characters stop at 127.

Code: Select all

program NewScript;
var
  s: string;
  i: Integer;
  Result: string;
begin
  s := 'Does not have é—´éÂ￾“ (taped)';
  Result := '';
  for i := 1 to Length(s) do
    if (StrGet(s, i) >= #32) and (StrGet(s, i) <= #127) then
      Result := Result + StrGet(s, i);
  ShowMessage(Result);
end.