如何用按键精灵查找txt文件内指定字符“----”前和后的内容 5

我有一个txt文件格式是下面这样,想提取----前面和后面的内容并输出出来,有大神指导怎么做吗?帮忙贴个代码1283634634-----ewrjkd-----82384... 我有一个txt文件格式是下面这样,想提取 ---- 前面和后面的内容并输出出来,有大神指导怎么做吗?帮忙贴个代码
1283634634-----ewrjkd-----82384628
1299574875----sdfjdkjj----320483290
1283634634-----ewrjkd-----82384628
1299574875----sdfjdkjj----320483290
展开
 我来答
百度网友cc443cd
2018-10-11 · 超过116用户采纳过TA的回答
知道小有建树答主
回答量:165
采纳率:89%
帮助的人:65万
展开全部
Text = Plugin.File.ReadFileEx("C:\Users\msi\Desktop\a.txt")//文档位置你自己改
Array_hang = Split(Text, "|")//以行分割成数组
If UBound(Array_hang)>=0 Then//判断是否有内容
    For i = 0 To UBound(Array_hang)-1//循环读取到的内容
        beg = InStr(Array_hang(i), "-") - 1//找到“-”第一次出现的位置
        If beg > 0 Then//判断是否找到“-”,用于判断此行是否有内容
         lef = Left(Array_hang(i),beg)//截取“-”之前的内容
         las = InStrRev(Array_hang(i), "-")//找到“-”最后一次出现的位置
         lon = Len(Array_hang(i))//字符串长度
         rig = Right(Array_hang(i),lon-las)//截取“-”之后的内容
         TracePrint lef&rig//控制台输出
        End If
    Next
End If
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式