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

发布网友发布时间：2023-07-13 07:15

共1个回答

热心网友时间：2024-11-25 09:58

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

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

有问题请追问。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com