VBScript
VBScriptでShiftJISの固定長ファイルを読み込むテンプレ。 例によって cmd.vbs と wow64.vbs を同じフォルダへ入れておく。 サンプルでは text.txt を fixedlength.vbs にドロップすると、1レコードずつmsgboxします。test.txt 123ほげ１ ふが１ 456ほげ２ …
S2Dao.NET(Oracle用)のDaoファイルとEntityファイルを自動生成するスクリプトです。Dao用に作成したSQLファイルをスクリプトファイルにドロップして使います。SQLファイルを使わないDaoの場合は、空のtablename.sqlファイルを作ってください。スクリプトでや…
WOWで動かすテンプレを使って、CSVファイルをsqlldrでロードするスクリプトを作ってみました。CSVファイルをsqlldr.vbsへドロップすると、CSVファイル名をテーブル名とみなしてORACLEデータベースの列情報からコントロールファイルを自動生成しsqlldrを起動…
64bit環境で32bitCOMを使うためのテンプレ。64bit環境でWOWじゃなかったらWOWで自分自身を起動しなおします。template.vbsのinit、main、fini、に適宜処理を記述します。cmd.vbs、wow64.vbsはincludeするので同じフォルダに置いてください。template.vbs opt…
まとめてコンパイルするときに使うスクリプト。他の言語でもコマンドラインをアレンジして使える。それとディレクトリサーチのテンプレ。 '----------------------------------------------------------------------- ' VB6コンパイルスクリプト '----------…
VBScriptの標準関数を使った日時のフォーマット関数 関数定義 function format(datetime, style) dim y,m,d,h,n,s,w y = Year(datetime) m = Month(datetime) d = Day(datetime) h = Hour(datetime) n = Minute(datetime) s = Second(datetime) w = Weekday(…
VBScript版 ' このスクリプトファイルを実行するには RichCopy.exe が必要です。 ' RichCopy.exe は下記のサイトからダウンロードすることができます。 ' ' UtilitySpotlight ' http://technet.microsoft.com/ja-jp/magazine/2009.04.utilityspotlight.aspx '…
Option Explicit dim wsh set wsh = CreateObject("WScript.Shell") dim fso set fso = CreateObject("Scripting.FileSystemObject") dim cfg cfg = fso.BuildPath( _ fso.GetParentFolderName(WScript.ScriptFullName), _ "サーバとローカルのパス.txt" ) E…
Option Explicit dim wsh set wsh = CreateObject("WScript.Shell") dim fso set fso = CreateObject("Scripting.FileSystemObject") dim cfg cfg = fso.BuildPath( _ fso.GetParentFolderName(WScript.ScriptFullName), _ "サーバとローカルのパス.txt" ) E…
Option Explicit dim wsh set wsh = CreateObject("WScript.Shell") dim fso set fso = CreateObject("Scripting.FileSystemObject") dim cfg cfg = fso.BuildPath( _ fso.GetParentFolderName(WScript.ScriptFullName), _ "サーバとローカルのパス.txt" ) E…
Option Explicit dim wsh set wsh = CreateObject("WScript.Shell") dim fso set fso = CreateObject("Scripting.FileSystemObject") dim cfg cfg = fso.BuildPath( _ fso.GetParentFolderName(WScript.ScriptFullName), _ "サーバとローカルのパス.txt" ) E…
Option Explicit dim wsh set wsh = CreateObject("WScript.Shell") dim fso set fso = CreateObject("Scripting.FileSystemObject") dim cfg cfg = fso.BuildPath( _ fso.GetParentFolderName(WScript.ScriptFullName), _ "サーバとローカルのパス.txt" ) E…
const lroot = "C:\temp\" const sroot = "\\server\hoge\fuga\" const vbNormalFocus = 1
「サーバとローカルのパス.txt」にルートとなるパスを設定し、send toへvbsのショートカットを作成して使います。一番使いそうなのは「ローカルで開く.vbs」エクスプローラでサーバのフォルダを開いて \\server\hoge\fuga\piyo\puyo\poyo.xls を右クリック->…
Option Explicit 'On Error Resume Next ' ---------------------------------------------------------------------- ' テキストファイルを入れたフォルダをドロップすると、 ' フォルダ内のファイルを一つのExcelブックに読み込みます ' -----------------…
