VBscriptを使い特定条件のファイル抽出をしておりますがそこに日時計算をいれたいとおもっているのですがわからない部分があるのでご存知の方いらっしゃいましたら教えていただけないでしょうか?
ファイル抽出のためのVBSは下記のようになっております。
Dim oLogQuery
Dim oEVTInputFormat
Dim oCSVOutputFormat
Dim strQuery
Set oLogQuery = CreateObject("MSUtil.LogQuery")
' クエリ テキストを作成します。
strQuery = "SELECT TimeGenerated, EventID INTO C:\output.csv FROM System"●
strQuery = strQuery & " WHERE SourceName = 'Application Popup'"
' クエリを実行します。
oLogQuery.ExecuteBatch strQuery, oEVTInputFormat, oCSVOutputFormat
わかるように●マークをつけてある部分ですが月ごとにoutput.csvを出しますがファイルが上書きになってしまうのは困るので抽出したファイルに作成した前の月をいれたいのですがどうしたらよいでしょうか?
例えば今抽出したらoutput200801.csvとなる様にです。
クエリテキスト作成の前に日月計算をしてoutput%LASTMONTH%のようにすればいいかなと検討はしておりますが・・・
あと、例えば2008年1月に3か月分のものをだしたという条件のとき(2007年10月~12月)計算結果が2000801と出たとき下2桁が01の場合前年度の年数+10-12というような表示をさせることも可能でしょうか?
よろしくお願いします。
環境はXPでLogParserを自動で使う場合の条件式です。
No.2ベストアンサー
- 回答日時:
こんばんちくは。
一番簡単に考えると。。。
Dim Year_num
Dim Month_num
Dim Day_num
Year_num = Year(Now)
Month_num = Month(Now)
Day_num = Day(Now)
で、それぞれ年月日取ってきて、それをファイル名に組み込んでやる。。。かな。。。
もうちょっと工夫の方法はあった気がしますが、簡単に思い出せるのはYear関数とMonth関数とDay関数ぐらいです。
>>前年度の年数+10-12というような表示をさせることも可能でしょうか?
工夫次第かと。
どんな計算したいのかは質問文からは読み取れませんでしたが。。。^^;
output200712-200802.csvなんてのも、まぁ可能でしょう。
No.1
- 回答日時:
1ヶ月前なら、例えば、
----------------------------------------------
Dim b
Dim ym
b=DateAdd("M",-1,Now)
ym=Year(b)*100+Month(b)
MsgBox ym
----------------------------------------------
こうすれば、求まります。
#3ヶ月前なら「-3」
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) アクセス where句を使用して複数条件抽出をするには 2 2022/08/29 13:24
- Excel(エクセル) エクセルでSUMIFS関数で条件範囲の部分が#valueになる。 4 2023/04/28 12:42
- Access(アクセス) スキルシートのエクセルの項目に 2 2023/04/04 22:41
- Visual Basic(VBA) VBA 毎日取得するデータを順番に反映していく方法 6 2023/08/26 16:22
- Access(アクセス) accessの日付フィールドから前年度だけを取り出したい 3 2022/04/13 23:13
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) 【詳しい方教えて下さい】EXCEL条件に一致する値の複数抽出 9 2022/04/29 10:56
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カンマ区切りのCSVファイルから...
-
複数のcsvファイルをExcelに一...
-
CSV形式での保存時に”文字列...
-
csvファイルでの日付設定「yyyy...
-
VBAでcsvファイルを読み込んで...
-
csvファイル 項目数取得
-
マクロから出力されるcsvのダブ...
-
複数のCSVファイルのAccessテー...
-
csvファイルを列数ごとに分割す...
-
エクセル形式のファイルの読み込み
-
ADODBでSQL実行前にレコードセ...
-
バッチでCSVを処理する時、空の...
-
csvファイルのデータの間引きを...
-
【C#】パス名で無効な文字
-
PHP.laravelについて
-
COBOLでCSVをインプットにして...
-
【ExcelVBA】UTF-8の文字コード...
-
CSVファイルの項目行を削除...
-
ファイル名ないにあるカンマを...
-
エクセルで運転時間を見たい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマ区切りのCSVファイルから...
-
CSV形式での保存時に”文字列...
-
複数のcsvファイルをExcelに一...
-
csvファイル 項目数取得
-
csvファイルでの日付設定「yyyy...
-
バッチでCSVを処理する時、空の...
-
マクロから出力されるcsvのダブ...
-
csvファイルを列数ごとに分割す...
-
エクセル形式のファイルの読み込み
-
csvファイルのデータの一部を取...
-
エクセルVBA 大容量CSVファイル...
-
CSVファイル作成
-
EXCEL|csvで保存→開くcsvを閉じる
-
CSVファイルの項目行を削除...
-
巨大なCSVの加工(指定列のみの...
-
データ解析ソフトRでのファイル...
-
VBAでCSVファイルのデータを集...
-
【ExcelVBA】UTF-8の文字コード...
-
【C#】パス名で無効な文字
-
特定文字を入ってるCSVの特定の...
おすすめ情報