gpt4 book ai didi

arrays - 更改数组Delphi中的特殊字符

转载 作者:行者123 更新时间:2023-12-03 14:57:42 25 4
gpt4 key购买 nike

我得到的一些字符串是 UTF-8 编码的,并且包含一些特殊字符,例如 Å¡、ä‘、ä 等。我正在使用 StringReplace()将其转换为一些普通文本,但我只能转换一种类型的字符。因为 PHP 也有一个替换字符串的函数,如下所示: how to replace special characters with the ones they're based on in PHP? ,但它支持数组:

<?php
$vOriginalString = "¿Dónde está el niño que vive aquí? En el témpano o en el iglú. ÁFRICA, MÉXICO, ÍNDICE, CANCIÓN y NÚMERO.";

$vSomeSpecialChars = array("á", "é", "í", "ó", "ú", "Á", "É", "Í", "Ó", "Ú", "ñ", "Ñ");
$vReplacementChars = array("a", "e", "i", "o", "u", "A", "E", "I", "O", "U", "n", "N");

$vReplacedString = str_replace($vSomeSpecialChars, $vReplacementChars, $vOriginalString);

echo $vReplacedString; // outputs '¿Donde esta el nino que vive aqui? En el tempano o en el iglu. AFRICA, MEXICO, INDICE, CANCION y NUMERO.'
?>

我怎样才能在Delphi中做到这一点? StringReplace不支持数组。

最佳答案

function str_replace(const oldChars, newChars: array of Char; const str: string): string;
var
i: Integer;
begin
Assert(Length(oldChars)=Length(newChars));
Result := str;
for i := 0 to high(oldChars) do
Result := StringReplace(Result, oldChars[i], newChars[i], [rfReplaceAll])
end;

如果您担心由 StringReplace 引起的所有不必要的堆分配,那么您可以这样编写:

function str_replace(const oldChars, newChars: array of Char; const str: string): string;
var
i, j: Integer;
begin
Assert(Length(oldChars)=Length(newChars));
Result := str;
for i := 1 to Length(Result) do
for j := 0 to high(oldChars) do
if Result[i]=oldChars[j] then
begin
Result[i] := newChars[j];
break;
end;
end;

这样调用它:

newStr := str_replace(
['á','é','í'],
['a','e','i'],
oldStr
);

关于arrays - 更改数组Delphi中的特殊字符,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6599651/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com