从字符串中去掉引号

Question

如何使用 Delphi 从字符串中去除引号？

前任。我需要删除 'A'、'B'、'C'、'D' 中的所有引号，得到 A、B、C、D 的结果。我已经尝试过

MyVar := jclStrings.StrRemoveChars(sRegions, [#34]);

但到目前为止没有运气。

谢谢，彼得

Answer 1

您可以使用 MyVar := StringReplace(MyVar,'''','',[rfReplaceAll]);

Answer 2

尽管其他答案都是可行的替代方案，但您的特定代码不起作用的原因是由于字符代码中的一个简单错误：

MyVar := jclStrings.StrRemoveChars(sRegions, [#34]);

字符代码#34代表双引号字符：“

您需要什么要删除的是单引号/撇号：'

这具有字符代码#39，因此这个简单的更改应该修复您的原始代码：

MyVar := jclStrings.StrRemoveChars(sRegions, [#39]);

避免这种混乱的一个简单方法是使用文字字符，而不是 char 代码（它也将使您的代码稍后更容易阅读/理解，因为您不必尝试记住代码应该代表什么 char - 您当然可以添加注释，但随后该注释如果您更改代码本身的行为，请保持最新...我个人更喜欢尽可能自我记录代码，但我离题了），

因为单引号 char 用于分隔 char 文字，即嵌入式单引号 。文字中的引号表示为 2 个连续的单引号：（

MyVar := jclStrings.StrRemoveChars(sRegions, ['''']);

注意： 在 Delphi 2010 中，我似乎记得字符串现在可以用单引号或双引号字符分隔，尽管我不这样做立即回忆一下这是否扩展到 char 文字（与单个字符串不同）。如果是这样，那么这个 char 文字可以表示为“'”，尽管您是否觉得这更容易或更令人困惑取决于个人喜好。就我自己而言，我认为混合字符串分隔符不太明智。根据我的经验，一致性对于提高准确性有很大帮助。）

Answer 3

您可以使用 StrUtils.ReplaceText。

实现

使用StrUtils；

{$R *.dfm}

procedure TGeneric.Button1Click(Sender: TObject);
Var
  S: String;
begin
  S := '''A'',''B'',''C'',''D''';
  S := ReplaceText(S, '''', '');
  ShowMessage(S);
end;

S 现在等于 'A,B,C,D'。

ReplaceText 将调用 AnsiReplaceText，AnsiReplaceText 又调用 SysUtils.StringReplace，并为您设置替换标志 [rfReplaceAll, rfIgnoreCase]。

Answer 4

procedure TFormMain.Button1Click(Sender: TObject);
var
  s: String;
begin
  s := '''A'',''B'',''C'',''D''';
  s := StringReplace(s, '''', '', [rfReplaceAll]);
  /// now s contains 'A,B,C,D'
end;

Answer 5

这是一个编写起来相当简单的函数。要删除所有引号（字符串中存在多个引号），请使用 StringReplace，如上所示。
如果您只想取消对字符串的引用，可以这样做：

function UnQuote(Text: string): string; inline;
begin
  if ( Text.StartsWith('"') or Text.StartsWith('''') ) then
  begin
    if ( Text.EndsWith('"') or Text.EndsWith('''') ) then
      exit( copy(Text, 2, Text.Length-2) );
  end;
  result := Text;
end;

这个简单的例程理所当然地认为在返回内容之前两个引号都存在。您可以通过 pos() 搜索最后一个引号来使其变得更智能，但我将把它留给您。