delphi - 如何将字符串中的\xA0(或非ASCII)字符替换为''？

Question

我有一个包含许多非ASCII字符的excel文件，我想用空格字符替换。

该文本将输入到MySQL数据库中，并且不会与字符串中的这些字符一起导入。尝试发布行时出现HY000 Incorrect string value。

Answer 1

如果非Ascii字符集是固定的，则可以使用：

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

其中＃1＃4是您要替换的非ASCII字符。

Here is some docs on it's use.

您也可以这样做。

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;

然后，您可以将CharInSet中的Set更改为可接受的字符。