主页 / 问题 / 1245180
Accepted
Татьяна
Asked:2022-02-17 20:14:17 +0000 UTC2022-02-17 20:14:17 +0000 UTC

将字符串修剪到最后一个字母

  • 772

如何删除文本文件中直到最后一个字母的行。

文本文件示例（所有字母均为英文）：

1Zadacha123=gotovo555
2Zadachawer=net543
3adacha123=est32

在输出中我们得到：

555
543
32

如何删除某个字母很清楚，如下所示：

删除(s,1,pos('字母',s));

或者

s:=copy(s,1,pos('Буква',s)-1);

添加代码：

uses
  Winapi.Windows, Soap.EncdDecd, System.Hash, Winapi.Messages, System.SysUtils,
  System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, RegExpr, FileCtrl, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls,
  Vcl.Buttons, Vcl.StdCtrls,
  Vcl.ExtCtrls, System.IOUtils, System.DateUtils, StrUtils, System.Types,
  System.IniFiles, Vcl.ImgList,
  System.Math, Vcl.Samples.Spin, ShellApi, System.Generics.Collections,
  System.Generics.Defaults,
  System.ImageList;

procedure TForm1.Button2Click(Sender: TObject);
Var
  sl: TstringList;
  i: integer;
Begin
  sl := TstringList.Create();
  sl.loadFromFile('Загрузить.txt');
  for i := 0 to sl.Count - 1 do
  begin
    sl[i] := TRegExpr.replace(sl[i], '.*?(\d+)$', '$1');

  end;
  sl.SaveToFile('Сохранить.txt');
End;

它在线上抛出一个错误

sl[i] := TRegExpr.replace(sl[i], '.*?(\d+)$', '$1')

编译时：不兼容的类型： “布尔”和“字符串”

delphi

2 个回答

  1. 作为一种选择：

    const
  numb = ['0' .. '9'];
var
   s: string;
   i: Integer;
begin
 s := '1Zadacha123=gotovo555';
 i := length(s);
 while i > 0 do
   if s[i] in numb then
      Dec(i)
   else
      Break;
 s := Copy(s, i + 1, length(s));
 Writeln(s);

    停止条件意味着应该提取最后一组数字。

    • 2
  2. Best Answer

    此任务与调查中的前一个任务没有太大不同，您**test**在最后一个字母之后插入。

    例如，加载整个文本文件TStringList并逐行处理。如果文件很大，则可以使用其他方式逐行读取文件，将结果写入另一个文件。

    接下来，遍历这些行，并使用正则表达式，执行以下选项之一：

    • 用这些数字替换所有符合要求的内容
    • 拉出最后一位数字并用它完全替换字符串。

    在第一种情况下，我们有类似这样的代码，使用TRegEx.replace()

    sl := TStringList.create();
sl.loadFromFile('D:\qwe.txt');

for i := 0 to sl.Count - 1 do begin
     sl[i] := TRegEx.replace(sl[i], '.*?(\d+)$', '$1');   
    
end;

sl.saveToFile(...);
sl.free()

    第二个，我们使用TRegEx.match()

    m := TRegEx.Match(sl[i], '.*?(\d+)$');
if (m.Success) then begin
    sl[i] := m.Groups[1].Value;
end;
    • 1

相关问题