|
anqing
高级用户
积分 859
发帖 413
注册 2006-8-14
状态 离线
|
『第
16 楼』:
字符串也可以是变量
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为参数的变量
|
|
 2007-2-12 01:12 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
17 楼』:
上面的不是对整个文本的!
开始的几句你看了没?
先读取文本^
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
|
|
|
2007-2-12 01:57 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
18 楼』:
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
|
|
|
2007-2-12 02:02 |
|
|
anqing
高级用户
积分 859
发帖 413
注册 2006-8-14
状态 离线
|
『第
19 楼』:
上面的不是对整个文本的!
开始的几句你看了没?
先读取文本^
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
|
|
|
2007-2-12 02:08 |
|
|
anqing
高级用户
积分 859
发帖 413
注册 2006-8-14
状态 离线
|
『第
20 楼』:
ff=Replace(m,glhz(m),"") '现在m就是变量,是文本里的一行
这句的意思是，把m，就是文本的一行清空吗、。
|
|
|
2007-2-12 02:13 |
|
|
