Question

用按键精灵怎么实现txt文本内容逐行提取到另一个空白txt里？

比如我有个txt文件，里面是这样
355652----70101
371064----70101
371067----70101
371090----70101
355694----70101
355702----70101

怎么把每一行前面的数字串提取出来粘贴到另一个txt文件里面，还是按照一排数字一行排列。

Answer 1

i = Form1.BrowseBox1.Path//原txt文件
o = Form1.BrowseBox2.Path//要生成的txt文件
Text = Plugin.File.ReadFileEx(i)
Dim MyArray
MyArray = Split(Text, "|")
i = 0
For UBound(MyArray)    
MyArray(i)= left((Cstr(MyArray(i))),6)
Call Plugin.File.WriteFileEx(o, MyArray(i))
i=i+1   
Next

上面是代码，你还得建一个图形界面。

有问题请追问。