|
|
日時： 2018/02/02 17:47
名前： lightbox
|
nMax = 10
の部分を変更すると件数が変わります
拡張子:
<JOB>
<COMMENT>
************************************************************
WEB WSH 実行スケルトン
************************************************************
</COMMENT>
<COMMENT>
************************************************************
外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
language="VBScript"
src="http://lightbox.in.coocan.jp/laylaClass.vbs">
</SCRIPT>
<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )
nMax = 10
' ***********************************************************
' Cscript.exe で強制実行
' ***********************************************************
Crun
strName1 = "山川森鈴木高田本多村吉岡松丸杉浦中尾安原野内"
strName2 = "和元雅正由克友浩春冬洋輝"
strName3 = "男也一行樹之"
strName4 = "子代美恵"
For i = 1 to nMax
' 姓1文字目
nTarget = Random( 1, Len(strName1) )
strName = Mid( strName1, nTarget, 1 )
' 1文字目と2文字目が一致したら除外
nTarget2 = nTarget
Do while( nTarget = nTarget2 )
nTarget2 = Random( 1, Len(strName1) )
Loop
' 姓2文字目
strName = strName & Mid( strName1, nTarget2, 1 ) & " "
' 名1文字目
nTarget = Random( 1, Len(strName2) )
strName = strName & Mid( strName2, nTarget, 1 )
' 性別
nTarget = Random( 0, 1 )
' 性別によって名2文字目を決定
if nTarget = 0 then
nTarget = Random( 1, Len(strName3) )
strName = strName & Mid( strName3, nTarget, 1 )
else
nTarget = Random( 1, Len(strName4) )
strName = strName & Mid( strName4, nTarget, 1 )
end if
Wscript.Echo strName
Next
</SCRIPT>
</JOB>
|
VBScript : 氏名作成スクリプト