對計時器的數據進行整理
- 需求
- 原始數據
- 程序步驟
- VBA程序
- 結果
需求
需要在txt文件中提取出分和秒分別在兩列
原始數據
數據結構
計次7 00:01.855
計次6 00:09.028
計次5 00:08.586
計次4 00:08.865
計次3 00:07.371
計次2 00:06.192
計次1 00:05.949
程序步驟
1、利用Trim()去除空格；
2、利用Chr(10)（換行符）分割出一行；
3、取出一行后，按空格分割(默認按空格分割)，再按“:”分割。
4、按逆序保存到單元格里。
VBA程序
Sub 采集信息()Dim s As Stringf = ThisWorkbook.Path & "\stopwatch.txt"Open f For Input As #1i = 1Dim Time_MM(1000)Do While Not EOF(1)Line Input #1, svarResult = VBA.Split(Application.WorksheetFunction.Trim(s), Chr(10))Num = UBound(varResult) - LBound(varResult)For i = 0 To Numarr_Time = VBA.Split(varResult(i))arr_Time_MM = VBA.Split(arr_Time(1), ":")Worksheets(1).Cells((Num - i) + 2, 1) = arr_Time_MM(0)Worksheets(1).Cells((Num - i) + 2, 2) = arr_Time_MM(1)Next iLoopClose #1
End Sub
結果
至此完成。
實例鏈接：
——監聽器)
