Contents
- 構文
- LENGTH( 文字列 )
- 引数
- 文字列
- 数える文字列 （もしくは配列変数）
- 戻値
文字数 （配列変数時は配列サイズを返す)
ANSI(バイト)処理の場合は LENGTHB
サロゲートペア１文字を 2でカウント LENGTHS
プログラム実行例
POSTデータを送信して指定したURLを開く
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
<div class="toolbar" style="font-size:120%; text-align:right;"><span class="fa fa-files-o" title="コピー"></span></div><code class="uwsc">HASHTBL 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 ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE BusyWait(IE) TRY SLEEP(0.500) REPEAT SLEEP(0.010) UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT SLEEP(5.000) ENDTRY FEND</code><textarea style="display: none;">HASHTBL 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 ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE BusyWait(IE) TRY SLEEP(0.500) REPEAT SLEEP(0.010) UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT SLEEP(5.000) ENDTRY FEND</textarea> |
ポップアップメニューで選択した項目を出力（サブメニューあり）
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
<div class="toolbar" style="font-size:120%; text-align:right;"><span class="fa fa-files-o" title="コピー"></span></div><code class="uwsc">DIM menu[] = "項目1", "項目2", "{項目2-1", "項目2-2}", "項目3", "{項目3-1", "項目3-2", "項目3-3}", "項目4", "項目5" DIM res = POPUPMENU(menu) // サブメニューとして指定する際に必要な「{ }」を削除 IF COPY(menu[res], 1, 1) = "{" THEN menu[res] = COPY(menu[res], 2) IF COPY(menu[res], LENGTH(menu[res], 1)) = "}" THEN menu[res] = COPY(menu[res], 1, LENGTH(menu[res] - 1)) PRINT menu[res]</code><textarea style="display: none;">DIM menu[] = "項目1", "項目2", "{項目2-1", "項目2-2}", "項目3", "{項目3-1", "項目3-2", "項目3-3}", "項目4", "項目5" DIM res = POPUPMENU(menu) // サブメニューとして指定する際に必要な「{ }」を削除 IF COPY(menu[res], 1, 1) = "{" THEN menu[res] = COPY(menu[res], 2) IF COPY(menu[res], LENGTH(menu[res], 1)) = "}" THEN menu[res] = COPY(menu[res], 1, LENGTH(menu[res] - 1)) PRINT menu[res]</textarea> |
Tempフォルダのフォルダをデスクトップに移動
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 |
<div class="toolbar" style="font-size:120%; text-align:right;"><span class="fa fa-files-o" title="コピー"></span></div><code class="uwsc">CONST ssfDesktop = 0 CONST TemporaryFolder = 2 DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") DIM Folder = FSO.GetSpecialFolder(TemporaryFolder) DIM source = FSO.BuildPath(Folder.Path, "NewFolder") DIM Shell = CREATEOLEOBJ("Shell.Application") Folder = Shell.NameSpace(ssfDesktop) DIM path = Folder.Self.Path DIM destination = path + IIF(COPY(path, LENGTH(path)) = "\", "", "\") FSO.MoveFolder(source, destination) ////////////////////////////////////////////////// // 【引数】 // expr : 評価する式 // truepart : 評価した式がTrueのときに返す値 // falsepart : 評価した式がFalseのときに返す値 // 【戻値】 // truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき ////////////////////////////////////////////////// FUNCTION IIF(expr, truepart, falsepart) IFB VAL(expr) THEN RESULT = truepart ELSE RESULT = falsepart ENDIF FEND</code><textarea style="display: none;">CONST ssfDesktop = 0 CONST TemporaryFolder = 2 DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") DIM Folder = FSO.GetSpecialFolder(TemporaryFolder) DIM source = FSO.BuildPath(Folder.Path, "NewFolder") DIM Shell = CREATEOLEOBJ("Shell.Application") Folder = Shell.NameSpace(ssfDesktop) DIM path = Folder.Self.Path DIM destination = path + IIF(COPY(path, LENGTH(path)) = "\", "", "\") FSO.MoveFolder(source, destination) ////////////////////////////////////////////////// // 【引数】 // expr : 評価する式 // truepart : 評価した式がTrueのときに返す値 // falsepart : 評価した式がFalseのときに返す値 // 【戻値】 // truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき ////////////////////////////////////////////////// FUNCTION IIF(expr, truepart, falsepart) IFB VAL(expr) THEN RESULT = truepart ELSE RESULT = falsepart ENDIF FEND</textarea> |
Tempフォルダのフォルダをデスクトップにコピー
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 |
<div class="toolbar" style="font-size:120%; text-align:right;"><span class="fa fa-files-o" title="コピー"></span></div><code class="uwsc">CONST ssfDesktop = 0 CONST TemporaryFolder = 2 DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") DIM Folder = FSO.GetSpecialFolder(TemporaryFolder) DIM source = FSO.BuildPath(Folder.Path, "NewFolder") DIM Shell = CREATEOLEOBJ("Shell.Application") Folder = Shell.NameSpace(ssfDesktop) DIM path = Folder.Self.Path DIM destination = path + IIF(COPY(path, LENGTH(path)) = "\", "", "\") FSO.CopyFolder(source, destination) ////////////////////////////////////////////////// // 【引数】 // expr : 評価する式 // truepart : 評価した式がTrueのときに返す値 // falsepart : 評価した式がFalseのときに返す値 // 【戻値】 // truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき ////////////////////////////////////////////////// FUNCTION IIF(expr, truepart, falsepart) IFB VAL(expr) THEN RESULT = truepart ELSE RESULT = falsepart ENDIF FEND</code><textarea style="display: none;">CONST ssfDesktop = 0 CONST TemporaryFolder = 2 DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") DIM Folder = FSO.GetSpecialFolder(TemporaryFolder) DIM source = FSO.BuildPath(Folder.Path, "NewFolder") DIM Shell = CREATEOLEOBJ("Shell.Application") Folder = Shell.NameSpace(ssfDesktop) DIM path = Folder.Self.Path DIM destination = path + IIF(COPY(path, LENGTH(path)) = "\", "", "\") FSO.CopyFolder(source, destination) ////////////////////////////////////////////////// // 【引数】 // expr : 評価する式 // truepart : 評価した式がTrueのときに返す値 // falsepart : 評価した式がFalseのときに返す値 // 【戻値】 // truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき ////////////////////////////////////////////////// FUNCTION IIF(expr, truepart, falsepart) IFB VAL(expr) THEN RESULT = truepart ELSE RESULT = falsepart ENDIF FEND</textarea> |
今年の恵方を求める
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 |
<div class="toolbar" style="font-size:120%; text-align:right;"><span class="fa fa-files-o" title="コピー"></span></div><code class="uwsc">DIM year = getYear(today()) // 西暦の下1桁 DIM y = COPY(year, LENGTH(year), 1) SELECT y CASE 0; PRINT "西南西微西" CASE 1; PRINT "南南東微南" CASE 2; PRINT "北北西微北" CASE 3; PRINT "南南東微南" CASE 4; PRINT "東北東微東" CASE 5; PRINT "西南西微西" CASE 6; PRINT "南南東微南" CASE 7; PRINT "北北西微北" CASE 8; PRINT "南南東微南" CASE 9; PRINT "東北東微東" SELEND ////////////////////////////////////////////////// // 【引数】 // date : 日付（”YYYYMMDD” or “YYYY/MM/DD” or “YYYY-MM-DD” or “YYYYMMDDHHNNSS” or “YYYY/MM/DD HH:NN:SS”） // 【戻値】 // 指定した日付の「年」 ////////////////////////////////////////////////// FUNCTION getYear(date) GETTIME(0, date) RESULT = G_TIME_YY4 FEND ////////////////////////////////////////////////// // 【引数】 // // 【戻値】 // 今日の日付 ////////////////////////////////////////////////// FUNCTION today() GETTIME() RESULT = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 FEND</code><textarea style="display: none;">DIM year = getYear(today()) // 西暦の下1桁 DIM y = COPY(year, LENGTH(year), 1) SELECT y CASE 0; PRINT "西南西微西" CASE 1; PRINT "南南東微南" CASE 2; PRINT "北北西微北" CASE 3; PRINT "南南東微南" CASE 4; PRINT "東北東微東" CASE 5; PRINT "西南西微西" CASE 6; PRINT "南南東微南" CASE 7; PRINT "北北西微北" CASE 8; PRINT "南南東微南" CASE 9; PRINT "東北東微東" SELEND ////////////////////////////////////////////////// // 【引数】 // date : 日付（”YYYYMMDD” or “YYYY/MM/DD” or “YYYY-MM-DD” or “YYYYMMDDHHNNSS” or “YYYY/MM/DD HH:NN:SS”） // 【戻値】 // 指定した日付の「年」 ////////////////////////////////////////////////// FUNCTION getYear(date) GETTIME(0, date) RESULT = G_TIME_YY4 FEND ////////////////////////////////////////////////// // 【引数】 // // 【戻値】 // 今日の日付 ////////////////////////////////////////////////// FUNCTION today() GETTIME() RESULT = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 FEND</textarea> |
- 結果
-
1西南西微西
ソウルナンバーを求める
桁が一桁になるか、ゾロ目になるまで各桁を足し続ける。
生年月日をyyyymmddの形式で指定する。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
<div class="toolbar" style="font-size:120%; text-align:right;"><span class="fa fa-files-o" title="コピー"></span></div><code class="uwsc">DIM n = 20000501 REPEAT n = digitSum(n) UNTIL LENGTH(n) = 1 OR COPY(n, 1, 1) = COPY(n, 2, 1) PRINT n ////////////////////////////////////////////////// // 【引数】 // num : 数値（正の整数） // 【戻値】 // 各桁の数値の和 ////////////////////////////////////////////////// FUNCTION digitSum(num) DIM res = 0 IFB VARTYPE(ABS(num, VAR_DWORD)) = num THEN // 正の整数ならば FOR n = 1 TO LENGTH(num) res = res + VAL(COPY(num, n, 1)) NEXT ELSE res = ERR_VALUE ENDIF RESULT = res FEND</code><textarea style="display: none;">DIM n = 20000501 REPEAT n = digitSum(n) UNTIL LENGTH(n) = 1 OR COPY(n, 1, 1) = COPY(n, 2, 1) PRINT n ////////////////////////////////////////////////// // 【引数】 // num : 数値（正の整数） // 【戻値】 // 各桁の数値の和 ////////////////////////////////////////////////// FUNCTION digitSum(num) DIM res = 0 IFB VARTYPE(ABS(num, VAR_DWORD)) = num THEN // 正の整数ならば FOR n = 1 TO LENGTH(num) res = res + VAL(COPY(num, n, 1)) NEXT ELSE res = ERR_VALUE ENDIF RESULT = res FEND</textarea> |
- 結果
-
18
重み付きで数値を取得
5/10で「1」、3/10で「2」、2/10の確率で「3」を出現させます。
|
1 2 3 4 5 6 7 8 9 |
<div class="toolbar" style="font-size:120%; text-align:right;"><span class="fa fa-files-o" title="コピー"></span></div><code class="uwsc">DIM str = "1111122233" FOR n = 1 TO 10 PRINT VAL(COPY(str, RANDOM(LENGTH(str)) + 1, 1)) NEXT</code><textarea style="display: none;">DIM str = "1111122233" FOR n = 1 TO 10 PRINT VAL(COPY(str, RANDOM(LENGTH(str)) + 1, 1)) NEXT</textarea> |
- 結果
-
123456789102211311331
記述例
-
LENGTHを使って文字数を数える簡単なプログラム。
1PRINT LENGTH("文字数を数える文字列を指定")- 結果
- 13
