VBSで別ファイルにかかれている関数を呼び出すには？ (ID:122868)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

スクリプトを WSC にしておくと、再利用が楽かも。

たとえば、下記の WSC ファイルを用意しておけば、
  Set C = GetObject("script:C:\TEST.WSC")
  MsgBox C.ToYMD( Now() )
  MsgBox C.EncodeURIComponent( "魔界の仮面弁士" )
のような記述が可能になります。

===== C:\TEST.WSC =====
<?xml version="1.0" encoding="Shift_JIS"?>
<component><?componet error="true" debug="true"?>
<public>
	<method name="ToYMD">
		<parameter name="TargetDate" />
	</method>

Public Function ToYMD(ByVal TargetDate)
	Dim lngYMD
	lngYMD = Year(TargetDate) * CLng(10000) + Month(TargetDate) * 100 + Day(TargetDate)
	ToYMD = Right(CStr(100000000 + lngYMD), 8)
End Function
']]></script>
<script language="JScript"><![CDATA[
function EncodeURIComponent_(str)
{
	return encodeURIComponent(str);
}

function DecodeURIComponent_(str)
{
	return decodeURIComponent(str);
}
]]></script>

</component>

←解決時は質問者本人がここをチェックしてください。

戻る