|
- 大学三年级
- 325019
- 740
- 13
- 1744 朵
- 2859 个
- 850 个
- 20600
- 2009-10-23
|
1#
t
T
发表于 2022-02-16 22:57
|
|只看楼主
大家好，我是郭立员~分享一些编写脚本的常用逻辑，所谓常用逻辑其实就在很多不同脚本中都会用到代码段，掌握这些逻辑可以提高脚本编写速度，通过积累大量常用逻辑，还可以扩展编写脚本的思路。下面列举一些我常用的脚本逻辑：（1）字符串的追加，例子：获取10位随机数- Dim str,line
- For 10
- str = Int(10 * Rnd())
- line=line&str
- Next
- TracePrint line
- 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
- Dim path="/sdcard/pictures/记录.txt"
- If len(file.read(path)) = 0 Then
- file.Write(path)
- End If
- 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个循环"
数字段：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
|
闽公网安备 35010002000112号