常用的脚本代码逻辑

分享一些编写脚本的常用逻辑,所谓常用逻辑其实就在很多不同脚本中都会用到代码段,掌握这些逻辑可以提高脚本编写速度,通过积累大量常用逻辑,还可以扩展编写脚本的思路。

(1)字符串的追加,例子:获取10位随机数


Dim str,line
For 10
    str = Int(10 * Rnd())
    line=line&str
Next
TracePrint line

(2)参数中变量拼接,循环中计次变量作为拼接的一部分,这种很常用,所有字符串的参数基本都可以用,如找多个图,图片名是图片+序号的形式。


Dim intx,inty
For i = 1 To 10
    FindPic 0, 0, 0, 0, "Attachment:图片"&i&".png","000000", 0, 0.9, intX, intY
    If intX > -1 And intY > -1 Then 
        TracePrint "找到图片"&i
    End If
Next

(3)当用到文本记录功能时,会判断文本是否存在,如果不存在新建一个脚本。


Dim path="/sdcard/pictures/记录.txt"
If len(file.read(path)) = 0 Then 
  file.Write(path)
End If

(4)循环判断,判断成立结束循环,循环完成判断仍不成立执行另外操作,比如将一个内容写入数组,但是要求不能和数组原内容重复。


Dim arr=array(2,3,8,6,7,4)
Dim num=1
For i = 0 To UBOUND(arr)
  If arr(i) = num Then 
    Exit For
  End If
  If i = UBOUND(arr) Then 
    arr(UBOUND(arr)+1)=num
  End If
Next
TracePrint join(arr,",")

(5)跳出多重循环


Dim k=0
For i = 0 To 100
    For j = 0 To 100
        Dim n=int(100*rnd())
        If j = n Then 
            TracePrint "n是:",n
            k = 1
            Exit For
        End If
    Next
    If k = 1 Then 
        Exit For
    End If
Next
TracePrint "跳出了2个循环"

(6)取余,间隔固定位置取(舍弃)一个,比如一段数字每3个去一个数字
数字段:453485278,取红色的数字

Dim str="453485278"
Dim line,num
For i = 1 To Len(str)
  If i mod 3 = 0 Then 
    num = Mid(str, i, 1)
    line=line&num
  End If
Next
TracePrint line

转载自微信公众号:3分钟学堂

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注