VBstript的字符串处理问题？

TANCH

各位目前有这样一个VBstript问题求助：

目前我的思路是这样的，关于QTP的一些脚本参数（如录制脚本中需要填入IP地质、协议等）放在单独的一个文件里，问题就在于如何从这个文件里读出相关的值？

好像有两个思路，一个是利用READALL或READLINE命令把文件里的字符串读出来，然后做字符串处理，查找相关的值（好像比较烦琐）；另外我还有一个想法，能否直接在配置文件对变量赋值，然后告诉VBstript在这里引用就可以了。

这两种方式能否实现？

TANCH

岂止不熟悉,这周二才开始摸的QTP和VBstript.不过这个问题总算解决了,用了另外一个方法,简单很多.

代码在这里
http://bbs.51testing.com/viewthr ... &extra=page%3D1

[ 本帖最后由 TANCH 于 2006-6-9 17:35 编辑 ]

xiaonan

"startip  192.168.0.100"从这个上面看是以空格搁开的,那就用Split来搁开放到一个数组里啊.
Tmp = Split(MyFile.ReadLine, " ")
a=tmp(0)
b=tmp(1)
那a取到的应该是startip,b取到的是192.168.0.100
有什么问题吗?
是不是你对Split函数不熟悉啊?

TANCH

实际写的时候遇到的困难是，

可以查找startip字符串，但如何取到它后面的192.168.0.100

xiaonan

这个也容易啊,看你的空格分开的,那就用空格来分割啊,取你想取的数据啊

TANCH

恩，明白你的意思了。唯一遗憾CONGFIG的格式不是我定的……
是类似：
startip  192.168.0.100
endip  192.168.0.200
……
之类的格式。

我现在的想法是把整个文件读出到BUFFER里，然后利用字符串查找startip，然后取后面的值，再把后面的值赋给变量。

能给一些建议或者例子么？

多次得到你的帮助，十分感谢。

xiaonan

先准备一个数据文件,可以把你想要数据给列好.一次脚本所用的所有数据放在一行,分别用逗号搁开.
然后可以参照这样,我这里以一行3个字段为例.
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("D:\数据比较.txt", 1 , False)
Do While MyFile.AtEndOfLine <> True
Tmp = Split(MyFile.ReadLine, ",")

username=tmp(0)
password=tmp(1)
ziduan=tmp(2)
loop
MyFile.Close

TANCH

晕倒……

VBstript不熟啊，不知道第二种方式能否实现。

walker1020

既然你自己有思路，为什么不自己去尝试一下呢？ 这样不是比别人给你答复更有用处吗？