主页 / 问题 / 1243003
Accepted
Татьяна
Asked:2022-02-12 04:58:22 +0000 UTC2022-02-12 04:58:22 +0000 UTC

在最后一个字母之后向字符串添加一个单词

  • 772

有这样的线条

dsdddfffdfd:dsds1980
dsddd1fff11dfd:ds1ds1987
ds111ddfffdfd:dsdw12s1981

您需要在每行的最后一个字母之后添加单词Test。也就是说，结果应该是：

dsdddfffdfd:dsds**Test**1980
dsddd1fff11dfd:ds1ds**Test**1987
ds111ddfffdfd:dsdw12s**Test**1981

在行尾添加可以理解为：S:= S + 'Test';

但是不知道如何解决这个问题。

delphi

2 个回答

  1. Best Answer

    方法的任务TRegEx.replace()。它接收文本字符串、模板和替换字符串作为输入。

    result := TRegEx.replace(txt, '(\d+)$', '**test**\1');

    在模板中$- 行尾，()- 捕获组，我们从行中提取它。\d+- 一位或多位数字。接下来，在替换字符串中，我们可以通过\1.

    • 3

  2. 这是对我有用的代码：

    Label1.Caption:='aaaaaaaa'+#13#10+'bbbbbbb'+#13#10+'cccccccc';
Label2.Caption:=StringReplace(Label1.Caption,#13#10,'Test'+#13#10,[rfReplaceAll,rfIgnoreCase])+'Test';

    拐杖，但工作:)

    如果您愿意，您可以梳理头发，但我想指出您正在处理的两点：

    1. 在行尾换行符#13#10(Enter)。
    2. StringReplace我用来替换的功能（你可以做得更漂亮）。
    • -1

相关问题