人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ACCESS2003に関する質問です。
DoCmd.TransferText acExportDelim, "TメンテNO" & i & " エクスポート定義", "TメンテNO" & i, _
"S:\販売\お客様\データ\メンテNO" & i & ".txt", False, ""

上記のソースにて、テキストをエクスポートしております。
テキストの中身はCSVデータになる内容なのですが、テーブルに値がない場合は
何もないものとして判断したいのです。

現在・例
A,B,C,D,E,,,H

こうしたい・例
A.B,C,D,E,H

どのように解決したら良いでしょうか><

●質問者: hogehoho
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:CSV txt いもの お客様 エクスポート
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Mook
●100ポイント ベストアンサー

前後の処理が分かりませんが、下記のようにしてどうでしょうか。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Option Compare Database

Sub RemoveDoubleComma()
 Dim fso
 Set fso = CreateObject("Scripting.FileSystemObject")
 
 Dim filePath
 filePath = "S:\販売\お客様\データ\メンテNO" & i & ".txt"
 DoCmd.TransferText acExportDelim, "TメンテNO" & i & " エクスポート定義", "TメンテNO" & i, filePath
 
 Sleep 300
 Dim fileContents
 With fso.OpenTextFile(filePath)
 fileContents = .ReadAll()
 .Close
 End With
 
 Sleep 300
 Do While InStr(fileContents, ",,") > 0
 fileContents = Replace(fileContents, ",,", ",")
 Loop
 fileContents = Replace(fileContents, vbNewLine & ",", vbNewLine)
 fileContents = Replace(fileContents, "," & vbNewLine, vbNewLine) 
 
 With fso.CreateTextFile(filePath, True)
 .Wite fileContents
 .Close
 End With
End Sub
◎質問者からの返答

コンパイルエラー

End Sub, End Function または End Property 以降には、コメントのみが記述できます。

上記のようにエラーになってしまいました><

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ