1. ソート
2. 配列

配列の中身をソートします。キー配列と連動させる配列は次元の違う同じ配列名を指定することできます。

構文

1. void = QSORT( var キー配列, 順列, var 配列, var 配列, ... )

引数

キー配列 （Array）必須

ソートされる配列変数名

順列 （#qsort = QSRT_A）省略可

QSRT_A（0）

昇順 （デフォルト）

QSRT_D（1）

降順

QSRT_UNICODEA（2）

UNICODE文字比較 昇順

QSRT_UNICODED（3）

UNICODE文字比較 降順

QSRT_NATURALA（4）

自然順ソート 昇順

QSRT_NATURALD（5）

自然順ソート 降順

配列 （Array）省略可

配列変数名、キー配列のソートと連動

戻り値

順列

結果

プレーンテキスト

Copy0　9　A　Z　a　z　あ　ん　ア　ン　亜　０　９　Ａ　Ｚ　ａ　ｚ　ｱ　ﾝ　 ﾝ　ｱ　ｚ　ａ　Ｚ　Ａ　９　０　亜　ン　ア　ん　あ　z　a　Z　A　9　0　 0　０　9　９　a　ａ　A　Ａ　z　ｚ　Z　Ｚ　ｱ　ア　あ　ﾝ　ン　ん　亜　 亜　ん　ン　ﾝ　あ　ア　ｱ　Ｚ　Z　ｚ　z　Ａ　A　ａ　a　９　9　０　0　 0　０　9　９　A　a　Ａ　ａ　z　Z　Ｚ　ｚ　ｱ　ア　あ　ﾝ　ン　ん　亜　 亜　ん　ン　ﾝ　あ　ア　ｱ　Ｚ　ｚ　z　Z　Ａ　ａ　A　a　９　9　０　0　

昇順（QSRT_A）

値が小さい順に並べます。

1. 半角数字
2. 半角英字（大文字）
3. 半角英字（小文字）
4. ひらがな
5. カタカナ
6. 漢字
7. 全角数字
8. 全角英字（大文字）
9. 全角英字（小文字）
10. 半角カタカナ

降順（QSRT_D）

値が大きい順に並べます。

1. 半角カタカナ
2. 全角英字（小文字）
3. 全角英字（大文字）
4. 全角数字
5. 漢字
6. カタカナ
7. ひらがな
8. 半角英字（小文字）
9. 半角英字（大文字）
10. 半角数字

Unicode昇順（QSRT_UNICODEA）

Unicodeの文字コード昇順で並べます。

数値ではなく数字（文字）として先頭から1文字ずつ比較され並び替えが行われるので、1,2,3,4,5,10,11,12の場合、1,10,11,12,2,3,4,5という並びになってしまいます。

数字を小さい順に並べるには、桁数に合わせてゼロ埋め（2桁の場合は01、3桁の場合は001のように）するか、自然順でソートします。

結果

プレーンテキスト

Copy0 1 10 11 12 2 3 4 5 6 7 8 9

Unicode降順（QSRT_UNICODED）

Unicodeの文字コード降順で並べます。

自然順昇順（QSRT_NATURALA）

アルファベット順を基本とし、複数桁の数字を単一文字として昇順で並べます。

1. 数字（半角→全角）
2. 英字（半角→全角）
3. ひらがな・カタカナ
4. 漢字

自然順でないソートする場合、先頭から1文字ずつ大きさを比較し並び替え、1文字目が同じ場合2文字目の大きさを比較し並び替えるという手順でソートされます。

1文字目を比較し、小さい順に並び替える

2文字目を比較し、小さい順に並び替える。

このような手順のため数字は値の小さい順になりません。

一方自然順でソートする場合、12は1文字目が1だからとかではなく12と数字の塊で比較するので自然な並び方になります。

結果

プレーンテキスト

Copy0 1 2 3 4 5 6 7 8 9 10 11 12

自然順降順（QSRT_NATURALD）

アルファベット順を基本とし、複数桁の数字を単一文字として降順で並べます。

使い方

昇順

結果

プレーンテキスト

Copy5, 6, 13, 19, 30, 39, 64, 68, 70, 99,

降順

結果

プレーンテキスト

Copy99, 70, 68, 64, 39, 30, 19, 13, 6, 5,

Unicode昇順

結果

プレーンテキスト

Copy13, 19, 30, 39, 5, 6, 64, 68, 70, 99,

Unicode降順

結果

プレーンテキスト

Copy99, 70, 68, 64, 6, 5, 39, 30, 19, 13,

プログラム実行例

サービスをすべて取得し、そのサービスをユーザーが開始・停止できるかどうかをブール値で返す

結果

CSV

CopyAarSvc_6b8fd： False AdobeARMservice： False AJRouter： False ALG： False ALUpdateService： False AppHostSvc： False AppIDSvc： False Appinfo： False AppReadiness： False AppXSvc： False aspnet_state： False AudioEndpointBuilder： False Audiosrv： False autotimesvc： False AxInstSV： False BcastDVRUserService_6b8fd： False BDESVC： False BFE： False BITS： False BluetoothUserService_6b8fd： False Bonjour Service： False BootRacerServ： False BrokerInfrastructure： False BTAGService： False BthAvctpSvc： False bthserv： False camsvc： False CaptureService_6b8fd： False cbdhsvc_6b8fd： False CDPSvc： False CDPUserSvc_6b8fd： False CertPropSvc： False chromoting： False CLHNService： False ClipSVC： False COMSysApp： False ConsentUxUserSvc_6b8fd： False CoreMessagingRegistrar： False cphs： False CredentialEnrollmentManagerUserSvc_6b8fd： False CryptSvc： False CypherGuard cguard Service 32bit Edition： False CypherGuard cguard Service 64bit Edition： False CypherGuard Info Service： False dbupdate： False dbupdatem： False DbxSvc： False DcomLaunch： False dcsvc： False defragsvc： False DeviceAssociationBrokerSvc_6b8fd： False DeviceAssociationService： False DeviceInstall： False DevicePickerUserSvc_6b8fd： False DevicesFlowUserSvc_6b8fd： False DevQueryBroker： False Dhcp： False diagnosticshub.standardcollector.service： False diagsvc： False DiagTrack： False DispBrokerDesktopSvc： False DisplayEnhancementService： False DmEnrollmentSvc： False dmwappushservice： False Dnscache： False DoSvc： False dot3svc： False DPS： False DSDFunctionKeyCtlService： False DSDTabletControlService： False DSDWirelessLEDCtlService： False DsmSvc： False DsSvc： False DusmSvc： False dynabookSettingService： False Eaphost： False edgeupdate： False edgeupdatem： False EFS： False embeddedmode： False EntAppSvc： False EventLog： False EventSystem： False Everything： False Fax： False fdPHost： False FDResPub： False fhsvc： False FolderSize： False FontCache： False FontCache3.0.0.0： False FrameServer： False Freemake Improver： False FreemakeVideoCapture： False GoogleChromeElevationService： False GoogleIMEJaCacheService： False gpsvc： False GraphicsPerfSvc： False gupdate： False gupdatem： False hidserv： False HvHost： False icssvc： False IDriverT： False IKEEXT： False ImeDictUpdateService： False InstallService： False iphlpsvc： False IpxlatCfgSvc： False KeyIso： False KtmRm： False LanmanServer： False LanmanWorkstation： False lfsvc： False LicenseManager： False LLHDClient： False LLHDCloader： False lltdsvc： False lmhosts： False LMS： False LSM： False LxpSvc： False MapsBroker： False McpManagementService： False MessagingService_6b8fd： False MicrosoftEdgeElevationService： False MixedRealityOpenXRSvc： False MozillaMaintenance： False mpssvc： False MSDTC： False MSiSCSI： False msiserver： False MSMQ： False MSSQL$SQLEXPRESS： False MSSQLServerADHelper100： False NaturalAuthentication： False NcaSvc： False NcbService： False NcdAutoSetup： False Netlogon： False Netman： False NetMsmqActivator： False NetPipeActivator： False netprofm： False NetSetupSvc： False NetTcpActivator： False NetTcpPortSharing： False NgcCtnrSvc： False NgcSvc： False NielsenUpdate： True NlaSvc： False nsi： False nurago InstallUpdate： False nurago NetworkMeter： False nurago Reporting Service： False OneSyncSvc_6b8fd： False ose64： False osppsvc： False p2pimsvc： False p2psvc： False PcaSvc： False perceptionsimulation： False PerfHost： False PhoneSvc： False PimIndexMaintenanceSvc_6b8fd： False pla： False PlugPlay： False PNRPAutoReg： False PNRPsvc： False PolicyAgent： False Power： False PrintNotify： False PrintWorkflowUserSvc_6b8fd： False ProfSvc： False PushToInstall： False QWAVE： False RasAuto： False RasMan： False RemoteAccess： False RemoteRegistry： False RetailDemo： False RmSvc： False RpcEptMapper： False RpcLocator： False RpcSs： False SamSs： False SCardSvr： False ScDeviceEnum： False Schedule： False SCPolicySvc： False SDRSVC： False seclogon： False SecurityHealthService： False SEMgrSvc： False SENS： False SensorDataService： False SensorService： False SensrSvc： False SessionEnv： False SgrmBroker： False SharedAccess： False SharedRealitySvc： False ShellHWDetection： False shpamsvc： False smphost： False SmsRouter： False SNMPTRAP： False spectrum： False Spooler： False sppsvc： False SQLAgent$SQLEXPRESS： False SQLBrowser： False SQLWriter： False SSDPSRV： False ssh-agent： False SstpSvc： False StateRepository： False stisvc： False StorSvc： False svsvc： False swprv： False SynTPEnhService： False SysMain： False SystemEventsBroker： False SystemExplorerHelpService： False TabletInputService： False TapiSrv： False TermService： False Themes： False TieringEngineService： False TimeBrokerSvc： False TMachInfo： False TODDSrv： False TokenBroker： False TosCoSrv： False TOSHIBA HDD SSD Alert Service： False TPCHSrv： False TrkWks： False TroubleshootingSvc： False TrustedInstaller： False tzautoupdate： False UdkUserSvc_6b8fd： False uhssvc： False UmRdpService： False UnistoreSvc_6b8fd： False UNS： False upnphost： False UserDataSvc_6b8fd： False UserManager： False UsoSvc： False VacSvc： False VaultSvc： False vds： False vmicguestinterface： False vmicheartbeat： False vmickvpexchange： False vmicrdv： False vmicshutdown： False vmictimesync： False vmicvmsession： False vmicvss： False vncserver： False VSS： False VSStandardCollectorService150： False W32Time： False w3logsvc： False W3SVC： False WaaSMedicSvc： False WalletService： False WarpJITSvc： False WAS： False wbengine： False WbioSrvc： False Wcmsvc： False wcncsvc： False WdiServiceHost： False WdiSystemHost： False WdNisSvc： False WebClient： False Wecsvc： False WEPHOSTSVC： False wercplsupport： False WerSvc： False WFDSConMgrSvc： False WiaRpc： False WinDefend： False WinHttpAutoProxySvc： False Winmgmt： False WinRM： False wisvc： False WlanSvc： False wlidsvc： False wlpasvc： False WManSvc： False wmiApSrv： False WMPNetworkSvc： False workfolderssvc： False WpcMonSvc： False WPDBusEnum： False WpnService： False WpnUserService_6b8fd： False wscsvc： False WSearch： False wuauserv： False WwanSvc： False XblAuthManager： False XblGameSave： False XboxGipSvc： False XboxNetApiSvc： False

使用関数

CREATEOLEOBJ関数(1)

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

DOSCMD関数(2)

コマンドプロンプトを実行します。

reExecute関数 (自作関数)(3)

正規表現 検索を行います。

指定されたサービスが開始/停止が可能かどうかを示すブール値を返します。

QSORT関数(11)

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

フォルダ内のファイルを更新日時でソートする

UWSC

CopyDIM Shell = CREATEOLEOBJ("Shell.Application") DIM Folder = Shell.NameSpace("C:\Program Files (x86)\UWSC") DIM FolderItems = Folder.Items HASHTBL iColumn FOR i = 0 TO 350 iColumn[Folder.GetDetailsOf(EMPTYPARAM, i)] = i NEXT DIM filename[-1] DIM datetime[-1] FOR i = 0 TO FolderItems.Count - 1 DIM FolderItem = FolderItems.Item(i) IF FolderItem.isFolder THEN CONTINUE arrayPush(filename, Folder.GetDetailsOf(FolderItem,iColumn["名前"])) arrayPush(datetime, Folder.GetDetailsOf(FolderItem, iColumn["更新日時"])) NEXT QSORT(datetime, QSRT_NATURALA, filename) FOR i = 0 TO UBound(filename) PRINT filename[i] + "<#TAB>" + datetime[i] NEXT ////////////////////////////////////////////////// // 【引数】 // 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 ////////////////////////////////////////////////// // 【引数】 // 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

結果

プレーンテキスト

CopyUDebug.chm 2014/05/11 1:58 RecIE.chm 2014/05/11 1:58 Uws2Exe.chm 2015/08/13 16:12 RecUws.dll 2016/03/25 4:57 UWSC.exe 2016/10/15 13:33 Uws2Exe.exe 2016/10/15 13:34 RecIE.exe 2016/10/15 13:35 UDebug.exe 2016/10/15 13:37 XRef.exe 2016/10/15 13:38 Readme.txt 2016/10/15 13:39 uwsc.chm 2016/10/15 13:41 unins000.exe 2018/06/27 12:48 unins000.dat 2018/06/27 12:49

使用関数

CREATEOLEOBJ関数(1)

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

Shell.NameSpace メソッド(2)

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

フォルダ内のアイテムのコレクションを表すFolderItems オブジェクトを取得します。

Folder.GetDetailsOf メソッド (Shell)(8,18,19)

フォルダ内のアイテムに関する詳細を取得します。

コレクションに含まれる要素の数を取得します。

FolderItems.Item メソッド (Shell)(16)

コレクション内の指定されたアイテムのFolderItem オブジェクトを取得します。

アイテムがフォルダかを示すブール値を返します。

dateValue関数 (自作関数)(21)

日付形式の文字列をシリアル値に変換します。

timeValue関数 (自作関数)(21)

指定した時間のシリアル値を求める。

QSORT関数(24)

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

UBound関数 (自作関数)(26)

配列の上限値（最大インデックス）を求めます。arraynameに配列の名前、dimensionに上限値を求める配列の次元を指定します。

テキストファイルの内容を行毎にソートして出力する

UWSC

CopyDIM FID = FOPEN("D:\Documents\sample.txt", F_READ) DIM array[-1] FOR i = 1 TO FGET(FID, F_LINECOUNT) arrayPush(array, FGET(FiD, i)) NEXT FCLOSE(FID) QSORT(array, QSRT_A) FOR i = 0 TO UBound(array) PRINT array[i] NEXT ////////////////////////////////////////////////// // 【引数】 // 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 ////////////////////////////////////////////////// // 【引数】 // 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

使用関数

FOPEN関数(1)

テキストファイルを開き、ファイルIDを取得します。

FGET関数(4,5)

テキストファイルの読み込みを行います。

arrayPush関数 (自作関数)(5)

配列の末尾に要素を追加します。

FCLOSE関数(8)

テキストファイルを閉じます。

QSORT関数(10)

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

UBound関数 (自作関数)(12)

配列の上限値（最大インデックス）を求めます。arraynameに配列の名前、dimensionに上限値を求める配列の次元を指定します。

テキストファイルの内容を行毎にソートして書き換える

UWSC

CopyDIM FID = FOPEN("D:\Documents\sample.txt", F_READ OR F_WRITE) DIM array[-1] FOR i = 1 TO FGET(FID, F_LINECOUNT) arrayPush(array, FGET(FiD, i)) NEXT QSORT(array, QSRT_A) FPUT(FID, "", F_ALLTEXT) FOR i = 0 TO UBound(array) FPUT(FID, array[i], i + 1) NEXT FCLOSE(FID) ////////////////////////////////////////////////// // 【引数】 // 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 ////////////////////////////////////////////////// // 【引数】 // 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

使用関数

FOPEN関数(1)

テキストファイルを開き、ファイルIDを取得します。

FGET関数(4)

テキストファイルの読み込みを行います。

arrayPush関数 (自作関数)(5)

配列の末尾に要素を追加します。

QSORT関数(8)

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

FPUT関数(10,13)

テキストファイルの書き込みを行います。

UBound関数 (自作関数)(12)

配列の上限値（最大インデックス）を求めます。arraynameに配列の名前、dimensionに上限値を求める配列の次元を指定します。

FCLOSE関数(16)

テキストファイルを閉じます。

配列の中身を昇順で並び替える

UWSC

CopyDIM arr[] = 674, 8, 957, 254, 6014, 36, 378 QSORT(arr, QSRT_A) FOR item IN arr PRINT item NEXT

結果

プレーンテキスト

Copy8 36 254 378 674 957 6014

使用関数

QSORT関数(3)

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

配列の中身を降順で並び替える

UWSC

CopyDIM arr[] = 586, 36, 7528, 61, 872, 3695, 142 QSORT(arr, QSRT_D) FOR item IN arr PRINT item NEXT

結果

プレーンテキスト

Copy7528 3695 872 586 142 61 36

使用関数

QSORT関数(3)

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

多次元配列を一次元配列として昇順で並び替える

UWSC

CopyDIM arr[1][7] arr[0][0] = 25; arr[1][0] = 37; arr[0][1] = 49; arr[1][1] = 76; arr[0][2] = 25; arr[1][2] = 38; arr[0][3] = 2; arr[1][3] = 23; arr[0][4] = 11; arr[1][4] = 6; arr[0][5] = 11; arr[1][5] = 23; arr[0][6] = 48; arr[1][6] = 25; arr[0][7] = 73; arr[1][7] = 23; QSORT(arr, 0) FOR item IN arr PRINT item NEXT

結果

プレーンテキスト

Copy2 6 11 11 23 23 23 25 25 25 37 38 48 49 73 76

使用関数

QSORT関数(12)

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

二次元配列を昇順で並び替える

UWSC

CopyDIM arr[1][7] arr[0][0] = 25; arr[1][0] = 37; arr[0][1] = 49; arr[1][1] = 76; arr[0][2] = 25; arr[1][2] = 38; arr[0][3] = 2; arr[1][3] = 23; arr[0][4] = 11; arr[1][4] = 6; arr[0][5] = 11; arr[1][5] = 23; arr[0][6] = 48; arr[1][6] = 25; arr[0][7] = 73; arr[1][7] = 23; QSORT(arr[0], 0, arr[1]) FOR n = 0 TO UBound(arr[0]) PRINT arr[0][n] + "," + arr[1][n] NEXT ////////////////////////////////////////////////// // 【引数】 // 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

結果

CSV

Copy2, 23 11, 6 11, 23 25, 38 25, 37 48, 25 49, 76 73, 23

使用関数

QSORT関数(12)

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

シートを昇順に並び替える（Excel）*

UWSC

CopyWITH Excel DIM cnt = .Sheets.Count DIM SheetsList[cnt] FOR i = 0 TO cnt - 1 SheetsList[i] = .Sheets(i+1).Name NEXT QSORT(SheetsList, QSRT_A) FOR i = 0 TO cnt - 1 .Sheets(SheetsList[i]).Move(, .Sheets(i+1)) NEXT ENDWITH

使用関数

シートの数を返します。

QSORT関数(9)

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

シートをブック内の他の場所に移動します。

シートを降順に並び替える（Excel）*

UWSC

CopyWITH Excel DIM cnt = .Sheets.Count DIM SheetsList[cnt] FOR i = 0 TO cnt - 1 SheetsList[i] = .Sheets(i+1).Name NEXT QSORT(SheetsList, QSRT_A) FOR i = 0 TO cnt - 1 .Sheets(SheetsList[i]).Move(, .Sheets(i+1)) NEXT ENDWITH

使用関数

シートの数を返します。

QSORT関数(9)

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

シートをブック内の他の場所に移動します。

UWSC.INIのDefaultFontを変更する

UWSC

CopyCONST 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) ////////////////////////////////////////////////// // 【引数】 // 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 ////////////////////////////////////////////////// // 【引数】 // section : セクション // key : キー（Delete関数は省略可） // value : 値 // path : INIファイルのパス // default : セクションとキーが存在しなかった場合に返す値 // 【戻り値】 ////////////////////////////////////////////////// MODULE INI DEF_DLL GetPrivateProfileStringW(wstring,wstring,wstring,var pwchar,dword,wstring):dword:kernel32 DEF_DLL WritePrivateProfileStringW(wstring,wstring,wstring,wstring):bool:kernel32 FUNCTION Read(section = NULL, key = NULL, path = NULL, default = EMPTY) DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") IFB path = NULL THEN path = FSO.GetAbsolutePathName(FSO.GetBaseName(GET_UWSC_NAME) + ".INI") ELSE path = FSO.GetAbsolutePathName(path) ENDIF DIM n = 1024 DIM buffer = FORMAT(CHR(0), n) IFB GetPrivateProfileStringW(section, key, default, buffer, n, path) = 0 THEN RESULT = default ELSE RESULT = SLICE(SPLIT(buffer, CHR(0), TRUE)) IF section <> NULL AND key <> NULL THEN RESULT = RESULT[0] ENDIF FEND FUNCTION Write(section, key, value, path = NULL) DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") IFB path = NULL THEN path = FSO.GetAbsolutePathName(FSO.GetBaseName(GET_UWSC_NAME) + ".INI") ELSE path = FSO.GetAbsolutePathName(path) ENDIF RESULT = WritePrivateProfileStringW(section, key, value, path) FEND PROCEDURE Delete(section, key = NULL, path = NULL) DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") IFB path = NULL THEN path = FSO.GetAbsolutePathName(FSO.GetBaseName(GET_UWSC_NAME) + ".INI") ELSE path = FSO.GetAbsolutePathName(path) ENDIF PRINT WritePrivateProfileStringW(section, key, NULL, path) FEND FUNCTION escape(value) DIM esc = ";#=:" FOR i = 1 TO LENGTH(esc) DIM s = COPY(esc, i, 1) value = REPLACE(value, s, "\" + s) NEXT RESULT = value FEND FUNCTION unescape(value) DIM esc = ";#=:" FOR i = 1 TO LENGTH(esc) DIM s = COPY(esc, i, 1) value = REPLACE(value, "\" + s, s) NEXT RESULT = value FEND ENDMODULE ////////////////////////////////////////////////// // 【引数】 // 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

使用関数

CREATEOLEOBJ関数(3)

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

Shell.NameSpace メソッド(4)

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

フォルダ内のアイテムのコレクションを表すFolderItems オブジェクトを取得します。

FolderItem オブジェクト(8)

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

FolderItems オブジェクト(8)

シェルフォルダ内のアイテムのコレクションを表します。

arrayPush関数 (自作関数)(9)

配列の末尾に要素を追加します。

QSORT関数(12)

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

SHIFTARRAY関数(13)

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

BETWEENSTR関数(16)

指定文字列間の文字列を返します。

DOSCMD関数(16)

コマンドプロンプトを実行します。

SPLIT関数(17)

文字列を区切り、配列を作成します。

READINI関数(17)

INIファイルを読み込みます。

SLCTBOX関数(18)

セレクトボックスを表示します。

WRITEINI関数(21)

INIファイルの書き込みを行います。

都道府県別の人口・面積を人口降順で連動してソート

population配列（人口）を降順（大きい順）に、pref配列（都道府県）とarea配列（面積）の関係性を保ったまま並び替える。

データは【都道府県】人口ランキング・面積ランキング・人口密度ランキングを参照。

UWSC

CopyDIM pref[] = "北海道", "青森県", "岩手県", "宮城県", "秋田県", "山形県", "福島県", "茨城県", "栃木県", "群馬県", "埼玉県", "千葉県", "東京都", "神奈川県", "新潟県", "富山県", "石川県", "福井県", "山梨県", "長野県", "岐阜県", "静岡県", "愛知県", "三重県", "滋賀県", "京都府", "大阪府", "兵庫県", "奈良県", "和歌山県", "鳥取県", "島根県", "岡山県", "広島県", "山口県", "徳島県", "香川県", "愛媛県", "高知県", "福岡県", "佐賀県", "長崎県", "熊本県", "大分県", "宮崎県", "鹿児島県", "沖縄県" DIM population[] = "5228885", "1238730", "1211206", "2303487", "960113", "1068696", "1834198", "2868554", "1934016", "1940333", "7346836", "6287034", "14064696", "9240411", "2202358", "1035612", "1133294", "767433", "810427", "2049683", "1979781", "3635220", "7546192", "1771440", "1414248", "2579921", "8842523", "5469184", "1325437", "923033", "553847", "671602", "1889607", "2801388", "1342987", "719704", "951049", "1335694", "692065", "5138891", "812013", "1313103", "1739211", "1124597", "1070213", "1589206", "1468410" DIM area[] = "78421.39", "9645.64", "15275.01", "7282.29", "11637.52", "9323.15", "13784.14", "6097.39", "6408.09", "6362.28", "3797.75", "5157.57", "2194.03", "2416.11", "12583.96", "4247.58", "4186.21", "4190.52", "4465.27", "13561.56", "10621.29", "7777.35", "5173.07", "5774.49", "4017.38", "4612.20", "1905.32", "8401.02", "3690.94", "4724.65", "3507.14", "6707.89", "7114.33", "8479.65", "6112.54", "4146.75", "1876.78", "5676.19", "7103.63", "4986.51", "2440.69", "4130.98", "7409.46", "6340.76", "7735.22", "9187.06", "2282.59" QSORT(population, QSRT_NATURALD, pref, area) PRINT "都道府県,人口,面積" FOR i = 0 TO UBound(pref) PRINT pref[i] + "," + population[i] + "," + area[i] NEXT ////////////////////////////////////////////////// // 【引数】 // 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

結果

プレーンテキスト

Copy都道府県,人口,面積 東京都,14064696,2194.03 神奈川県,9240411,2416.11 大阪府,8842523,1905.32 愛知県,7546192,5173.07 埼玉県,7346836,3797.75 千葉県,6287034,5157.57 兵庫県,5469184,8401.02 北海道,5228885,78421.39 福岡県,5138891,4986.51 静岡県,3635220,7777.35 茨城県,2868554,6097.39 広島県,2801388,8479.65 京都府,2579921,4612.20 宮城県,2303487,7282.29 新潟県,2202358,12583.96 長野県,2049683,13561.56 岐阜県,1979781,10621.29 群馬県,1940333,6362.28 栃木県,1934016,6408.09 岡山県,1889607,7114.33 福島県,1834198,13784.14 三重県,1771440,5774.49 熊本県,1739211,7409.46 鹿児島県,1589206,9187.06 沖縄県,1468410,2282.59 滋賀県,1414248,4017.38 山口県,1342987,6112.54 愛媛県,1335694,5676.19 奈良県,1325437,3690.94 長崎県,1313103,4130.98 青森県,1238730,9645.64 岩手県,1211206,15275.01 石川県,1133294,4186.21 大分県,1124597,6340.76 宮崎県,1070213,7735.22 山形県,1068696,9323.15 富山県,1035612,4247.58 秋田県,960113,11637.52 香川県,951049,1876.78 和歌山県,923033,4724.65 佐賀県,812013,2440.69 山梨県,810427,4465.27 福井県,767433,4190.52 徳島県,719704,4146.75 高知県,692065,7103.63 島根県,671602,6707.89 鳥取県,553847,3507.14

使用関数

QSORT関数(5)

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

都道府県別の人口・面積を人口降順で連動してソート（多次元配列）

array[0][i]は都道府県名、array[1][i]は人口で単位は人、array[2][i]は面積で単位はkm2。

データは【都道府県】人口ランキング・面積ランキング・人口密度ランキングを参照。

UWSC

CopyDIM array[][46] = "北海道", "青森県", "岩手県", "宮城県", "秋田県", "山形県", "福島県", "茨城県", "栃木県", "群馬県", "埼玉県", "千葉県", "東京都", "神奈川県", "新潟県", "富山県", "石川県", "福井県", "山梨県", "長野県", "岐阜県", "静岡県", "愛知県", "三重県", "滋賀県", "京都府", "大阪府", "兵庫県", "奈良県", "和歌山県", "鳥取県", "島根県", "岡山県", "広島県", "山口県", "徳島県", "香川県", "愛媛県", "高知県", "福岡県", "佐賀県", "長崎県", "熊本県", "大分県", "宮崎県", "鹿児島県", "沖縄県", + _ "5228885", "1238730", "1211206", "2303487", "960113", "1068696", "1834198", "2868554", "1934016", "1940333", "7346836", "6287034", "14064696", "9240411", "2202358", "1035612", "1133294", "767433", "810427", "2049683", "1979781", "3635220", "7546192", "1771440", "1414248", "2579921", "8842523", "5469184", "1325437", "923033", "553847", "671602", "1889607", "2801388", "1342987", "719704", "951049", "1335694", "692065", "5138891", "812013", "1313103", "1739211", "1124597", "1070213", "1589206", "1468410", + _ "78421.39", "9645.64", "15275.01", "7282.29", "11637.52", "9323.15", "13784.14", "6097.39", "6408.09", "6362.28", "3797.75", "5157.57", "2194.03", "2416.11", "12583.96", "4247.58", "4186.21", "4190.52", "4465.27", "13561.56", "10621.29", "7777.35", "5173.07", "5774.49", "4017.38", "4612.20", "1905.32", "8401.02", "3690.94", "4724.65", "3507.14", "6707.89", "7114.33", "8479.65", "6112.54", "4146.75", "1876.78", "5676.19", "7103.63", "4986.51", "2440.69", "4130.98", "7409.46", "6340.76", "7735.22", "9187.06", "2282.59" QSORT(array[1], QSRT_NATURALD, array[0], array[2]) PRINT "都道府県,人口,面積" FOR i = 0 TO 46 DIM str = "" FOR j = 0 TO 2 str = str + array[j][i] + "," NEXT PRINT str NEXT

結果

プレーンテキスト

Copy都道府県,人口,面積 東京都,14064696,2194.03, 神奈川県,9240411,2416.11, 大阪府,8842523,1905.32, 愛知県,7546192,5173.07, 埼玉県,7346836,3797.75, 千葉県,6287034,5157.57, 兵庫県,5469184,8401.02, 北海道,5228885,78421.39, 福岡県,5138891,4986.51, 静岡県,3635220,7777.35, 茨城県,2868554,6097.39, 広島県,2801388,8479.65, 京都府,2579921,4612.20, 宮城県,2303487,7282.29, 新潟県,2202358,12583.96, 長野県,2049683,13561.56, 岐阜県,1979781,10621.29, 群馬県,1940333,6362.28, 栃木県,1934016,6408.09, 岡山県,1889607,7114.33, 福島県,1834198,13784.14, 三重県,1771440,5774.49, 熊本県,1739211,7409.46, 鹿児島県,1589206,9187.06, 沖縄県,1468410,2282.59, 滋賀県,1414248,4017.38, 山口県,1342987,6112.54, 愛媛県,1335694,5676.19, 奈良県,1325437,3690.94, 長崎県,1313103,4130.98, 青森県,1238730,9645.64, 岩手県,1211206,15275.01, 石川県,1133294,4186.21, 大分県,1124597,6340.76, 宮崎県,1070213,7735.22, 山形県,1068696,9323.15, 富山県,1035612,4247.58, 秋田県,960113,11637.52, 香川県,951049,1876.78, 和歌山県,923033,4724.65, 佐賀県,812013,2440.69, 山梨県,810427,4465.27, 福井県,767433,4190.52, 徳島県,719704,4146.75, 高知県,692065,7103.63, 島根県,671602,6707.89, 鳥取県,553847,3507.14,

使用関数

QSORT関数(5)

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

公開日: 2018年10月28日
更新日: 2022年5月24日

関連記事

bubbleSort関数 (自作関数)

引数に指定された配列を バブルソート で並び替えます。

shakerSort関数 (自作関数)

引数に指定された配列を シェーカーソート で並び替えます。

gnomeSort関数 (自作関数)

引数に指定された配列を ノームソート で並び替えます。

small関数 (自作関数)

配列の中で小さい方から数えた順位の値を求めます。

insertionSort関数 (自作関数)

引数に指定された配列を 挿入ソート で並び替えます。

shellSort関数 (自作関数)

引数に指定された配列を シェルソート で並び替えます。

heapSort関数 (自作関数)

引数に指定された配列を ヒープソート で並び替えます。

quickSort関数 (自作関数)

引数に指定された配列を クイックソート で並び替えます。

shearSort関数 (自作関数)

引数に指定された配列を シェアソート で並び替えます。

Items.Sort メソッド (Outlook)

指定されたプロパティのコレクションを並べ替えます。