Question

按键精灵，读取txt，8行，4列，空格隔开。 怎么一行一行取4个值，每个值分别保存到excel单元格里？谢谢！

txt内容如下

excel保存格式

分不多，见谅！！！
非常感谢！！！！！
txt内容截图里的“7个空格，6个空格”的字是我截图后mark上去的，文本里除了数值、空格、回车没别的内容了。





Answer 1

每行要取的数值是否是固定位数？ 中间数值开始的位置是否固定？

追问

每行要取的数值是否是固定位数？是固定的
中间数值开始的位置是否固定？是固定的

追答

第一个数是几位？第二个数是几位？……

追问

如图哦，第1个数1位，第2个数2位，第3个数2位，第4个数1位

追答

几个空格那些字是没有的吧？简单 回家我帮你写
现在在单位还没吃饭呢 可怜

追问

谢谢了啊，辛苦了！！

专业的就是不一样！！

噢，那几个字是没有的。是为了方便解答者，呵呵。

追答

Set wshell = CreateObject("WScript.Shell")

PathDesktop = wshell.specialfolders("Desktop")

//下面这句是打开Excel文档工作表

Call Plugin.Office.OpenXls(PathDesktop & "\Log.xls")

Call Plugin.Office.WriteXls(1, 2, 3, "")'在桌面新建空白excel表格

PutAttachment "D:\", "Log.txt"

Text = Plugin.File.ReadFileEx("D:\Log.txt")

MyArray = Split(Text, "|")

For i = 1 To UBound(MyArray)

    第一个数 = mid(MyArray(i-1), 1, 1)

    第二个数 = mid(MyArray(i-1), 9, 2)

    第三个数 = mid(MyArray(i-1), 17, 2)

    第四个数 = mid(MyArray(i-1), 25, 1)

    //下面这句是向Excel文档工作表(1)单元格(i+3, 3)写入第一个数

    Call Plugin.Office.WriteXls(1, i + 1, 2, 第一个数)

    Call Plugin.Office.WriteXls(1, i + 1, 3, 第二个数)

    Call Plugin.Office.WriteXls(1, i + 1, 4, 第三个数)

    Call Plugin.Office.WriteXls(1, i + 1, 5, 第四个数)

    TracePrint i

Next

Sub OnScriptExit()   

    //下面这句是关闭Excel文档工作表

    Call Plugin.Office.CloseXls()  

End Sub