如何将字符串中的 \xA0 （或非 ASCII）字符替换为 ' '？

Question

我有一个 Excel 文件，其中包含许多非 ASCII 字符，我想用空格字符替换它们。

该文本将被输入到 MySQL 数据库中，并且不会与字符串中的这些字符一起导入。尝试发布该行时，我收到 HY000 错误的字符串值。

Answer 1

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

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

其中 #1#4 是您要替换的非 Ascii 字符。

这里是一些有关其使用的文档。

您也可以这样做。

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更改为可接受的字符。