如何用安卓按键精灵查找txt文件内指定字符“===”这一行的内容,并输出。

2024-11-25 20:51:27
推荐回答(5个)
回答1:

刚好自己也搜到了这个问题,顺便回答下。
我自己调试输出没有问题
需要自己新建路径1,2文件,将你的举例复制到路径1文件里。注:一个回车符会占用一行
下面代码直接复制可用,复制上来有点乱,建议复制到按键精灵安卓版里面
//注意:每一个数组元素读完会自动换行,不是读在一行
Dim 路径1, 路径2, 读取结果, 每行内容,最大下标
路径1 = "/sdcard/MobileAnjian/wenti.txt"
路径2 = "/sdcard/MobileAnjian/wenti2.txt"
//读取文件路径的内容保存到读取结果中,这里返回的是数组
读取结果 = File.ReadLines(路径1)
//读取最大下标用作判断循环次数
最大下标 = UBOUND(读取结果)
TracePrint 最大下标
//调试输出数组,你可以不写这段
For Each 每行内容 in 读取结果
TracePrint 每行内容
Next
TracePrint "---------------------以上是路径1文件-------------------------"
//在每一行中查找"==="
Dim 查找结果,i = 0
For 最大下标+1
//instr可以用来判断是否查找到指定字符,返回值是指定字符在字符串中的位置
查找结果 = UTF8.InStr(1, 读取结果(i), "===")
If 查找结果 <> 0 Then
//找到指定字符后将此行写入路径2
//这里写入后你会发现最先找到的会写在最后一行,如果不满足要求请自行调整
Call File.WriteLine(路径2, 1, 读取结果(i))
//删除原文件中的此行
Call File.DeleteLine(路径1, i + 1)
//被删除的行需要用空字符占用一行,不然行数会变动
Call File.WriteLine (路径1,i+1,"")
End If
i = i + 1
Next
TracePrint "---------------------下面是路径2文件-------------------------"
//调试输出得到的新文件
Dim 新文件结果
新文件结果 = File.ReadLines(路径2)
For Each 每行内容 in 新文件结果
TracePrint 每行内容
Next

回答2:

按键精灵对这个只能是按图片匹对 准确度不高
建议使用文本编辑器 或者 EXCEL来处理

回答3:

正则替换,你自学一下。

回答4:

手机版很少搞,电脑版要不要,或者给你思路

回答5:

?????