主题：实现替换功能和添加功能
hahaixix23
[专家分：0] 发布于 2007-10-17 15:17:00
请问一个问题，DELPHI语言的程序，实现的功能是：打开一个TXT文件，并使它在MEMO文框中显示，再逐行读取文件，每行都从行头开始,字符不分大小写，行头没有空格。要实现替换功能和添加功能。
例
将：
GOTO / -50.00000,-10.00000，-10.00,50.00，60.00
F 100
GOTO / 20 ,30, 40
转换成：
FOR X-50.00000,Y-10.00000，Z-10.00，A50.00，C60.00
F 100
FOR X20,Y30,Z40
回复列表 （共4个回复）
沙发
长尾兔 [专家分：3630] 发布于 2007-10-17 16:46:00
我看你还是先说一下你的文本文件是怎么形成的吧。
这样进行查找替换并不是不可以，而是很低级。
我的意思是，如果你的TXT也是你自己的程序生成的，那完全可以改变思路，用记录文件。
另外，关于：
发件人： hahaixix23
发送时间： 2007-10-17 14:24:00
内容： 李大哥，能不能帮忙推荐几本有利于DELPHI语言深入学习的书
-----我看过的Delphi方面的书，主要是：Delphi5开发人员指南、Inside VCL、Pascal精要（电子版）
板凳
hahaixix23 [专家分：0] 发布于 2007-10-18 08:40:00
谢谢了，我会仔细看看这几本书。
我的TXT文件不是自己程序生成的，是利用打开文件（Topendialog）功能，将TXT文件显示在memo中，然后再逐行读取，实现上面的功能。
3 楼
长尾兔 [专家分：3630] 发布于 2007-10-18 18:30:00
自己分析一下文本的规律，然后合理利用Copy、Length、Pos、StringReplace、CompareMem等函数，利用TStringList等类型，自己写代码吧。
你的上一贴的问题与此类似，建议你举一反三，编程是需要动脑筋的，别人给你写过的代码，你不要抄来问题解决了了事，而是要学会理解。
或者你等着除我之外的别人给你上面问题的代码。
4 楼
hahaixix23 [专家分：0] 发布于 2007-10-19 08:32:00
好的，我自己正在仔细推敲的，谢谢了
[em2]
我来回复
您所在位置：