查看完整版本: 用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

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

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

[table=95%][tr][td][color=#000000]arrstr[color=#0000cc]=[/color][color=#ff0000]split[/color][color=#0000cc]([/color][color=#ff00ff]" "[/color][color=#0000cc],[/color]SkipLineInFile [color=#0000cc])[/color]

[color=#0000ff]if[/color] arrstr[color=#0000cc]([/color]1)[color=#0000cc]=[/color]0 [color=#0000ff]then[/color]
[color=#0000cc]'[/color]执行操作
[color=#0000ff]end[/color] [color=#0000ff]if[/color][/color][/td][/tr][/table]

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