中国DOS联盟

字符串也可以是变量
m就是一个变量它等于file.readline也就是在TXT文件里读取了一行，这回明白了吗？
（是循环读取的所以m的值总是变的）
再不明白我也没办法了 :(
Function glhz(zhifu)
a=Len(zhifu)
For i=1 To a
b=Mid(zhifu,i,1)
If IsNumeric(b)=True then
glhz=glhz&Mid(zhifu,i,1)
End if
next
end Function
能不能用以上的代码，举一个例子。
也是针对txt为参数的变量

上面的不是对整个文本的!

开始的几句你看了没?
先读取文本^
Set fle=fso.opentextfile(Dateadd("d",-6,Date) & ".txt") '打开以现在6天前的时间为名字的文本文档
Do While fle.AtEndOfStream<>True 'fle.AtEndOfStream如果为true就是说到了文件的末尾
m=fle.readline '行读取文本
ff=Replace(m,glhz(m),"") '现在m就是变量,是文本里的一行
s=s & chae(ff,glhz(m)) & vbcrlf
Loop
fle.Close

Dim StrAll
Set ws=Createobject("wscript.shell")
Set fso=Createobject("scripting.Filesystemobject")

Set fle=fso.opentextfile("1.txt")
StrAll=fle.readall
fle.Close

Set file=fso.createtextfile("2.txt")
file.write Replace(StrAll,vbcrlf,"<8>")
file.Close

上面的不是对整个文本的!

开始的几句你看了没?
先读取文本^
Set fle=fso.opentextfile(Dateadd("d",-6,Date) & ".txt") '打开以现在6天前的时间为名字的文本文档
Do While fle.AtEndOfStream<>True 'fle.AtEndOfStream如果为true就是说到了文件的末尾
m=fle.readline '行读取文本
ff=Replace(m,glhz(m),"") '现在m就是变量,是文本里的一行
s=s & chae(ff,glhz(m)) & vbcrlf
Loop
fle.Close



不明白的，就是这两句：
ff=Replace(m,glhz(m),"") '现在m就是变量,是文本里的一行
s=s & chae(ff,glhz(m)) & vbcrlf

ff=Replace(m,glhz(m),"") '现在m就是变量,是文本里的一行
这句的意思是，把m，就是文本的一行清空吗、。