利用vbscript vuser脚本创建数据文件

hlw1013

因为测试需要生成大量的不同文件名的TXT文件
实现方法如下：
1首先新建一个vbscript vuser脚本
2在global.vbs中插入如下函数
  Sub Createfile()
   Dim fso, tf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set tf = fso.CreateTextFile("Z:\MSI_IN\SC_IP" + lr.eval_string("<Unique_number>") + ".msi", True)
   tf.WriteLine("第一行" + lr.eval_string("<Param1>") + "第一行")   
   tf.WriteLine("第二行")
   tf.WriteLine("第三行")
   。。。。。。
  End Sub
其中Unique_number为LR中定义的参数，参数类型选择唯一值，与不同的常量（“SC_IP”及".msi“）结合即可生成不同文件名的大量文件，如果运行多用户的话注意block size的设置，否则如果运行的虚拟用户或者迭代次数过多时会出错，生成的文件内容也同样可以参数化，Param1即为参数，要注意参数的使用格式
3在action中插入Createfile()
4在cotroller中运行脚本，可以设置多个虚拟用户，指定迭代次数决定要生成多少个文件。如果需要长时间不断生成的话就指定运行时间。

angelwamy

VB的 更适合QTP吧

423799223

如果是生成文件不如拿.net写个小工具  比vbs方便多了  无非就是一些写文件操作