- - PR -
VBSの日付関数を使った後必要な文字列の抜き出し方
1
投稿者 | 投稿内容 | ||||||||
---|---|---|---|---|---|---|---|---|---|
|
投稿日時: 2008-02-24 16:50
VBscriptを使い日付関数で取得した値の中から一部の文字列を抜き出したいのですがうまくいかないのでどなたか間違いの箇所を指摘していただけないでしょうか?
’先月を返します。 Dim b Dim yyyymm b=DateAdd("M",-1,Now) yyyymm=Year(b)*100+Month(b) ’先月の表示を変更します。 Dim lastmonth Dim strVal strVal = "yyyymm" lastmonth = Right(strVal, 4) Dim oLogQuery Dim strQuery Set oLogQuery = CreateObject("MSUtil.LogQuery") ' クエリ テキストを作成します。 strQuery = "SELECT cs-uri-stem,COUNT(*) AS view INTO View.csv FROM C:\test1\ex"&★lastmonth★&".log" strQuery = strQuery & " WHERE cs-uri-stem IN('/Default.htm';'/images/address.gif') GROUP BY cs-uri-stem ORDER BY COUNT(*) DESC" ' クエリを実行します。 oLogQuery.ExecuteBatch strQuery ※先月を返しますというところで2008年2月に実行したら200801という表示になると思います。(もし、1月に実行したら200712になりますよね?)200801の右から4文字を取り出し0801という文字列を作り★印の間に入れたいのですがうまくいきません。 また3か月分(四半期?)もやりたいのですがヒントがあったら教えて下さい。 | ||||||||
|
投稿日時: 2008-02-25 10:27
なにがどう「うまくいかない」のか書かないと。
たぶん「0801」とならず「yymm」ってなるのでは? で、コードのざっと読んだところ・・・
との記述がありますが・・・
ではないでしょうかね。 | ||||||||
|
投稿日時: 2008-02-26 23:38
ありがとうございました!助かりました
|
1