[已解决]如何提取txt的特定内容到Excel

loa123

1. 
   
2. $ $ telnet 4.37.231.123
   
3. Trying 4.37.231.123...
   
4. Connected to 4.37.231.123.
   
5. Escape character is '^]'.
   
6. 
   
7.     *************************************************************************
   
8.            Welcome to IP Transport Network Platform of ZTE Corporation
   
9.     *************************************************************************
   
10. 
    
11. Username:IPRANRTA
    
12. Password:
    
13. CJDJD-A-2.MCN.CTNX#sho version
    
14. ZXR10 Router Operating System Software, ZTE Corporation
    
15. ZXR10 ROS Version V4.08.34
    
16. ZXCTN 6130XG-S Software, Version ZXCTN 6130XG-S V2.10.00P01B55, RELEASE SOFTWARE
    
17. 
    
18. Copyright (c) 2001-2014 by ZTE Corporation
    
19. Compiled Jun 25 2014, 11:02:19
    
20. System image files are flash:</flash/img/zxr10.zar>
    
21. System uptime is 190 day(s), 22 hour(s), 59 minute(s)
    
22. 
    
23. [SCCU, panel 1, master]
    
24. Main Processor    : PowerPC MPC1010 Processor
    
25. System Memory     : 1024M bytes    ,    System FLASH      : 128M bytes
    
26. System NVRAM      : 8K bytes       ,    System Temperature: 29℃
    
27. System Serial     : 1              ,    System BaudRate   : 9600
    
28. System Clock      : PTP stratum 3  
    
29. Board Type        : 6130XG-S      
    
30. Serial Number     : 210070207641   ,    Part Number       : 0
    
31. Main CPLD1 Version: V2.1           ,    Main CPLD2 Version: N/A
    
32. CPU CPLD Version  : N/A            ,    PCI CPLD Version  : N/A
    
33. FPGA Version      : V2.6           ,    Main PCB Number   : 110901
    
34. CJDJD-A-2.MCN.CTNX#logout
    
35. Connection to 4.37.231.123 closed by foreign host.
    
36. $ telnet 4.37.237.147   
    
37. Trying 4.37.237.147...
    
38. Connected to 4.37.237.147.
    
39. Escape character is '^]'.
    
40. 
    
41.     *************************************************************************
    
42.            Welcome to IP Transport Network Platform of ZTE Corporation
    
43.     *************************************************************************
    
44. 
    
45. Username:IPRANRTA
    
46. Password:
    
47. CYCDGYQ-A-2.MCN.CTN#sho version
    
48. ZXR10 Router Operating System Software, ZTE Corporation
    
49. ZXR10 ROS Version V4.08.34
    
50. ZXCTN 6130XG-S Software, Version ZXCTN 6130XG-S V2.10.00P01B55, RELEASE SOFTWARE
    
51. 
    
52. Copyright (c) 2001-2014 by ZTE Corporation
    
53. Compiled Jun 25 2014, 11:02:19
    
54. System image files are flash:</flash/img/zxr10.zar>
    
55. System uptime is 159 day(s), 4 hour(s), 19 minute(s)
    
56. 
    
57. [SCCU, panel 1, master]
    
58. Main Processor    : PowerPC MPC1010 Processor
    
59. System Memory     : 1024M bytes    ,    System FLASH      : 128M bytes
    
60. System NVRAM      : 8K bytes       ,    System Temperature: 23℃
    
61. System Serial     : 83             ,    System BaudRate   : 9600
    
62. System Clock      : PTP stratum 3  
    
63. Board Type        : 6130XG-S      
    
64. Serial Number     : 210070207718   ,    Part Number       : 0
    
65. Main CPLD1 Version: V2.1           ,    Main CPLD2 Version: N/A
    
66. CPU CPLD Version  : N/A            ,    PCI CPLD Version  : N/A
    
67. FPGA Version      : V2.6           ,    Main PCB Number   : 110901
    
68. CYCDGYQ-A-2.MCN.CTN#logout
    
69. 
    

复制代码

提取后表现形式：

例子

PS:txt很长，只是截取了其中2段，

最佳答案

月排行榜 / 总排行榜

wp8680

2016-3-2 10:03

1. 
   
2. Sub TEST()
   
3.     Dim s As String, a%
   
4.     Open "E:\迅雷下载\样本\20160229_153843.txt" For Input As #1
   
5.     Do While Not EOF(1)
   
6.         Input #1, s
   
7.         If s Like "Serial Number" & "*" Then
   
8.             a = a + 1
   
9.             Cells(a, 2) = Left(Split(s, ": ")(1), 12)
   
10.         End If
    
11.     Loop
    
12.     Close #1
    
13. End Sub

复制代码

自己修改下吧。

跳转到最佳答案楼层

wp8680

1. 
   
2. Sub TEST()
   
3.     Dim s As String, a%
   
4.     Open "E:\迅雷下载\样本\20160229_153843.txt" For Input As #1
   
5.     Do While Not EOF(1)
   
6.         Input #1, s
   
7.         If s Like "Serial Number" & "*" Then
   
8.             a = a + 1
   
9.             Cells(a, 2) = Left(Split(s, ": ")(1), 12)
   
10.         End If
    
11.     Loop
    
12.     Close #1
    
13. End Sub

复制代码

自己修改下吧。

loa123

wp8680 发表于 2016-3-2 10:03
自己修改下吧。

Serial Number 可以提取了，但是IP地址没有提取出来啊~能不能整合下？？{:191:}

wp8680

loa123 发表于 2016-3-2 11:02
Serial Number 可以提取了，但是IP地址没有提取出来啊~能不能整合下？？

自己按这个规则修改下就行了，看你IP在哪一行，其前面有什么特征的字符，按此特征作为条件提取你想要的数据。

loa123

wp8680 发表于 2016-3-2 11:06
自己按这个规则修改下就行了，看你IP在哪一行，其前面有什么特征的字符，按此特征作为条件提取你想要的数 ...

自己改了运行不了。。不知道问题出在哪里，帮忙整合下吧，代码实在不会弄啊

wp8680

loa123 发表于 2016-3-2 11:27
自己改了运行不了。。不知道问题出在哪里，帮忙整合下吧，代码实在不会弄啊

因为IP有二三行，我不知道你要取第几行中的IP地址，还在下面的所取与IP是不是要求一一对应，你得说明第几行的，如果没有IP是不是跳过空行等 。

loa123

wp8680 发表于 2016-3-2 11:38
因为IP有二三行，我不知道你要取第几行中的IP地址，还在下面的所取与IP是不是要求一一对应，你得说明第几 ...

Trying 4.37.231.123...

只要提取这样开头的IP地址

wp8680

Sub TEST()
    Dim s As String, a%
    Open "E:\迅雷下载\样本\20160229_153843.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, s
        If s Like "Serial Number" & "*"  or s like "Trying "Then
            a = a + 1
          if s Like "Serial Number" & "*" then
            Cells(a, 3) = Left(Split(s, ": ")(1), 12)
          else
             Cells(a, 2) = Left(Split(s, "Trying ")(1), 12)
         end if
        End If
    Loop
    Close #1
End Sub

loa123

wp8680 发表于 2016-3-2 15:21
Sub TEST()
    Dim s As String, a%
    Open "E:\迅雷下载\样本\20160229_153843.txt" For Input As  ...

不行，这个代码执行只显示 Serial Number，第二列没有东西{:081:}

lichuanboy44

loa123 发表于 2016-3-2 15:35
不行，这个代码执行只显示 Serial Number，第二列没有东西

If s Like "Serial Number" & "*"  or s like "Trying " & "*" Then
在上面程序的这一句，加上红色的部分试试