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

loa123

lichuanboy44 发表于 2016-3-2 15:50
If s Like "Serial Number" & "*"  or s like "Trying " & "*" Then
在上面程序的这一句，加上红色的部分 ...

1. Sub TEST()
   
2.     Dim s As String, a%
   
3.     Open "C:\Documents and Settings\Administrator\桌面\a.txt" For Input As #1
   
4.     Do While Not EOF(1)
   
5.         Input #1, s
   
6.         
   
7.          If s Like "Serial Number" & "*" Or s Like "Trying " & "*" Then
   
8.             a = a + 1
   
9.           If s Like "Trying " & "*" Then
   
10.              Cells(a, 2) = Left(Split(s, "Trying ")(1), Len(s) - 10)
    
11.           Else
    
12.              Cells(a - 1, 3) = Left(Split(s, ": ")(1), 12)
    
13.          End If
    
14.         End If
    
15.     Loop
    
16.     Close #1
    
17. End Sub

复制代码

代码稍微改动了一下不然对不齐，但是怎么会一行隔一行空格啊？？{:041:}

修改部分：
Cells(a, 2) = Left(Split(s, "Trying ")(1), Len(s) - 10)
Cells(a - 1, 3) = Left(Split(s, ": ")(1), 12)

lichuanboy44

loa123 发表于 2016-3-2 16:06
代码稍微改动了一下不然对不齐，但是怎么会一行隔一行空格啊？？

修改部分：

试试这个

1. Sub TEST()
   
2.     Dim s As String, a%
   
3.     Open "C:\Documents and Settings\Administrator\桌面\a.txt" For Input As #1
   
4.     Do While Not EOF(1)
   
5.         Input #1, s
   
6.         If s Like "Trying " & "*" Then
   
7.             a = a + 1
   
8.             Cells(a, 2) = Left(Split(s, "Trying ")(1), Len(s) - 10)
   
9.         ElseIf s Like "Serial Number" & "*" Then
   
10.             Cells(a, 3) = Left(Split(s, ": ")(1), 12)
    
11.         End If
    
12.     Loop
    
13.     Close #1
    
14. End Sub

复制代码

loa123

lichuanboy44 发表于 2016-3-2 17:14
试试这个

这样会B列跟C列错开，更加不行，而且每行还是一行隔一行