- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 45
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-2-21
               
|
2#
發表於 2012-1-27 21:41
| 只看該作者
回復 1# m06o2
你的共用key是指哪個資料的值?
先以檔案名稱替代- Sub ex()
- Dim Ay(18), Ary()
- fd = ThisWorkbook.Path & "\"
- fs = Dir(fd & "\*.txt")
- Do Until fs = ""
- Open fd & fs For Input As #1
- Ay(0) = fd: Ay(1) = Replace(fs, ".txt", "")
- Do While Not EOF(1)
- Line Input #1, mystr
- If mystr <> "" Then
- ar = Split(mystr, " ")
- If InStr(mystr, "日期") > 0 Then
- Ay(2) = ar(1): Ay(3) = ar(2) & " " & ar(3)
- ElseIf InStr(mystr, "縣市") > 0 Then
- Ay(4) = ar(1)
- ElseIf InStr(mystr, "路名") > 0 Then
- Ay(5) = ar(1)
- ElseIf InStr(mystr, "車行方向") > 0 Then
- Ay(6) = ar(1)
- ElseIf InStr(mystr, "車道") > 0 Then
- Ay(7) = ar(1)
- ElseIf InStr(mystr, "鋪面類型") > 0 Then
- Ay(8) = ar(1)
- ElseIf InStr(mystr, "測試次數") > 0 Then
- Ay(9) = ar(1)
- ElseIf InStr(mystr, "氣溫") > 0 Then
- Ay(10) = ar(1)
- ElseIf InStr(mystr, "雲量") > 0 Then
- Ay(11) = ar(1)
- ElseIf InStr(mystr, "風速") > 0 Then
- Ay(12) = ar(1)
- ElseIf InStr(mystr, "風向") > 0 Then
- Ay(13) = ar(1)
- ElseIf InStr(mystr, "檢測人員") > 0 Then
- Ay(14) = ar(1)
- ElseIf InStr(mystr, "備註") > 0 Then
- Ay(15) = ar(1)
- Else
- Ay(16) = ar(0): Ay(17) = ar(1)
- ReDim Preserve Ary(s)
- Ary(s) = Ay
- s = s + 1
- End If
-
- End If
- Loop
- Close #1
- fs = Dir
- Loop
- [A65536].End(xlUp).Offset(1).Resize(s, 18) = Application.Transpose(Application.Transpose(Ary))
- End Sub
|
|
發表於 2012-1-27 17:48
| 
