【.cmd】バッチファイルスクリプト %2 【.bat】

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 06/12 10:35 / Filesize : 199 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

1 名前：デフォルトの名無しさん mailto:sage [2007/12/17(月) 17:44:28 ]: 拡張子が .cmd または .bat のバッチファイルのスクリプティング(プログラミング)に関わる
質問，テクニック(JScript，Perl等の埋め込みなど含む)，関連情報のためのスレです。

※何でも無理矢理バッチでやろうとせず、WSH等の使用も検討しましょう。

【前スレ】 (関連スレは>>2-5)
【.cmd】バッチファイルスクリプト %1 【.bat】
pc11.2ch.net/test/read.cgi/tech/1178281991/
656 名前：636 [2008/05/03(土) 02:23:08 ]: ＜つづき＞
---ここから---
'実行形式
'cscript //nologo Statistics.vbs InputFile1.csv InputFile2.csv OutputFile.csv
'変数の明示宣言を強制
option explicit

Dim objArgs
Set objArgs = WScript.Arguments

If objArgs.Count <> 3 Then
WScript.Echo "指定ファイルが不足しています。"
WScript.Quit
End If

Dim objFS
Dim objInFile1
Dim objInFile2
Dim objOutFile

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objInFile1 = objFS.OpenTextFile(objArgs(0))
Set objInFile2 = objFS.OpenTextFile(objArgs(1))
Set objOutFile = objFS.CreateTextFile(objArgs(2), True, False)

objOutFile.WriteLine "年月日,アクセス件数#1,アクセス件数#2"

＜つづく＞
657 名前：636 [2008/05/03(土) 02:24:04 ]: ＜つづき＞

Dim sLine1
Dim sLine2

Do While objInFile1.AtEndOfStream <> True And _
objInFile2.AtEndOfStream <> True

sLine1 = objInFile1.ReadLine
sLine2 = objInFile2.ReadLine

objOutFile.WriteLine(sLine1 &","& sLine2)
Loop

objInFile1.Close
objInFile2.Close
objOutFile.Close

Set objInFile1 = Nothing
Set objInFile2 = Nothing
Set objOutFile = Nothing
Set objFS = Nothing
---ここまで---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef