影子是一个会撒谎的精灵,它在虚空中流浪和等待被发现之间;在存在与不存在之间....

您现在的位置是:主页 > 工作记 >

安卓按键精灵脚本命令-获取全部图片并从1开始命名


  • Function 获取总素材()
        Dim FileArr = ShanHai.ScanPathEx(总素材)'
        Dim Filenumber =UBound(FileArr)+1
        For Each v In FileArr
            Dim Filename=shanhai.GetFileName(v)
            Call File.WriteLine (图片名列表,1,Filename) 
            //zm.FileWrite 图片名列表,Filename
            TracePrint shanhai.GetFileName(v)
        Next
        dim 行数 = file.linesnumber(图片名列表)
        TracePrint 行数
        For i = 行数 To 1 Step -1 
            TracePrint "获取总素材" & i 
            Call File.WriteLine (图片名总数,1,i) 
        Next
    End Function


    简单版

    Function 获取总素材()
        Dim FileArr = ShanHai.ScanPathEx(总素材)'获取总素材的文件名
        Dim Filenumber =UBound(FileArr)+1 '获取总素材的总行数
        TracePrint Filenumber
          For i = CInt(Filenumber) To 1 Step -1 
            TracePrint "获取数字" & i 
            Call File.WriteLine (图片名总数,1,i) 
        Next
    End Function


    源码学习 按键精灵