1. 配列

引数に指定した配列を結合し文字列を返します。

文字列を区切り配列にするには、SPLIT関数 (スクリプト関数)を使います。

構文

1. UString = JOIN( 配列変数, 区切文字列, 空文字処理フラグ, 開始, 終了 )

引数

配列変数 （Array）必須

配列変数名

区切文字列 （String = スペース）省略可

結合に使用する区切文字列（省略時はスペース）

空文字処理フラグ （Boolean = False）省略可

FALSE

空文字も有効 （デフォルト）

TRUE

空文字は無効として処理しない

開始, 終了 （Integer）省略可

結合する配列の開始位置、終了位置の添え字を指定

戻り値

作成された文字列 

プログラム実行例

素因数分解する

616を素因数分解し、その結果を出力します。

結果

プレーンテキスト

Copy616＝2×2×2×7×11

使用関数

primeFactorization関数 (自作関数)(2)

数値を素因数分解した値を格納した配列を返します。

JOIN関数(3)

配列の中身を区切り文字で結合し、文字列として返します。

POSTデータを送信して指定したURLを開く

UWSC

CopyHASHTBL data // 送信するデータを「data[名前] = 値」の形式で指定 data["mail"] = "info@example.com" data["address"] = "北海道" DIM arr[LENGTH(data) - 1] FOR n = 0 TO LENGTH(data) - 1 // 連想配列の中身を「名前=値」の形式に変換 arr[n] = arr[n] + data[n, HASH_KEY] + "=" + ENCODE(ENCODE(data[n, HASH_VAL], CODE_UTF8), CODE_URL) NEXT // 配列の中身を「&」で結合 DIM PostData = JOIN(arr, "&") // データをエンコード PostData = ENCODE(PostData, CODE_BYTEARRAY) // PostDataを渡すときは必ず指定 DIM Headers = "Content-Type: application/x-www-form-urlencoded" DIM IE = CREATEOLEOBJ("InternetExplorer.Application") IE.Visible = TRUE IE.Navigate("http://example.com", , , PostData, Headers) BusyWait(IE) SLEEP(5.000) IE.Quit ////////////////////////////////////////////////// // 【引数】 // array : 要素を追加する配列（参照引数） // values : 追加する要素をvalue1から指定 // 【戻り値】 // 処理後の配列の要素の数 ////////////////////////////////////////////////// FUNCTION arrayPush(var array[], value1 = EMPTY, value2 = EMPTY, value3 = EMPTY, value4 = EMPTY, value5 = EMPTY, value6 = EMPTY, value7 = EMPTY, value8 = EMPTY, value9 = EMPTY, value10 = EMPTY, value11 = EMPTY, value12 = EMPTY, value13 = EMPTY, value14 = EMPTY, value15 = EMPTY, value16 = EMPTY) DIM i = 1 WHILE EVAL("value" + i) <> EMPTY DIM res = RESIZE(array, UBound(array) + 1) array[res] = EVAL("value" + i) i = i + 1 WEND RESULT = LENGTH(array) FEND ////////////////////////////////////////////////// // 【引数】 // needle : 検索する値 // haystack : 配列 // 【戻り値】 // needleが見つかった場合に配列のキー ////////////////////////////////////////////////// FUNCTION arraySearch(needle, haystack[]) DIM i = 0 FOR item IN haystack IFB item = needle THEN RESULT = i EXIT ENDIF i = i + 1 NEXT FEND ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻り値】 ////////////////////////////////////////////////// PROCEDURE BusyWait(Var IE) SLEEP(0.500) DIM t = GETTIME() TRY REPEAT DIM tm = GETTIME() - t FUKIDASI("BusyWait：" + tm) SLEEP(0.010) IF tm >= 60 THEN BREAK UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT IE = getIEObj(-1) PRINT IE.document.URL + " のIEオブジェクトを取得しました。" BusyWait(IE) ENDTRY FUKIDASI() FEND ////////////////////////////////////////////////// // 【引数】 // 文字列 or 数値 : 取得したい<a href="https://uwsc.jp/com/ie/">InternetExplorer オブジェクト</a>のタイトル・URLもしくは数値を指定 // 完全一致フラグ : （TRUE : 文字列が完全一致したものを取得、FALSE : 文字列の一部を含むものを取得） // 【戻り値】 // 条件に一致する<a href="https://uwsc.jp/com/ie">InternetExplorer</a> ////////////////////////////////////////////////// FUNCTION getIEObj(str, flg = FALSE) DIM Shell = CREATEOLEOBJ("Shell.Application") DIM ShellWindows = Shell.Windows DIM IE[-1] FOR i = 0 TO ShellWindows.Count - 1 TRY IFB ShellWindows.Item(i).Name = "Internet Explorer" THEN arrayPush(IE, ShellWindows.Item(i)) ENDIF EXCEPT ENDTRY NEXT SELECT CHKNUM(str) CASE TRUE IFB str = 0 THEN RESULT = LENGTH(IE) ELSE IF str < 0 THEN str = str + LENGTH(IE) + 1 TRY RESULT = IE[str-1] EXCEPT RESULT = ERR_VALUE ENDTRY ENDIF CASE FALSE DIM pattern = IIF(flg, "^" + str + "$", str) DIM titleList = SLICE(IE) FOR i = 0 TO UBound(titleList) titleList[i] = titleList[i].Document.title NEXT DIM urlList = SLICE(IE) FOR i = 0 TO UBound(urlList) urlList[i] = urlList[i].Document.URL NEXT DIM num = ERR_VALUE SELECT TRUE CASE pregGrep(pattern, titleList) <> FALSE; num = arraySearch(pregGrep(pattern, titleList)[0], titleList) CASE pregGrep(pattern, urlList) <> FALSE; num = arraySearch(pregGrep(pattern, urlList)[0], urlList) SELEND TRY RESULT = IE[num] EXCEPT RESULT = ERR_VALUE ENDTRY SELEND FEND ////////////////////////////////////////////////// // 【引数】 // expr : 評価する式 // truepart : 評価した式がTrueのときに返す値 // falsepart : 評価した式がFalseのときに返す値 // 【戻り値】 // truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき ////////////////////////////////////////////////// FUNCTION IIF(expr, truepart, falsepart) IFB EVAL(expr) THEN RESULT = truepart ELSE RESULT = falsepart ENDIF FEND ////////////////////////////////////////////////// // 【引数】 // pattern : 検索するパターンを表す文字列 // array : 検索される配列 // 【戻り値】 ////////////////////////////////////////////////// FUNCTION pregGrep(pattern, array[], flags = 0) DIM res[-1] FOR item IN array IF reTest(item, pattern) THEN arrayPush(res, item) NEXT RESULT = SLICE(res) FEND ////////////////////////////////////////////////// // 【引数】 // str : 正規表現による検索の対象となる文字列 // Pattern : 正規表現で使用するパターンを設定 // IgnoreCase : 大文字・小文字を区別しない場合はTrue、区別する場合はFalse // Global : 文字列全体を検索する場合はTrue、しない場合はFalse // 【戻り値】 // 正規表現にマッチするかどうかを示すブール値 ////////////////////////////////////////////////// FUNCTION reTest(str, Pattern, IgnoreCase = TRUE, Global = TRUE) DIM re = CREATEOLEOBJ("VBScript.RegExp") re.Pattern = Pattern re.IgnoreCase = IgnoreCase re.Global = Global RESULT = re.Test(str) FEND ////////////////////////////////////////////////// // 【引数】 // inputs : 繰り返す文字列 // multiplier : inputsを繰り返す回数 // 【戻り値】 // inputsをmultiplier回を繰り返した文字列を返します ////////////////////////////////////////////////// FUNCTION strRepeat(inputs, multiplier) DIM res = "" FOR n = 1 TO multiplier res = res + inputs NEXT RESULT = res FEND ////////////////////////////////////////////////// // 【引数】 // arrayname : 上限値を求める配列の名前 // dimension : 返す次元を示す整数 // 【戻り値】 // 配列の上限値 ////////////////////////////////////////////////// FUNCTION UBound(arrayname[], dimension = 1) RESULT = EVAL("RESIZE(arrayname" + strRepeat("[0]", dimension - 1) + ")") FEND

使用関数

LENGTH関数 (スクリプト関数)(6,7)

文字数もしくは配列サイズを返します。

ENCODE関数(9,15)

文字列をエンコードする。

JOIN関数(12)

配列の中身を区切り文字で結合し、文字列として返します。

CREATEOLEOBJ関数 (スクリプト関数)(18)

COMオブジェクトを生成します。

SLEEP関数(22)

処理を待機します。

デスクトップにChromeのショートカットを作成

デスクトップにGoogle Chromeで[createLink url="https://google.co.jp" title="https://google.co.jp"]をシークレットモードで起動するショートカットを作成します。

UWSC

CopyCONST ssfDesktop = 0 DIM Shell = CREATEOLEOBJ("Shell.Application") DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") DIM WshShell = CREATEOLEOBJ("WScript.Shell") DIM Folder2 = Shell.NameSpace(ssfDesktop) DIM path = Folder2.Self.Path + "\Chrome.lnk" DIM WshShortcut = WshShell.CreateShortcut(path) WITH WshShortcut DIM chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" .Description = "Chromeをシークレットモードで起動します。" .Hotkey = "Ctrl+Shift+C" .IconLocation = chromePath + ",7" .TargetPath = chromePath .WindowStyle = 3 .Save ENDWITH Folder = Shell.NameSpace(FSO.GetParentFolderName(path)) DIM FolderItem = Folder.ParseName(FSO.GetFileName(path)) DIM ShellLinkObject = FolderItem.Getlink() DIM Args[] = "--incognito", "https://google.co.jp" WITH ShellLinkObject .Arguments = JOIN(Args) .Save ENDWITH

結果

使用関数

CREATEOLEOBJ関数 (スクリプト関数)(3,4,5)

COMオブジェクトを生成します。

Shell.NameSpace メソッド(7,21)

指定されたフォルダのFolder2 オブジェクトを作成して返します。

Folder2.Self プロパティ (Shell)(8)

Folder2 オブジェクトのFolderItem オブジェクトを返します。

WshShell.CreateShortcut メソッド(9)

ショートカットまたはURLショートカットへのオブジェクト参照を作成します。

WshShortcut オブジェクト(9)

ショートカットの作成、読み込み、および編集に使用されます。WshShortcutオブジェクトは、ショートカットのプロパティを設定および取得するために使用できるプロパティを提供します。WshShortcutオブジェクトは、WshShellオブジェクトのCreateShortcutメソッドを使用して作成されます。

WITH文(11,26)

WshShortcutオブジェクトのDescription属性を取得または設定します。

ショートカットに対して割り当てられたホットキーのキーコードを表します。

WshShortcut.IconLocation プロパティ (WshShell)(15)

ショートカットが参照するアイコンのファイルパスとインデックスを取得または設定するために使用されます。

ショートカットが指し示すファイルまたはプログラムのパスを取得または設定するために使用されます。ショートカットが指し示すファイルまたはプログラムは、このプロパティによって取得されたパスで表されます。

作成されたショートカットを実行したときに表示されるウィンドウの大きさを取得または設定します。

ショートカットオブジェクトを保存します。

FSO.GetParentFolderName メソッド(21)

指定したパスの最後のコンポーネントの親フォルダ名を返します。

Folder.ParseName メソッド (Shell)(22)

指定されたアイテムのFolderItem オブジェクトを作成して返します。

FSO.GetFileName メソッド(22)

指定したパスの最後のコンポーネントのファイル名またはフォルダ名を返します。

FolderItem オブジェクト(22)

シェルフォルダ内のアイテムを表します。

FolderItem.GetLink プロパティ (Shell)(23)

項目がショートカットの場合は、Shell.Hotkeyを格納します。

ウィンドウシェルによって作成されたショートカットの情報を表します。

リンクの引数を格納します。

JOIN関数(27)

配列の中身を区切り文字で結合し、文字列として返します。

すべての変更をリンクに保存します。

関連記事

CALCARRAY関数 (スクリプト関数)

配列データを計算します。

GETALLWIN関数 (スクリプト関数)

全ウィンドウのIDを取得します。

GETOLEITEM関数 (スクリプト関数)

コレクションを取得します。

QSORT関数 (スクリプト関数)

配列の中身をソートします。

SETCLEAR関数 (スクリプト関数)

配列を指定された値で埋めます。

SHIFTARRAY関数 (スクリプト関数)

配列データをシフトします。

連想配列

連想配列とは、自動的に割り当てられる数字をキーとして持つかわりに、自由に任意の文字列を割り振ることができる配列のことです。添え字に番号の変わりに名前をつけることでわかりやすく管理することができます。

divisors関数 (自作関数)

引数に指定した数値の約数のリストを返します。

LENGTH関数 (スクリプト関数)

文字数もしくは配列サイズを返します。

POPUPMENU関数 (スクリプト関数)

ポップアップメニューを表示します。