UWSCで指定範囲のランダム値を取得

   

ハイフン区切りで数値の範囲を範囲指定することで、範囲内でのランダムな値を取得。
例えば10から30の間でのランダムな値を取得したい場合、”10-30″をパラメータとして渡す。

function getRandomSpan(span)

	spanAry = split(span, "-")
	target_min = val(spanAry[0])
	target_max = val(spanAry[1])

	// target_min - target_max 分の配列を用意
	dim hit[target_max - target_min]
	
	for i = 0 to target_max - target_min
		hit[i] = target_min + i
	next
	
	// ランダム値取得
	num = random(100)
	
	// ランダム値の上限まで配列を検索
	aryIndex = 0
	data = -1
	for i = 0 to num
	
		data = hit[aryIndex]
	
		aryIndex = aryIndex + 1
		
		// 配列数を超える場合、リセット
		if aryIndex >= length(hit) then
			aryIndex = 0
		endif
	
	next
	
	result = data
	
fend

 -uwsc

  関連記事

WS000001

UWSC MySQLへのODBC接続

MySQLへの接続で少しはまってしまいました。 以前Accessに接続した際は以下で問題ありませんで

WS000001

UWSC 「Web ページからのメッセージ」でOKボタンを押下する

以下の例ではボタン押下2秒後に”OK”を押下して閉じます。 Thread P

WS000001

UWSC 最新ダウンロード(サイトが消えた?)

UWSCのページが消えてしまったようで。。。 UWSC 上記から最新版(最終版?)のダウンロードが可

WS000001

UWSC 画像URLを保存する

DOSコマンドで画像保存が可能です。 doscmd(“bitsadmin.exe /transfer

WS000001

UWSC Excelを全て閉じる

Excelを読み取りIEで自動処理を行う開発はよく行います。 開発中にデバッグしたりしていると、Ex

WS000001

UWSC 文字コードを指定してファイルを保存する

CSVファイルを出力するサンプルです。 F_WRITE1 の部分で文字コードを指定できます。 F_W

WS000001

UWSCで配列をランダムにシャッフル(並び替え)したい

Procedure shuffleAry(var keys[]) for i = 0 to leng

invitation_banner117

UWSC げん玉で毎日自動的におこづかいを入手する簡単な方法

げん玉に登録してください UWSCスクリプトを実行する 毎日ログインし、以下を実行してください。 毎

WS000001

UWSC IEで表示最大化&最前面化

今回はIEを起動、Yahooを表示した後に最大化と最前面化を行います。 5秒経過後、終了します。 目

WS000001

UWSCでキャッシュ削除

IEのキャッシュを削除 キャッシュの容量が多い場合は少し時間がかかりますので、 Sleep(秒数)

  Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>