VBScript : Access のテーブルを TransferText メソッドを使用して UTF-8 で CSV または HTML にして出力する

syain.html

Microsoft ドキュメント

DoCmd.TransferText メソッド

AcTextTransferType

サポートするコード ページ

概要

CSV と HTML で出力していますが、どちらも最後の引数にコードページを示す値で、UTF-8 を意味する 65001 をセットしています。そうすると、HTML では自動的に META 要素に UTF-8 が設定されて、ファイルは UTF8N になります。CSV もまた UTF8N で出力されます。

最初の引数で、エクスポートタイプを指定していますが、本来定数定義されているタイプライブラリを GUID で参照してそのまま使用しています。

GUID は、OLE-COM Object Viewer(Visual Studio 2010) で、Type Libraries ツリーより Microsoft Access 14.0 Object Library を開いて 取得しています。

<JOB>
<OBJECT id="Acc" progid="Access.Application" />
<OBJECT id="Fso" progid="Scripting.FileSystemObject" />
<REFERENCE guid="4AFFC9A0-5F99-101B-AF4E-00AA003F0F07" />
<SCRIPT language="VBScript">
' **************************************
' スクリプトのあるディレクトリの取得
' **************************************
strCurPath = WScript.ScriptFullName
Set obj = Fso.GetFile( strCurPath )
Set obj = obj.ParentFolder
strCurPath = obj.Path

Acc.OpenCurrentDatabase( strCurPath & "\社員マスタ.accdb") 

Acc.docmd.TransferText acExportDelim, "", "社員マスタ", strCurPath & "\syain.csv", true, "", 65001
Acc.docmd.TransferText acExportHTML, "", "社員マスタ", strCurPath & "\syain.html", true, "", 65001

Acc.docmd.Closedatabase

' 終了確認
Wscript.Echo "処理が終了しました"

</SCRIPT>
</JOB>

ファイルのバスの後の True は、1 行目をフィールド名として使用すると言う意味です。。テキスト ファイルの 1 行目をデータとして処理する場合は、False (0) を使います。この引数を指定しないと、False (既定値) が使われます。

VBScript : ネイティブ(CAPICOM.Utilities) Base64 エンコード

Stream オブジェクトと併用するのがミソです。この場合、Shift_JIS の文字列を Base64 に変換します。

Microsoft のドキュメント

Utilities Object (Windows)

関連する記事

VBScript : ネイティブ SHA1、MD5、SHA256 変換

Set CAPIUtil = CreateObject( "CAPICOM.Utilities" )
Set Stream = CreateObject("ADODB.Stream")
Set StreamBin = CreateObject("ADODB.Stream")

'******************************
' Base64 エンコード
'******************************
Stream.Open
Stream.Charset = "shift_jis"
' shift_jis で入力文字を書き込む
Stream.WriteText "日本語表示OK"
Stream.Position = 0

' バイナリで開く
StreamBin.Open
StreamBin.Type = 1

' テキストをバイナリに変換
Stream.CopyTo StreamBin
Stream.Close

' 読み込みの為にデータポインタを先頭にセット
StreamBin.Position = 0

' 変換
strBinaryString = CAPIUtil.ByteArrayToBinaryString( StreamBin.Read )
strBase64 = CAPIUtil.Base64Encode( strBinaryString )
' 長い文字列は仕様として、(\r\n を含めて 76) 改行されます
strBase64 = Replace(strBase64,vbCrLf,"")

Wscript.Echo strBase64

VBScript で、スクリプト(Windows Script Component)をオブジェクトとして直接使う方法

guid を設定して、COM として登録する方法がありますが、スクリプトのパスを指定して実行する方法です

Windows Script Component

my_const.wsc

<component>
<public>
<method name="get_value"></method>
</public>
<script language="VBScript">
sub get_value(ByRef my_const)
	my_const = "2014/08/13"
end sub
</script>
</component>

test.vbs

Set my_script_obj = GetObject("script:C:\user\my_const.wsc")
data = 0
call my_script_obj.get_value( data )
WScript.Echo data

VBScript : バイナリファイルの更新( 1バイトの ByteArray なら、ADO.Stream で作成できます )

VBScript 内でバイナリファイルを更新するのは、ByteArray というデータ型で文字列を保持する必要があるのですが、VBScript 標準ではそのようなデータ型を作成する事ができません。

しかし、ADODB.Stream を使ってバイナリファイルからデータを Read メソッドで読み出すと、それは ByteArray になります。長い文字列として ByteArray を取得するにはもう少し応用が必要ですが、１バイト単位の ByteArray であれば、先に 256 種類のバイトを格納したファイルを用意しておけば、取得する事ができます。



このデータを使って、ビットマップファイルを更新するのであれば、色コードの表現は 1バイトづつなので、例えば 32 x 32 の24ビットマップを全て赤に設定しておいて、緑やその他の色に変更する事は容易になります。


※ 赤枠部分が色コードで、それが連続して、32 x 32 セット存在します

Set Fso = CreateObject( "Scripting.FileSystemObject" )
Set Stream = CreateObject("ADODB.Stream")
Set StreamTable = CreateObject("ADODB.Stream")

strCurPath = WScript.ScriptFullName
Set obj = Fso.GetFile( strCurPath )
Set obj = obj.ParentFolder
strCurPath = obj.Path

strFullPath = Fso.GetAbsolutePathName( strCurPath & "\red.bmp" )

StreamTable.Open
StreamTable.Type = 1	' バイナリ
StreamTable.LoadFromFile strCurPath & "\byte_array.dat"

Stream.Open
Stream.Type = 1		' バイナリ

Stream.LoadFromFile strFullPath

For I = 1 to 32*32

	Stream.Position = 16*3+(I-1)*3+7	' Green 位置
	Stream.Write  GetByteArray(255)

	Stream.Position = 16*3+(I-1)*3+8	' Red 位置
	Stream.Write  GetByteArray(0)

Next

Stream.SaveToFile strCurPath & "\green.bmp", 2

Stream.Close
StreamTable.Close

Function GetByteArray( nData )

	StreamTable.Position = nData

	GetByteArray = StreamTable.Read(1)

End Function

※ strCurPath は、スクリプトが存在するフォルダになります。
※ GetByteArray は、１バイトの ByteArray データを取得します

CAPICOM をインストールすると、容易に ByteArray を扱えるようになります。

CAPICOM は、標準の Windows ではインストールされないと思いますが、Microsoft の何かの開発系ソフトウェアをインストールするとインストールされてしまっている可能性はあります。

CAPICOM には、Utilities object が存在し、以下のような便利なメソッドが揃っています。
※ Set CAPIUtil = CreateObject( "CAPICOM.Utilities" ) でオブジェクトを作成してメソッドを使用

Method	Description
Base64Decode	Decodes a string from base64.
Base64Encode	Encodes a string as base64.
BinaryStringToByteArray	Converts a binary-packed string to an array of bytes.
BinaryToHex	Converts a binary-packed string to a hexadecimal string.
ByteArrayToBinaryString	Converts an array of bytes to a binary-packed string.
GetRandom	Generates a secure random number.
HexToBinary	Converts a hexadecimal string to a binary-packed string.
LocalTimeToUTCTime	Converts the computer's local time to Coordinated Universal Time.
UTCTimeToLocalTime	Converts Coordinated Universal Time to the computer's local time.

BinaryString は、VBscript で表現されている通常の文字列です。例えば、ChrB(0) 等のデータを含むバイナリデターであるという意味です

VBScript : ini ファイルの値を取得する

cscript.exe ini.vbs "PATH" セクション名 エントリ名
で、値を echo します。バッチファイルを使うならば、同じディレクトリに ini.bat を作成して、
@echo off
cscript.exe //NOLOGO "%~dp0ini.vbs" "%1" %2 %3

とすると、パスの通ったディレクトリに両方置いて、"ini" というコマンドの出来上がりです

エラーメッセージは、イベントビュアーの『アプリケーション』に記録されます

' ログ出力用
Set WshShell = WScript.CreateObject("WScript.Shell")

' 使用方法の表示
if Wscript.Arguments.Count = 0 then
	Wscript.Echo "Usage : cscript.exe ini.vbs ""PATH"" section entry"
	Wscript.Echo "例	 : cscript.exe ini.vbs ""c:\php\php.ini"" php error_reporting"
	Wscript.Quit
end if
' ファイルシステムアクセス用
Set Fs = CreateObject( "Scripting.FileSystemObject" )
' 引数の数をチェック( パス セクション エントリ )
if Wscript.Arguments.Count <> 3 then
	' 引数の数が誤っている場合は終了
	WshShell.LogEvent 1, "引数の数が誤っています"
	Wscript.Quit
end if
' ファイルを開く
on error resume next
Set InObj = Fs.OpenTextFile( Wscript.Arguments(0), 1 )
if Err.Number <> 0 then
	' ファイルアクセスエラーの場合は終了
	WshShell.LogEvent 1, Err.Description & ":" & Wscript.Arguments(0)
	Wscript.Quit
end if
on error goto 0

' 検索処理用のフラグ
search = false
' 読込みループ
Do While not InObj.AtEndOfStream
	' 行単位の読込み
	Buffer = InObj.ReadLine
	' 空の行は無視する
	if Trim(Buffer) <> "" then
		' 対象セクションを発見した場合
		if Ucase(Trim(Buffer)) = "[" & Ucase(Wscript.Arguments(1)) & "]" then
			search = true
		else
			' 一度発見した場合は同じセクションは無いのでこちらへ
			' 発見してない場合もこちらに来ますが、search が true なら発見済み
			if search then
				' 次のセクションを発見した場合は、該当するエントリが無い事を示す
				if Left(Trim(Buffer),1) = "[" then
					' 処理を終了する為、ループを終了する
					WshShell.LogEvent 1, "指定されたエントリを発見できませんでした:" & Wscript.Arguments(2)
					Exit Do
				end if
				' 先頭行がセミコロンの場合は、コメントとみなします
				RealLine = Split(Buffer,";")
				' セミコロンがあった場合、RealLine(0) は空です
				Entry = Split(RealLine(0),"=")
				' 通常行の場合、= が見つかればエントリです
				if ( Ubound(Entry) = 1 ) then
					' エントリが検索対象かどうかをチェック
					if Ucase(Trim(Entry(0))) = Ucase(Wscript.Arguments(2)) then
						' 一致した場合のみ値を表示
						Wscript.Echo(Trim(Entry(1)))
						' ファイルを閉じて終了する
						InObj.Close
						Wscript.Quit
					End if
				end if
			end if
		end if
	end if
Loop
' ここは、検索対象が発見できなかった場合の終了です
InObj.Close
if search then
	WshShell.LogEvent 1, "指定されたエントリを発見できませんでした:" & Wscript.Arguments(2)
else
	WshShell.LogEvent 1, "指定されたセクションを発見できませんでした:" & Wscript.Arguments(1)
end if
Wscript.Echo

VBS : My Documents フォルダのような、特殊フォルダのサイズを取得する

以下のリンク先は英文ですが、Shell オブジェクトで利用する特殊フォルダのコード一覧です。
ShellSpecialFolderConstants Enumeration (Windows)

通常のファイルでは、Shell オブジェクトは必要ありません。FileSystemObject
に直接パスを渡してサイズを取得する事ができます。

Const MY_DOCUMENTS = &H5
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objShell = CreateObject("Shell.Application") 
 
Set objFolder = objShell.Namespace(MY_DOCUMENTS) 
Set objFolderItem = objFolder.Self 
strPath = objFolderItem.Path 
 
Set objFolder = objFSO.GetFolder(strPath) 
Wscript.Echo objFolder.Size 

Hey, Scripting Guy!
My Documents フォルダのサイズを判断する方法はありますか