Question

delphi 实现 一个按钮将多个txt文件通过文件内部的标识将各条信息组合起来，并用memo显示出来

delphi 实现 一个按钮将多个txt文件通过文件内部的标识将各条信息组合起来，并用memo显示出来

Answer 1

从问题描述来看，是实现当点击某按钮时，将多个特定格式的txt文件，按规则组合起来。

提供一些思路：
一、界面设计
窗体上，除了 button、Memo 控件外，要实现选择多个 txt 文件，可以使用 filelist / shellList 等控件。
二、通过文件内部的标识将各条信息组合起来
建议可以考虑使用 TStringList：
TStringList 提供了以下功能：
1、从文件中载入内容 LoadFromFile
2、对载入的内容可以逐行进行操作。
因此，可以载入txt内容后，从头逐行匹配标识，从标识头开始将内容添加到 Memo 中，直至标识尾。

追问

我是想这么实现 就想通过一个按钮 载入一个文件之后 在通过按钮再次导入另一个文件 当多个文件载入完成之后 按照文件中的标识。筛选信息读入数据库 。 我刚接触delphi 小白一个 不知道这个东西怎么弄？

追答

简单示例：

界面如图

代码：

procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
begin
  sl := TStringList.Create;
  if FileOpenDialog1.Execute then
  begin
    sl.LoadFromFile(FileOpenDialog1.FileName);
    Memo1.Lines.AddStrings(sl);
  end;
  sl.Free;
end;

追问

这个我做完了 就是不知道再次导入一个新的txt之后该怎么处理 没什么思路。。。。。都快烦死了！！！

Answer 2

1. 使用memo的loadfile函数，加载TXT文件，然后分析TXT里面的文件内部标识，然后保存需要保存的文本，然后分析下一个TXT文件。。然后组合到一起就行了

追问

下一个文件要重新加载进去？ 但是不会重新加载 通过一个按钮还要加载不同信息，不同格式的文件 不太会弄！！！

追答

声明一个memo类型的变量，然后选择文件的地方，选择文件夹，默认搜索里面的TXT文件，重复加载即可，看下面的图大概就是这意思。。之前我自己写的 分析文本的一个工具软件。