发新话题
打印

用vb脚本察看txt的内容

用vb脚本察看txt的内容

比如c:\testfile.txt内容如下:
1254   4561  5421
5454  123   6546
2323   233   432

当123位置的值为0时net send ip ******进行报警,用vb脚本怎么编写此段程序,虽然简单,但还请高人指点。谢谢

我所知道开始的一点是
Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  f.SkipLine
  SkipLineInFile = f.ReadLine

[ 本帖最后由 jukefeiyun 于 2007-7-9 17:30 编辑 ]

TOP

可以用split函数把行和列分开。

arrstr=split(" ",SkipLineInFile )

if arrstr(1)=0 then
'执行操作
end if
换个头像,看见广告就眼红,直接封ID。

TOP

正是有各位老师的无私帮助,我的脚步才得以前进,衷心感谢您,谢谢

TOP

发新话题