| |
横から失礼します。
小僧さんの
>> 2) 取り込む際に加工しながら取込む。
の方法で考えてみました。
事前に下記のようなテーブルを作成しておきます。
テーブル T_Log
フィールド LogDATE （日付/時刻型）
LogTime （日付/時刻型）
METHOD （テキスト型）
SERVER （テキスト型）
USER （テキスト型）
CLIENID （テキスト型）
SERVERIP（テキスト型）
DOMAIN （テキスト型）
LogPATH （テキスト型）
Public Sub 加工しながら取込む()
Dim Rs As DAO.Recordset
Dim I As Long
Dim L As String
Open "C:\temp\Log.txt" For Input As #1
Set Rs = CurrentDb.OpenRecordset("T_Log")
Do While Not EOF(1)
For I = 1 To 9
Line Input #1, L
Select Case I
Case 1
Rs.AddNew
Rs!LogDate = CDate(Mid(L, 6, 8))
Rs!LogTime = CDate(Mid(L, 15, 8))
Case 2
Rs!METHOD = Mid(L, 8)
Case 3
Rs!SERVER = Mid(L, 8)
Case 4
Rs!USER = Mid(L, 6)
Case 5
Rs!CLIENTIP = Mid(L, 10)
Case 6
Rs!SERVERIP = Mid(L, 10)
Case 7
Rs!DOMAIN = Mid(L, 8)
Case 8
Rs!LogPath = Mid(L, 6)
Rs.Update
End Select
Next
Loop
Close #1
Rs.Close: Set Rs = Nothing
End Sub
|
|
hatena
- 05/6/11(土) 12:10 -
