VBScript - ログの書き出し

仕事はIT関係何でも屋さん。

得意技がVisual Basic。

VisualBasicは6.0まではさわってたんやけど、

ExcelVBAとかVBSでもほぼ同じことが出来るんやし、

もっぱらどっちかで組んでんねん。


今日のネタはVBSでログの書き出し用の関数。

そんな基本は要らんわーとか言うたらあかんよ。。(つд`)

追記用

Private Sub WriteLogFile(stFileName, strOutput)     Dim fso     Set fso = CreateObject("Scripting.FileSystemObject")     If strOutput = "" Then '書き出す内容が無かったらすること無いねん     ElseIf fso.FileExists(stFileName) Then 'ファイルがあったら追記しとくわ         With fso.GetFile(stFileName).OpenAsTextStream(8) ' 追記保存             .Write strOutput         End With     Else 'ファイルが無かったら作ったらええねん         With fso.CreateTextFile(stFileName)             .Write strOutput         End With     End If End Sub

上書き用

Private Sub OverWriteFile(stFileName, strOutput)     Dim fso     Set fso = CreateObject("Scripting.FileSystemObject")     If strOutput = "" Then '出力内容が無ければ何もしない     ElseIf fso.FileExists(stFileName) Then 'ファイルがあれば上書きで開く。     'ファイルがあれば問答無用で削除して、新規作成しても同じ。         With fso.GetFile(stFileName).OpenAsTextStream(2) ' 上書保存             .Write strOutput         End With     Else         With fso.CreateTextFile(stFileName)             .Write strOutput         End With     End If End Sub

こんな関数、最初からあったらええと思うのにね。

Oracleで、レコードが存在すれば更新して、無ければ新しく作るってあった気がする。