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