高级数据分隔符

我有一个超过10万行数据的日志文件，只有大约5000行，我真正关心。 其余的大部分都是像下面这样的垃圾。 它以一列中的〜100K行的forms导入到Excel中，我不能分隔任何东西。 我唯一能做的就是search所有的“M-SEL”，并将其改为“M-SEL”（与SAC线相同），然后开始给我一些东西划界和sorting。 有没有比我上面列出的更优雅的解决scheme（VBA或过滤技术​​？）？

00:00:00 M-SEL 802151 - - - is supergroup 00:00:01 SAC REJECT - - - 800508 508 is not a valid group id 

Answer 1

您可以使用此macros在多个空格的基础上拆分列：

 Sub importLog() Dim record As String, i As Long, sh As Worksheet, len1 As Long, len2 As Long, ar Set sh = Worksheets.Add Open "C:\SO\mylog.txt" For Input As #1 ' <-- Enter your file's name here Do Until EOF(1) Line Input #1, record Do len1 = Len(record) record = Replace(record, " ", " ") len2 = Len(record) Loop Until len2 = len1 If len1 > 1 Then i = i + 1 ar = Split(record, " ") sh.Cells(i, 1).Resize(1, UBound(ar) + 1).value = ar End If Loop Close #1 End Sub