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

例如:一个文本文档包含以下内容什么啊===不知道?萨芬的打法我爱你===你爱我吗?撒房东飒飒阿道夫的是该如何很久了===你是神马人物!如何使用安卓按键精灵找到:用安卓按键... 例如:一个文本文档包含以下内容
什么啊===不知道?
萨芬的打法
我爱你===你爱我吗?
撒房东飒飒
阿道夫的是该如何
很久了===你是神马人物!

如何使用安卓按键精灵找到:
用安卓按键精灵一行一行的找,找到带“===”输出到另一个文本文档里面并删除源文件这一行,找到最后就结束了
展开
 我来答
疯狂伊文丁
2019-03-13
知道答主
回答量:3
采纳率:0%
帮助的人:2173
展开全部
刚好自己也搜到了这个问题,顺便回答下。
我自己调试输出没有问题
需要自己新建路径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
joy0084868
2019-02-28 · TA获得超过2551个赞
知道大有可为答主
回答量:4914
采纳率:54%
帮助的人:1285万
展开全部
按键精灵对这个只能是按图片匹对 准确度不高
建议使用文本编辑器 或者 EXCEL来处理
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
硅谷少年
2019-02-28 · TA获得超过7553个赞
知道大有可为答主
回答量:7116
采纳率:82%
帮助的人:1379万
展开全部
正则替换,你自学一下。
追问
大哥,给个实例可好
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友63a4133
2019-02-28 · TA获得超过431个赞
知道小有建树答主
回答量:919
采纳率:69%
帮助的人:150万
展开全部
手机版很少搞,电脑版要不要,或者给你思路
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友91f1580
2019-02-28 · 贡献了超过1349个回答
知道答主
回答量:1349
采纳率:0%
帮助的人:89.5万
展开全部
?????
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式