delphi中怎么逐行读取文本文件的数据并将每行分别写入指定的不同编辑框

Posted 2023-03-23

参考技术A FileName:string;
f:Textfile;
s:string;

FileName:='C:\this.log';
AssignFile(f,FileName);//关联文件
Reset(f);
Readln(f,s); //读一行
memo1.Lines.Add(s); //写到MEMO1
ReadLn(f,s); //再读一行
memo2.Lines.Add(s);//写到MEMO2
CloseFile(f);//关闭追问

如果数据比较多的话，操作好像很麻烦

追答

给编辑框定一个命名规则，然后根据这个规则写入，举例，编辑框名为t1,t2,t3.......
容器为Panel1
t+循环变量 形成控件名称
edit := Panel1.FindChildControl(控件名称) as TEdit ;
if(edit null) then edit.Text:= txt中读出的数据

本回答被提问者采纳 参考技术B Readln 参考技术C 读取文件比较简单，但你要求的写入不同编辑框有点歧义：是你当前自己编写的窗口上的编辑框吗？追问

恩，比如说我非常第一行要写入EDIT1，第二行要写入EDIT2。我现在一个一个写可以实现，但如果数据多的，那量就非常大了

追答

说下思路：

1. 用TStringList载入文本文件。
2. 循环读取每行内容，并写入指定的编辑框。

小提示：如果你每行文本内容对应的编辑框都是指定的不同编辑框，那么建议在文本的每行除了内容之外，还需要保存编辑框的名称。

python读取文本文件，如何将每行最后一个特定字符替换？

python读取文本文件，每行最后一个/替换为\
文本文件列子如下： /咖啡/速溶咖啡/测试数据/测试数据2, 20220201
/咖啡/拿铁/测试/测试2/测试3/测试4, 20220202
/咖啡/卡布奇诺/测试测试/测试测 20220202
/咖啡/美式 20220203
请问应该如何写python语句？

方法：

解释，s.count(\'/\')计算原来有多少个特定字符串，然后第一步全部替换，第二步将count-1个还原

参考技术A

按照你的要求编写的用正则表达式替换的Python程序如下(注意图中源代码的缩进)

import re

with open("test.txt",'r') as f:

 for line in f:

  line_data=line.strip("\\n")

  result=re.sub(r'^(.*)/',r'\\1\\\\',line_data)

  print(result)

追问

大佬，在此基础上请教下，因为我这个文本是上百万行的。  原来的是 E:\\咖啡\\速溶咖啡\\测试数据\\测试数据2, 20220201
E:\\咖啡\\拿铁\\测试\\测试2\\测试3\\测试4, 20220202
E:\\咖啡\\卡布奇诺\\测试测试\\测试测 ,20220202
E:\\咖啡\\美式 20220203

我想要的结果是你这个最后的结果，应该怎么来写呢。

追答

如果输出到控制台,可以用下面的Python程序(见图1)

如果要把文件中的内容转换后写到另一个文件,用下面的的Python程序(见图2)



本回答被提问者和网友采纳