VBScript学习资料及工具

海龙

第三阶段的工具课程，需要有一定的编程知识，QuickTest使用的是VBScript脚本语言，请大家在第一二阶段的学习过程中抽时间将VBScript语言学习一下，VBScript本身很简单，我已经上传了帮助文档和开发工具地址。请自行下载，然后参考帮助进行练习。


PrimalSCRIPT 介绍：
       一款非常强大的程序代码编辑器！它支持超过30种的编程语言的语法突显，提供方便的向导功能以及强大工程和模板管理功能，还有特别为程序员而设计的代码编辑功能，如：自动完成关键字，成员列表，动态提示参数信息，自动更正大小写，添加/减少缩进，批量注释/反注释等，并且还提供了十六进制编辑功能。

网址：http://www.sapien.com/
请下载试用版本。



[ 本帖最后由 海龙 于 2006-5-16 13:31 编辑 ]

yang119345

谢谢海龙老师提供资料:)


PrimalScript v3.1.454 特别版（带注册机）
http://down.chinaz.com/s/9268.asp

[ 本帖最后由 yang119345 于 2006-5-29 16:52 编辑 ]

warning

顶 学习先
小蘑菇还我sf

夏雪

马上下载

阅微草人

下载完毕，马上去学习。

ShmilyXiao307

用心良苦,立刻行动起来...

差点忘了说,
海龙老师的耐性貌似已经达到了一定的境界,佩服,更多的是感动...

changfeng

非常感动。。。。
更多的是感谢海龙老师，崇拜ing！！
大家立即行动，不要辜负海龙老师哦！！

yjshen

谢谢海龙老师了~~~~
收下了~~~

regoo_0

谢谢，王海龙老师
正在学习中。。。。。

guoyubill

谢谢王老师。。学习！

guolm1225

原帖由 guoyubill 于 2006-5-24 11:57 发表
谢谢王老师。。学习！

guoyubill..........郭宇吧，哈哈sdlkfj3

heale

太感动了。。。。
谢谢海龙老师，太崇拜了！！

舞の月

收到`~顶起

海龙

用VBScrip编写的存取文本文件、Excel文件的演示代码。

同时鼓励大家将自己完成的代码拿出来共享。

海龙

扩展名为VBS的VBScript文件，双击即可执行，因为Windows自带运行环境。

小南

原帖由 海龙 于 2006-5-30 09:30 发表
用VBScrip编写的存取文本文件、Excel文件的演示代码。

同时鼓励大家将自己完成的代码拿出来共享。

我也提供两个自己写的东西：

1.读取指定位置所有文件夹名写入指定文件：
2.读取指定位置所有文件夹名建立XML文件：

[ 本帖最后由 小南 于 2006-5-30 09:38 编辑 ]

小南

vbs在命令行中调用的话最好用cstring来驱动执行，直接执行的话在WIN2003版本中会跳出ALERT框，必须手动去除。所以如果想实现远程cmd调用vbs的话建议用csting来驱动。

小南

原帖由 海龙 于 2006-5-30 09:30 发表
用VBScrip编写的存取文本文件、Excel文件的演示代码。

同时鼓励大家将自己完成的代码拿出来共享。

Dim orderno,conn,input,output,filename  '<-output没有用到
filename="C:\Test.xls"
Set conn= createobject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&filename&";Extended Properties='Excel 8.0;hdr=yes'"
Set input= createobject("ADODB.Recordset")
input.Open "select  *   from [sheet1$] " ,conn,2,2
input.MoveFirst
MsgBox "Name: "& input("name") & VbCrLf & "Age: " & input("age") & VbCrLf & "Tel: " &input("Tel"),,"www.51testing.com"
input.AddNew
input("name")="王五"
input("age")="34"
input("Tel")="33445566"
input.Update
input.close
Set output=Nothing　'<-output如果没有用到的话这里是不是应该是input
Set conn=Nothing
____________________________________________________________________________________________

再次感谢海龙老师知识分享！

caowenbin

挺有意思

海龙

原帖由 小南 于 2006-5-30 13:48 发表



Dim orderno,conn,input,output,filename  '<-output没有用到
filename="C:\Test.xls"
Set conn= createobject("ADODB.Connection")
conn.Open "Provi ...

代码是从其他的代码里面部分取出来的，有些变量没有删除，自己删掉好了