Const MyFile = "D:\1\MyFTPthroughputvalue.txt"
Const ResourceFile = "D:\1\ftpthroughput20090827.txt"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
FindString()
Sub FindString()
Dim fs,f,ts,t,st,st2,st3,st4,st5,st6
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(ResourceFile)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Do While ts.AtEndOfStream <> True
t = ts.ReadLine()
st3 = InStr(t,"====")
st = InStr(t,"D:\Temp\bigfile")
st2 = InStr(t,"ftp:")
If st3 <> 0 then MyData(t)
If st <> 0 then MyData("#################################") :MyData(t)
If st2 <> 0 Then MyData(t) :st4 = Split(t):st5 =Split(st4(5),"S") :st6 = st4(1)/st5(0)/1024/1024*8:MyData(st6)
Loop
End Sub
Sub MyData(t)
Dim fs,f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(MyFile,ForAppending,TristateUseDefault)
f.WriteLine(t)
f.Close
End Sub