|
pv RTMS_ID Lane Class Speed[km/h] Length[m] Dwell
pv --------------------------------------------------
pv 18 01 2015 19:20:51.990 1 3 Sm 66 3.6 20
pv 18 01 2015 19:20:52.480 1 1 Med 38 5.8 55
pv 18 01 2015 19:20:53.280 1 2 Sm 51 3.0 22
18 01 2015 19:20:55
MESSAGE NO. 227 VOLUME: 1 1 1
MED: 1 0 0
LARGE: 0 0 0
TRUCK: 0 0 0
STATION ID. 1 OCCUPANCY: 11.0 4.4 4.0
FWDLK SPEED ? SIDEFRD SPD: 38 51 66 Dir. 0 V. 120 H. 0
HEADWAY: 12.9 1.8 23.0
文本里的数据如上,我想在excel里输出
A B C D E F G H I J
1 18 01 2015 19:20:51.990 1 3 Sm 66 3.6 20
2 18 01 2015 19:20:52.480 1 1 Med 38 5.8 55
3 ......
应该怎么宏
- Sub Macro1()
- Dim arr(1 To 20000, 1 To 1), s&
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- ActiveSheet.UsedRange.ClearContents
- Open ThisWorkbook.Path & "\求助.txt" For Input As #1
- w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
- Close #1
- For i = 0 To UBound(w)
- If w(i) Like "pv 18*" Then
- s = s + 1
- Cells(s, 1) = w(i)
- arr(s, 1) = s
- End If
- If w(i) Like "*OCCUPANCY:*" Then
- Cells(s, "m") = Trim(Split(w(i), "OCCUPANCY:")(1))
- End If
- Next
- [a:a].TextToColumns [a1], Space:=True, Other:=False
- [m:m].TextToColumns [m1], Space:=True, Other:=False
- Range("a1").Resize(s) = arr
- Application.DisplayAlerts = True
- Application.ScreenUpdating = True
- End Sub
复制代码
|
|