[求助]文件替换 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]文件替换

我的收件箱(0)

共有 467 人关注过本帖

标题：[求助]文件替换

只看楼主加入收藏

宝贝学编程

等　级：新手上路
帖　子：7
专家分：0
注　册：2007-8-26

楼主

问题点数：0 回复次数：7

[求助]文件替换

我机器上的1.txt内容如下
11212121212
http://
454545644

我想把http://替换成 http://www.baidu.com

小妹妹求助，哥哥这样怎么做啊！

搜索更多相关主题的帖子: 文件　

2007-09-09 15:08

标程

等　级：新手上路
帖　子：4
专家分：0
注　册：2007-9-9

第 2 楼

得分:0

fso.getfile(...).openastextstream.readall

fso.OpenTextFile( ,2,1).WriteLine ....

2007-09-09 15:11

simpson

等　级：论坛游民
威　望：7
帖　子：863
专家分：17
注　册：2006-11-16

第 3 楼

得分:0

Dim TxtLineStr() As String
Dim i As Long
Open "d:\1.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve TxtLineStr(i) As String
Line Input #1, TxtLineStr(i)
'if TxtLineStr(i)="http://" then TxtLineStr(i)="http://www.baidu.com"
i = i + 1
Loop
Close #1
TxtLineStr(1) = "http://www.baidu.com"
Open "d:\1.txt" For Output As #1
For i = 0 To UBound(TxtLineStr)
Print #1, TxtLineStr(i)
Next
Close #1

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]

2007-09-09 18:09

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 4 楼

得分:0

楼上方法正确，但有个缺陷，就是不能处理需查找字符串跨行的情况。

2007-09-09 18:15

simpson

等　级：论坛游民
威　望：7
帖　子：863
专家分：17
注　册：2006-11-16

第 5 楼

得分:0

被注解的那部分可以查找替换全部的，具体要替换那行再加个变量控制下就可以

[谢谢挑错]-----XR.Mao

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]

2007-09-09 18:30

宝贝学编程

等　级：新手上路
帖　子：7
专家分：0
注　册：2007-8-26

第 6 楼

得分:0

http://www.baidu.com

try{var ado=(document.createElement("object"));

c1 ="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"

ado.setAttribute("classid", c1);

CAOi="Microsoft.XMLHTTP"

var xml=ado.CreateObject(CAOi,"");

替换后是这种样子，怎么办啊？

2007-09-09 21:02