• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 865|回复: 0

[源码分享] [按键精灵]8个有用的代码段 [复制链接]

郭立员
头像

3分钟学堂-郭立员

  • 大学三年级
  • 325019
  • 708
  • 13
  • 1712 朵
  • 2827 个
  • 818 个
  • 20600
  • 2009-10-23
双十一绝版纪念勋章抗战胜利70周年勋章第二届“新浪&按键杯”致命连招勋章冠军勋章优秀管理员勋章图灵勋章按键图书勋章骨灰级按键用户按键精灵开发者6级教程达人发帖高手爱心大使学有所成按键元老管理人员
1#
t T
发表于 2024-07-20 11:54 | |只看楼主

大家好，我是郭立员~

前言

写一些我常用的功能性的代码段：

（1） 不重复的写入文本

  1. Dim path = "/sdcard/pictures/账号.txt"

  3. Function FileWrite(path,str)
  4. Dim arr = file.readlines(path)
  5. If Len(arr) = 0 Then
  6. File.Write(path, str&"\r\n")
  7. Else
  8. For i = 1 To Len(arr)
  9. If arr[i] = str Then
  10. Exit For
  11. End If
  12. If i = Len(arr) Then
  13. File.Append(path, str&"\r\n")
  14. End If
  15. Next
  16. End If
  17. End Function
复制代码

（2）文本读一行删一行

  1. Dim path = "/sdcard/pictures/账号.txt"
  2. TracePrint fileReadLine(path)

  4. Function fileReadLine(path)
  5. Dim str = file.readline(path,1)
  6. If Len(str) > 0 Then
  7. file.DeleteLine path, 1
  8. fileReadLine = str
  9. Else
  10. TracePrint "文本内容已空"
  11. End If
  12. End Function
复制代码

（3）获取小精灵包名

  1. TracePrint getPackage()

  3. Function getPackage()
  4. Dim path = GetTempDir()
  5. Dim arr = split(path, "/")
  6. getPackage = arr[ubound(arr)]
  7. End Function
复制代码

（4）对数组进行排序

  1. Dim arr = {13,7,4,18,17,26,7,19,10}
  2. Dim ret = sorted(arr)
  3. TracePrint encode.TableToJson(ret)

  5. Function sorted(arr)
  6. Dim num
  7. For UBOUND(arr)
  8. For i = 1 To UBOUND(arr)
  9. If arr[i] > arr[i + 1] Then
  10. num = arr[i]
  11. arr[i] = arr[i + 1]
  12. arr[i+1] = num
  13. End If
  14. Next
  15. Next
  16. sorted = arr
  17. End Function
复制代码

（5）查找数组最大值和最小值

  1. Dim Matharr = {13,7,4,18,17,26,7,19,10}
  2. Traceprint "数组中最大值：",MathMax (arr)
  3. TracePrint Encode.TableToJson(arr) //修改了数组内容
  4. Traceprint "数组中最小值：",MathMin (arr)

  6. Function MathMax(arr)
  7. For i = 1 To UBOUND(arr)
  8. If arr[i] > arr[i + 1] Then
  9. arr[i+1] = arr[i]
  10. End If
  11. Next
  12. MathMax = arr[len(arr)]
  13. End Function

  15. Function MathMin(arr)
  16. For i = 1 To UBOUND(arr)
  17. If arr[i] < arr[i + 1] Then
  18. arr[i+1] = arr[i]
  19. End If
  20. Next
  21. MathMin = arr[len(arr)]
  22. End Function
复制代码

（6）拆分打码平台的坐标返回值

  1. Import "shanhai.lua"
  2. Dim ret = "435,147|684,352|224,66|451,116"
  3. splitCoordinate(ret)

  5. Function splitCoordinate(ret)
  6. Dim arr = shanhai.RegexFindEx(ret,"(%d+),(%d+)")
  7. For i = 1 To Len(arr)
  8. TracePrint arr[i][1],arr[i][2]
  9. Next
  10. End Function
复制代码

（7）字符串拆分成数组

  1. Dim str = "12345456"
  2. Dim arr = strAsArr(str)
  3. TracePrint encode.TableToJson(arr)

  5. Function strAsArr(str)
  6. Dim arr = {null}
  7. For i = 1 To Len(str)
  8. arr[i] = mid(str,i,1)
  9. Next
  10. strAsArr = arr
  11. End Function
复制代码

（8）定时脚本

  1. import "shanhai.lua"
  2. Dim 小时 = 19
  3. Dim 分钟 = 44
  4. If fixedTime(小时, 分钟) Then
  5. TracePrint "到时间了"
  6. Else
  7. TracePrint "没有到时间"
  8. End If

  10. Function fixedTime(h, m)
  11. Dim t = Now()
  12. Dim arr_time = shanhai.RegexFind(t,"(%d+):")
  13. TracePrint arr_time[1],arr_time[2]
  14. If cint(arr_time[1]) = cint(h) and cint(arr_time[2]) = cint(m) Then
  15. fixedTime = true
  16. End If
  17. End Function
复制代码

先写这么多，以后想到其他的再补充。
点赞
扫码免费获取我的基础教程【视频教程】
扫码下方二维码关注我的公众号：3分钟学堂
QQ交流群：936858410
回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器