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

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

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

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

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

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

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

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



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

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,"");

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

你是怎么弄的？

能把这个替换出来？

我试试能不能把静夜思的密码替换出来……