Question

请帮我写一个完成下面任务用的delphi7代码，谢谢

分别打开文件夹下的多个文件来按后面描述的处理（文件里的内空结构一致，都有下面说到的情况），我需要写代码读取第一个字符串是字母CIRCLE或CLOSED或OPEN的行（这一行一共有5位，每位之间有空格），然后判断第4位的数字如果是1则把1改为27，如果第4位的数字是20则再判断第1个字符串是circle还是closed如果是circle则把这第一个字母串改为KPTCIR，如果是closed则把这第一个字母串改为KPTCLS,同时把这个20改为1，如果文件内所有行都不符合则关闭文件再打开下一个文件再进行上述判断，如果打开的文件符合上面说到的情况则按情况处理后保存该文件，然后再打开下一下文件继续处理，直到文件夹下文件全部处理完结束程序。谢谢

Answer 1

贴出实际的行是什么样的，可以教你用别的方法实现，写程序不想费这时间，因为你这明显不是作业或者学生会遇到的问题之类的。

追问

是的，为了解决工作用遇到的一个小问题，提高一点工作效率，而且只用一次！因我遇到这样的问题总想用程序去高效解决，刚刚自学delphi感觉不够用，希望通过大家的程序学会一些实用的编程。谢谢

粘贴完文字后显示超出最大允许值，所以发图片说明源文件内容，谢谢

追答

在很多情况下写程序都是最慢的方法，你这种需求用普通的支持正则表达式的编辑器替换就行了，电脑不在身边暂是试不了，你可以先自己了解一下。

Answer 2

有点麻烦啊，你愿意出多少钱？

追问

就几个判断，麻烦吗？这也要钱？不是给知道的财富值了吗？