SHIFTARRAYシフトアレイ関数

本ページには広告が含まれています。

配列を指定した値だけシフトします。プラス値で後方、マイナス値で前方にシフトします。

構文
  1. void = SHIFTARRAY( var 配列変数, シフト値 )
引数
配列変数 （Array）必須
配列変数名
シフト値 （Integer）必須
値だけ配列を後ろへシフトする、マイナス値の場合は前方シフト（空いた場所はEMPTYで埋められる）
戻り値

プログラム実行例

CPU使用率を取得する

CPU使用率を1秒毎に取得し、直近100回分の値の最大値・最小値・平均値を吹き出しに表示する。

UWSC
DIM array[100]
SETCLEAR(array, CPUUSERATE())

DIM i = 1
WHILE TRUE
	SHIFTARRAY(array, 1)
	array[0] = CPUUSERATE()
	FUKIDASI("現在<#TAB>" + CPUUSERATE() + "％<#CR>" + _
				"最大値<#TAB>" + CALCARRAY(array, CALC_MAX) + "％<#CR>" + _
				"最小値<#TAB>" + CALCARRAY(array, CALC_MIN) + "％<#CR>" + _
				"平均値<#TAB>" + ROUND(CALCARRAY(array, CALC_AVR), -2) + "％")
	i = i + 1
	SLEEP(1.000)
WEND
使用関数

UWSC.INIのDefaultFontを変更する

UWSC
CONST ssfFONTS = 20

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfFONTS)
DIM FolderItems = Folder.Items
DIM array[-1]

FOR FolderItem IN FolderItems
	arrayPush(array, FolderItem.Name)
NEXT

QSORT(array, QSRT_UNICODEA)
SHIFTARRAY(array, 1)
array[0] = "(なし)"

DIM filename = "C:\Users\" + BETWEENSTR(DOSCMD("SET"), "USERNAME=", "<#CR>") + "\AppData\Roaming\UWSC\UWSC.INI"
DIM str = SPLIT(READINI("SET", "DefaultFont", filename), ",")[0]
DIM font = SLCTBOX(SLCT_CMB OR SLCT_STR, 0, "フォントを選択してください。（現在：" + str + "）", array)

IF font = "(なし)" THEN font = ""
IF font <> -1 THEN WRITEINI("SET", "DefaultFont", font + ",", filename)
使用関数

関連記事

CALCARRAY関数 (スクリプト関数)
配列の合計値・最小値・最大値・平均値を求めます。
GETALLWIN関数 (スクリプト関数)
全ウィンドウのIDを取得します。
GETOLEITEM関数 (スクリプト関数)
JOIN関数 (スクリプト関数)
引数に指定した配列を結合し文字列を返します。
SETCLEAR関数 (スクリプト関数)
配列のすべての要素を任意の値で埋めます。
連想配列
連想配列とは、自動的に割り当てられる数字をキーとして持つかわりに、自由に任意の文字列を割り振ることができる配列のことです。添え字に番号の変わりに名前をつけることでわかりやすく管理することができます。
divisors関数 (自作関数)
引数に指定した数値の約数のリストを返します。
Collatz関数 (自作関数)
コラッツ数列 を求め結果を配列で返します。
LENGTH関数 (スクリプト関数)
POPUPMENU関数 (スクリプト関数)
ポップアップメニューを表示し、引数に指定した配列の中から選択された項目の要素番号を取得します。選択された項目を取得したい場合は、POPUPMENUの戻値を引数に指定した配列の要素番号として指定します。