Comment remplacer les caractères \ xA0 (ou non-ASCII) dans une chaîne par ''?

Question

J'ai un fichier Excel avec de nombreux caractères non-ASCII que je voudrais remplacer par le caractère espace.

Ce texte doit être entré dans une base de données MySQL, et il ne sera pas importé avec ces caractères dans les chaînes. Je reçois un HY000 Incorrect string value en essayant de poster la ligne.

Answer 1

Si le jeu de caractères non-ascii est fixé, vous pouvez utiliser:

NewString := StringReplace(OriginalString,#1#4,' ',[rfReplaceAll]) 

où # 1 # 4 est les caractères non-ascii vous voulez avoir remplacé.

Here is some docs on it's use.

Vous pouvez aussi le faire.

function StripNonAlpha(aInput : String) : String; 
var 
I : Integer; 
begin 
result := aInput; 
for I := 1 to length(result) do 
begin 
    if not CharInSet(result[I],['A'..'Z','a'..'z']) then 
     result[I] := ' '; 
end; 
end; 

Ensuite, vous pouvez modifier Set dans CharInSet avec les caractères acceptables.