DELPHI逐行读取指定文本内容的问题
和你以前回答的问题类似，链接（http://zhidao.baidu.com/question/1894775945492818420.html?qbl=relate_q...
和你以前回答的问题类似，链接（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点的内容向下进行判断，以减少系统资源浪费；
请问这个应该如何写代码？ 展开
想要完成以下功能：
1、先判断固定位置从第10至15字符是否为ABCDE,如果是则将本行的第1至5，第20至25的内容复制下来并追加到另一个文本文件中去，一直到最后一条，并记录最后一条的数据；
2、因为此文件是一直在增加内容，想要按照保留的最后一条数据，再按第1点的内容向下进行判断，以减少系统资源浪费；
请问这个应该如何写代码？ 展开
展开全部
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
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方法吧
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
