UIBot之奇技淫巧

在数组末尾添加内容

dim sRet = [1,2,3,4,5,6,7,8]

sret[UBound(sret)+1] = 3
TracePrint sret

数组或字典转为字符串后为什么对比失败?

dim sRet = ""
dim test = ""
dim str = [ 1, 2, 3 ]
sret = "[ 1, 2, 3 ] "
test = CStr(str)
TracePrint test
TracePrint test = sret
输出内容: 
"[ 1, 2, 3 ] "
false

这里直接把输出的字符串放到变量里去对比结果都是不相等, 实际这里是因为, cstr转换数组的时候给字符串末尾加了\n , 而TracePrint 在输出的时候不显示\n 而是处理成空字符串, 看起来像是空格.所以在 sret 里的字符粗加上\n 即可成功对比

dim sRet = ""
dim test = ""
dim str = [ 1, 2, 3 ]
sret = "[ 1, 2, 3 ]\n"
test = CStr(str)
TracePrint test
TracePrint test = sret
输出内容: 
"[ 1, 2, 3 ] "
true

判断文件夹下重复命令并删除的方法

win的重名文件有个特征就是会在文件名后面自动加上(1).txt这样的字符,依据这个特征来获取重名文件并把他们删除,以txt文件为例.

    dim arrayRet = ""
    arrayRet = File.SearchFile(路径,"*(*).txt",true)  //第一次取重复文件, 路径是变量. 后缀名自己改
    TracePrint arrayRet
    for i = 0 to UBound(arrayRet)
        File.Delete(arrayRet[I])
    next

    arrayRet = File.SearchFile(路径,"*(*).txt",true)  //第二次取重复文件, 确认是否删除干净
    if arrayRet[0] = null
        TracePrint "删除干净"
        else
        TracePrint "没删完"
    end if