DELPHI逐行读取指定文本内容的问题

和你以前回答的问题类似，链接（http://zhidao.baidu.com/question/1894775945492818420.html?qbl=relate_question_2&word=delphi%20%D6%F0%D0%D0%B6%C1%C8%A1%B2%A2%CF%D4%CA%BE）

想要完成以下功能：
1、先判断固定位置从第10至15字符是否为ABCDE,如果是则将本行的第1至5，第20至25的内容复制下来并追加到另一个文本文件中去，一直到最后一条，并记录最后一条的数据；
2、因为此文件是一直在增加内容，想要按照保留的最后一条数据，再按第1点的内容向下进行判断，以减少系统资源浪费；
请问这个应该如何写代码？

举报该问题

推荐答案 2015-07-08

readln(f, s);
if s.Substring(10,5)='ABCDE' then
begin
ts := Copy(s, 1, 5)+Copy(s, 20, 5);

Writeln(rf, ts);

end
...
//while 结束

记录下sc:=s追问

在if s.Substring(10,5)='ABCDE' then 这里报错是什么原因，光标在s.那里，是不是substring不对?

追答

我在DELPHI XE8里写的，如果不行你就用COPY方法吧

追问

大神，能不能提供完整的代码？我输入 s.后，提示
[Pascal Error] Unit1.pas(1): Unable to invoke Code Completion due to errors in source code

温馨提示：答案为网友推荐，仅供参考

当前网址：http://44.wendadaohang.com/zd/R36663WDDGVWRK3DZV.html

相似回答

delphi中怎么逐行读取文本文件的数据并分别写入指定的位置答：可以利用TStringList来读入文本文件 FTextList:=TStringList.create;FTextList.loadFromfile('c:\cc.txt');for i:=0 to FTextList.count -1 do begin ...end;

如何用Delphi读取属性指定的内容答："name">和 </column>的位置即可得出姓名的位置和长度，取出姓名重复直到文件尾。

DELPHI逐行读TXT传送TXT内容至TEDIT,并逐行传送后TEDIT带自动回车_百 ...答：Try Filter := '文本文件|*.TXT';If Execute Then //弹出选择需要读取的TXT档的对话框 Begin Edit1.Clear;afile := FileName;alist.LoadFromFile(afile); //程式读取TXT档的内容 If alist.Count > 0 Then Begin Edit1.Text := alist[0]; //并把TXT档的内容第一行传到TEDIT里 alist....

delphi中怎么逐行读取文本文件的数据并将每行分别写入指定的不同编辑...答：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);//关闭 ...

大家正在搜

为了从文本文件中逐行读取内容 c读取文本文件内容 Python读取文件的一段内容 powershell逐行读取文本 python读取文本内容按键精灵逐行读取文本读取文本文件用什么流 java读取文本文件 labview读取文本文件