按键精灵脚本返回值是数组
发布时间: 2025-06-18 22:19:04
‘壹’ 按键精灵如何判断文件名称,比如说文件夹里面有,王者1,王者2,王者3,大师1,大师2,大师3,
Function遍历指定目录下所有文件名(文件夹路径)
//注意:返回的是数组变量,存储着每一个文件名。
//例子:数组=lib.文件.遍历指定目录下所有文件名("C:")
//Fori=0toUBound(数组)-1
//TracePrint数组(i)
//Next
Dim文件名,fso,folder,f,files
文件名=""
Setfso=CreateObject("Scripting.FileSystemObject")
Setfolder=fso.getfolder(文件夹路径)
Setfiles=folder.files
ForEachfInfiles
文件名=文件名&f.name&","
Next
Setfso=Nothing
//遍历指定目录下所有文件名=文件名
遍历指定目录下所有文件名=Split(文件名,",")
EndFunction
‘贰’ 按键精灵读txt文本内容将内容输入到指定网页登入。循环登入!文本格式如图。每次读一行有3个内容用|
用数组拆分即可
把你的记事本放C盘根目录,命名为log
如下代码
For s=1 to 3
返回值 = Lib.文件.读取指定行文本内容("C:\log.txt",s)
数组拆分=Split(返回值,"|")
数量=UBound(数组拆分)
For i = 0 To 数量
TracePrint 数组拆分(i)'这边输出每个分隔符的内容 名字--账号--密码
Next
Next
‘叁’ 按键精灵安卓版如何获取动态数组的最大下标
这个我就复制帮助文件里的介绍了
命令名称:
UBound 数组长度
命令功能:
获取数组的长度
语法格式:
UBound(arr)
参数说明:
arr:数组变量
返回值:
用于确定数组的大小,返回指定数组的最大下标(仅限一维数组)
脚本例子:
复制代码
//2.62版之后的写法,内置UBound函数了:
Dim a=array("一","二","三","四","五")
TracePrint UBound(a) //返回4
//2.61版之前的写法:
Dim a=array("一","二","三","四","五")
Function UBound(arr)
Dim i = -1
For Each str In arr
i = i + 1
Next
UBound = i
End Function
TracePrint UBound(a) //返回4
复制代码
备注:
无
热点内容