主页 / 问题 / 1287195
Accepted
Татьяна
Asked:2022-05-28 21:13:38 +0000 UTC2022-05-28 21:13:38 +0000 UTC

如何将多条线路合二为一？

  • 772

文本文件包含如下行：

>>>
Stroka1
Stroka2
Stroka3
>>>
>>>
Stroka4
Stroka5
Stroka6
Stroka7
>>>

如何将符号>>>之间的线连接成一条线并在它们之间放置一个点。也就是说，结果应该是：

>>>
Stroka1.Stroka2.Stroka3
>>>
>>>
Stroka4.Stroka5.Stroka6.Stroka7
>>>

我阅读了有关该功能的信息（但据我了解，这是通过关键字进行的连接）：

result := Concat('Stroka1','Stroka2','Stroka3');
delphi

2 个回答

  1. 最简单的算法是：

    1. 逐行读取文件
    2. 如果我们看到一条线，那么我们通过一个“点”将它添加到一个临时变量中
    3. 如果我们看到分隔符，那么我们将步骤 2 中的变量写入新文件并写入分隔符，并清除临时变量。
    4. 其他动作（不带分隔符的文件的开头或结尾等） - 品尝

    如何连接？

    uses StrUtils;
...
s := s + IfThen(s <> '', '.') + newText;
    • 2
  2. Best Answer

    或者（如果文件不是巨大的）......

    var
  ts: TStringList;
   s: string;

...
ts := TStringList.Create();
try
  ts.LoadFromFile( 'c:\temp\lines.txt' );
  s := StringReplace( ts.Text, ts.LineBreak, '.', [ rfReplaceAll ] );
  s := StringReplace( s, '>>>.', '>>>' + ts.LineBreak, [ rfReplaceAll ] );
  s := StringReplace( s, '.>>>', ts.LineBreak + '>>>', [ rfReplaceAll ] );
  ts.Text := s;
  ts.SaveToFile( 'c:\temp\lines-new.txt' );
finally
  ts.Free();
end;
...
    • 1

相关问题