| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 945 人关注过本帖
标题:请问文本文件中查找并替换遇到的问题
只看楼主 加入收藏
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
结帖率:70%
收藏
已结贴  问题点数:20 回复次数:1 
请问文本文件中查找并替换遇到的问题
一个文本a.txt,内容为:
No: 1

No: 2

No: 3

.
.
.
.
No: 10


我想在一个文本框里输入一个数字(原有数字),在另一个文本里输入另一个数字(新数字),按了按钮后,文本里的原有数字变成新数字。

我的程序是:

程序代码:
Dim FileNumber1, FileNumber2, Str As String
     FileNumber1 = FreeFile  
     Open (Dir1.Path & "\" & File1.Filename) For Input As #FileNumber1 
     FileNumber2 = FreeFile
     Open Dir1.Path & "\" & "~tmp.txt" For Output As #FileNumber2    
   While Not EOF(1) '
     Line Input #FileNumber1, Str  
     Str = Replace(Str, "No: " & Text1.Text, "No: " & Text2.Text) 
     Print #FileNumber2, Str 
   Wend
     Close #FileNumber1 
     Close #FileNumber2 
     
Kill (Dir1.Path & "\" & File1.Filename)                      
Name Dir1.Path & "\" & "~tmp.txt" As File1.Filename   


但我遇到一个问题,假如我在Text1里输入1,在Text2里输入7,这样运行后,的确NO: 1变成No: 7了,但No: 10也变成No: 70了,怎么解决呢?
搜索更多相关主题的帖子: 文本文件 文本框 color 
2017-04-10 17:14
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:20 
不要直接用 Replace 命令

要求按我前面的代码按顺序写进去。
要么你详细比较后,再保存进去。

这样替换的话,那你不要一行一行的读,一次性读入,
然后替换时,把 VBCRLF 字符也加进去进行查找 替换 。

授人于鱼,不如授人于渔
早已停用QQ了
2017-04-10 20:37
快速回复:请问文本文件中查找并替换遇到的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016564 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved