Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7822 / 9994

←次へ　｜　前へ→


	【5355】Re:レコードの内容で新たな列に割り付ける

小僧 - 05/6/10(金) 20:09 -


	引用なし

	パスワード

▼えるてそろさん：
こんばんは。

DATE:05/06/08 07:13:20
METHOD:PROXY
SERVER:ns.xxxxx.jp
USER:192.168.7.7
CLIENTIP:192.168.7.7
SERVERIP:111.111.222.333
DOMAIN:www.yahoo.co.jp
PATH:mail_img/tuesdaaaaaaaaaaaaaaaaaaaaaaa
----------------------------------

こんな感じの元データで宜しければ

Sub 加工してから()
Dim FSO As Object
Dim TName As String '取込テーブル名
Dim RFile As Object
Dim RPath As String '元のファイルフルパス
Dim RName As String '元のファイル名
Dim WFile As Object
Dim I As Long
Dim L As String

　　TName = "T_取り込み"
　　RPath = "C:\temp"
　　RName = "Log.txt"
　　
　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　Set RFile = FSO.OpenTextFile(RPath & "\" & RName)
　　Set WFile = FSO.CreateTextFile(RPath & "\temp.csv")
　　　　WFile.WriteLine _　
　　　　　　 "LOGDATE,LOGTIME,METHOD,SERVER," _
　　　　　 & "USER,CLIENTIP,SERVERIP,DOMAIN,LOGPATH"
　　　　
　　　　Do Until RFile.AtEndOfStream
　　　　　　For I = 1 To 9
　　　　　　　　L = RFile.ReadLine
　　　　　　　　
　　　　　　　　Select Case I
　　　　　　　　　　Case 1
　　　　　　　　　　　　WFile.Write Mid(L, 6, 8) & "," & Mid(L, 15, 8) & ","
　　　　　　　　　　Case 2, 3, 7
　　　　　　　　　　　　WFile.Write Right(L, Len(L) - 7) & ","
　　　　　　　　　　Case 4
　　　　　　　　　　　　WFile.Write Chr(34) & Right(L, Len(L) - 5) & Chr(34) & ","
　　　　　　　　　　Case 5, 6
　　　　　　　　　　　　WFile.Write Chr(34) & Right(L, Len(L) - 9) & Chr(34) & ","
　　　　　　　　　　Case 8
　　　　　　　　　　　　WFile.WriteLine Right(L, Len(L) - 5)
　　　　　　　　End Select
　　　　　　Next
　　　　Loop
　　　　
　　WFile.Close: Set WFile = Nothing
　　RFile.Close: Set rdile = Nothing
　　
　　DoCmd.TransferText acImportDelim, , TName, RPath & "\temp.csv", True
　　
　　FSO.DeleteFile RPath & "\temp.csv"
　　Set FSO = Nothing
End Sub

「DATE」「PATH」などは予約語なので名前を変えてあります。
外していたら申し訳ないです。

826 hits

▼

【5349】レコードの内容で新たな列に割り付ける えるてそろ 05/6/10(金) 10:47