2009年06月10日


VBScript : クォート付加

REM **********************************************************
REM シングルクォートで囲む
REM **********************************************************
Function Ss( strValue )

	Ss = "'" & strValue & "'"

End Function

REM **********************************************************
REM ダブルクォートで囲む
REM **********************************************************
Function Dd( strValue )

	Dd = """" & strValue & """"

End function

タグ:文字列処理
posted by at 2009-06-10 18:23 | 基本関数 | このブログの読者になる | 更新情報をチェックする

VBScript : 文字列名称からオブシェクト作成

REM **********************************************************
REM 文字列を指定して、変数にオブシェクトを作成させる
REM **********************************************************
Function GetObj( strTarget, strObjectName )

	Dim ExecuteString

	ExecuteString = "Dim " & strTarget & " : "
	ExecuteString = ExecuteString & "Set " & strTarget & " = "

	Select Case ScriptType
		Case 1
			ExecuteString = ExecuteString & _
			"WScript.CreateObject("
		Case 2
			ExecuteString = ExecuteString & _
			"CreateObject("
		Case 3
			ExecuteString = ExecuteString & _
			"Server.CreateObject("
		Case Else
			ExecuteString = ExecuteString & _
			"CreateObject("
	End Select

	ExecuteString = ExecuteString & Dd( strObjectName ) & ")"

	ExecuteGlobal ExecuteString

End Function

posted by at 2009-06-10 18:28 | 基本関数 | このブログの読者になる | 更新情報をチェックする

VBScript : スクリプト種別の判定

REM **********************************************************
REM 実行中のスクリプトのタイプ
REM 1:WSH, 2:HTA, 3:ASP, 0:不明
REM **********************************************************
Function ScriptType( )

	Dim nType

	nType = 0

	if IsObject( Wscript ) then
		nType = 1
	else
		if IsObject( window ) then
			nType = 2
		else
			if IsObject( Server ) then
				nType = 3
			end if
		end if
	end if

	ScriptType = nType

End Function

posted by at 2009-06-10 18:35 | 基本関数 | このブログの読者になる | 更新情報をチェックする

VBScript : テキストファイルの一括入出力

' **********************************************************
' メモリを使用したテキストファイルの一括入出力
' **********************************************************

Set Fso = CreateObject( "Scripting.FileSystemObject" )

strPath1 = "enum_desktop.vbs"
strPath2 = "enum_desktop.txt"

Set objHandle1 = Fso.OpenTextFile( strPath1, 1 )
Set objHandle2 = Fso.OpenTextFile( strPath2, 2, True )

strText = objHandle1.ReadAll
objHandle2.Write( strText )

Call objHandle2.Close()
Call objHandle1.Close()

OpenTextFile

posted by at 2009-06-10 18:48 | サンプル | このブログの読者になる | 更新情報をチェックする

VBScript : テキストファイルの行入出力

' **********************************************************
' テキストファイルの1行単位での入出力
' **********************************************************

Set Fso = CreateObject( "Scripting.FileSystemObject" )

strPath1 = "enum_desktop.vbs"
strPath2 = "enum_desktop.txt"

Set objHandle1 = Fso.OpenTextFile( strPath1, 1 )
Set objHandle2 = Fso.OpenTextFile( strPath2, 2, True )

Do While not objHandle1.AtEndOfStream
	Buffer = objHandle1.ReadLine
	objHandle2.WriteLine Buffer
Loop

Call objHandle2.Close()
Call objHandle1.Close()

posted by at 2009-06-10 21:29 | サンプル | このブログの読者になる | 更新情報をチェックする