Question

如何批量提取txt中的字段到excel

请教大神：文本文件中包括以下内容：[bbs-config]
service-port 0 vlan 1712 eth 0/1/1 multi-service user-encap pppoe rx-cttr 6 tx-cttr 6 service-port 1 vlan 1712 eth 0/1/2 multi-service user-encap pppoe rx-cttr 6 tx-cttr 6 service-port 2 vlan 1712 eth 0/1/3 multi-service user-encap pppoe rx-cttr 6 tx-cttr 6 service-port 3 vlan 1712 eth 0/1/4 multi-service user-encap pppoe rx-cttr 6 tx-cttr 6 service-port 4 vlan 1712 eth 0/1/5 multi-service user-encap pppoe rx-cttr 6 tx-cttr 6 service-port 5 vlan 1712 eth 0/1/6 multi-service user-encap pppoe rx-cttr 6 tx-cttr 6 service-port 6 vlan 1712 eth 0/1/7 multi-service user-encap pppoe rx-cttr 6 tx-cttr 6 service-port 7 vlan 1712 eth 0/1/8 multi-service user-encap pppoe rx-cttr 6 tx-cttr 6 stacking label service-port 0 501 stacking label service-port 1 502 stacking label service-port 2 503 stacking label service-port 3 504 stacking label service-port 4 505 stacking label service-port 5 506 stacking label service-port 6 507 stacking label service-port 7 508# ip address 10.37.0.21 255.255.252.0说明：文件中不只包含这些内容，要通过service-port N来提取相应字段
这个文件只是很多文件中的一个样例，有几千个这样的文件！

Answer 1

EXCEL读取tet文件只能使用VBA实现读取Txt文件内容

直接采用Open函数+Line input命令读取tet文件
Private Sub txt_read()
Dim txt As String
Open "D:\dzh.txt" For Input As #1 '
'对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用，
'并决定缓冲区所使用的访问方式。
'打开文件作为数据输入用，文件号为#1
Do While Not EOF(1)
Line Input #1, txt '从已打开的顺序文件中读出一行并将它分配给 String 变量
'Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13))
'或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上
MsgBox txt
Loop
Close #1
End Sub