|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/4/11 22:36:26 |
标题: |
|
加入我的收藏 |
楼主: |
比如我想查找“A.TXT”文件中的所有“ABCDEF”字串,并替换成“qwreewq”,并要另存为“B.TXT”文件。
谢谢!
----------------------------------------------
人在江湖漂,哪能不挨刀! |
作者: |
|
2004/4/12 1:12:44 |
1楼: |
1.查找对话框部件为应用程序提供查找对话框,用户可使用查找对话框在文本文件中查找字符串。可用Execult方法显示查找对话框,应用程序要查找的字符放到FindText属性中。Options 属性可决定查找对话框中有哪些选项。
2.替换对话框部件为应用程序提供替换对话框,它包括查找对话框的所有功能,此外还允许使用者更换被选中的字符串。FindText 属性是应用程序需查找的字符串。ReplaceText属性是被选中字符的替换字符串。Options 属性决定对话框的显示方式。
3.使用文件保存对话框,保存文件!
以上组件在Dialogs标签中...
----------------------------------------------
-
|
作者: |
|
2004/4/12 11:10:55 |
2楼: |
我的意思是不要这些对话框什么的,要它对后台(不知是不是这么说)自己进行查找替换保存~~
----------------------------------------------
人在江湖漂,哪能不挨刀!
|
作者: |
|
2004/4/12 18:28:30 |
3楼: |
procedure freplace: var st: TStrings; begin st := TStringList.Create; st.LoadFromFile('c:\A.txt'); StringReplace(st.Text, 'ABCDEF', 'qwreewq', [rfReplaceAll]); st.SaveToFile('c:\B.txt'); st.Free; end;
----------------------------------------------
www.acreport.com
|
作者: |
|
2004/4/12 18:30:07 |
4楼: |
修改一下: procedure freplace: var st: TStrings; begin st := TStringList.Create; st.LoadFromFile('c:\A.txt'); st.Text := StringReplace(st.Text, 'ABCDEF', 'qwreewq', [rfReplaceAll]); st.SaveToFile('c:\B.txt'); st.Free; end; ----------------------------------------------
----------------------------------------------
www.acreport.com
|
作者: |
|
2004/4/13 13:43:21 |
5楼: |
非常感激!远洋大哥!
----------------------------------------------
人在江湖漂,哪能不挨刀!
|
|