本帖最后由 batman 于 2011-5-23 17:57 编辑
- Set fso = CreateObject("scripting.filesystemobject")
- vbstr = Replace(fso.OpenTextFile("a.txt", 1, 1).ReadAll, "!", "!#")
- vbstr = Replace(vbstr, ".", ".#")
- vbstr = Replace(vbstr, "?", "?#")
- For Each str In Split(vbstr, "#")
- i = i + 1
- vbvar = vbvar & str
- If i = 10 Then
- vbvar = vbvar & "</br>"
- j = j + 1:i = 0
- If j = 5 Then
- vbvar = vbvar & "http://www.baidu.com"
- j = 0
- End If
- End If
- Next
- fso.OpenTextFile("1.txt" , 2 ,1).Write vbvar
- Set fso = Nothing
复制代码
|