头文件(.vbs以外的文件需要,例如.txt)
#$Language="VBScript"
#$Interface="1.0"
16. 获取屏幕打印GET(不带格式)、GET2(带格式-回车\R\N) getscreen = crt.Screen.Get(5,1,10,41)
crt.Dialog.MessageBox getscreen
getscreen = crt.Screen.Get2(5,1,10,41)
crt.Dialog.MessageBox getscreen
17. 获取当前行、列位置(通过当前位置定位) crt.screen.CurrentColumn (列位置)
crt.screen.CurrentRow (行位置)
crt.Screen.Columns (总行数) screenrow=crt.screen.CurrentRow
crt.Screen.Send "help" & VbCr
crt.Sleep 2000
getscreen = crt.Screen.Get2(screenrow-3,1,screenrow-1,41)
数组
普通方式:
Dim arr(2) ‘静态数组声明
arr(0) = “test1″
arr(1) = “test2″
arr(2) = “test3″
msgbox arr(1) ‘打印出test2
Array函数方式:
arr= Array(“t1″,”t2″,”t3″)
msgbox arr(1) ‘打印出t2
Split函数
stng = "t1,t2,t3"
arr = Split(stng,",")
MsgBox arr(0)
MsgBox arr(1)
MsgBox arr(2)
#$Language="VBScript"
#$Interface="1.0"
16. 获取屏幕打印GET(不带格式)、GET2(带格式-回车\R\N) getscreen = crt.Screen.Get(5,1,10,41)
crt.Dialog.MessageBox getscreen
getscreen = crt.Screen.Get2(5,1,10,41)
crt.Dialog.MessageBox getscreen
17. 获取当前行、列位置(通过当前位置定位) crt.screen.CurrentColumn (列位置)
crt.screen.CurrentRow (行位置)
crt.Screen.Columns (总行数) screenrow=crt.screen.CurrentRow
crt.Screen.Send "help" & VbCr
crt.Sleep 2000
getscreen = crt.Screen.Get2(screenrow-3,1,screenrow-1,41)
数组
普通方式:
Dim arr(2) ‘静态数组声明
arr(0) = “test1″
arr(1) = “test2″
arr(2) = “test3″
msgbox arr(1) ‘打印出test2
Array函数方式:
arr= Array(“t1″,”t2″,”t3″)
msgbox arr(1) ‘打印出t2
Split函数
stng = "t1,t2,t3"
arr = Split(stng,",")
MsgBox arr(0)
MsgBox arr(1)
MsgBox arr(2)