在數(shù)組末尾添加內(nèi)容

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

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

數(shù)組或字典轉(zhuǎn)為字符串后為什么對(duì)比失敗?

dim sRet = ""
dim test = ""
dim str = [ 1, 2, 3 ]
sret = "[ 1, 2, 3 ] "
test = CStr(str)
TracePrint test
TracePrint test = sret
輸出內(nèi)容: 
"[ 1, 2, 3 ] "
false

這里直接把輸出的字符串放到變量里去對(duì)比結(jié)果都是不相等, 實(shí)際這里是因?yàn)? cstr轉(zhuǎn)換數(shù)組的時(shí)候給字符串末尾加了\n , 而TracePrint 在輸出的時(shí)候不顯示\n 而是處理成空字符串, 看起來像是空格.所以在 sret 里的字符粗加上\n 即可成功對(duì)比

dim sRet = ""
dim test = ""
dim str = [ 1, 2, 3 ]
sret = "[ 1, 2, 3 ]\n"
test = CStr(str)
TracePrint test
TracePrint test = sret
輸出內(nèi)容: 
"[ 1, 2, 3 ] "
true

判斷文件夾下重復(fù)命令并刪除的方法

win的重名文件有個(gè)特征就是會(huì)在文件名后面自動(dòng)加上(1).txt這樣的字符,依據(jù)這個(gè)特征來獲取重名文件并把他們刪除,以txt文件為例.

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

    arrayRet = File.SearchFile(路徑,"*(*).txt",true)  //第二次取重復(fù)文件, 確認(rèn)是否刪除干凈
    if arrayRet[0] = null
        TracePrint "刪除干凈"
        else
        TracePrint "沒刪完"
    end if