Contents
- 構文
- getWiFiProfiles( )
- 引数
- 戻値
- システムで構成されているプロファイルを取得します。 型:Array
プログラム
////////////////////////////////////////////////// // 【引数】 // // 【戻値】 // ////////////////////////////////////////////////// FUNCTION getWiFiProfiles() cmd = "netsh wlan show profiles" str = DOSCMD(cmd) matches = reExecute(str, ".*?:\s(.*?)\r\n") num = matches.Count - 1 DIM res[num] FOR n = 0 TO num res[n] = matches.Item(n).SubMatches(0) NEXT RESULT = SLICE(res) FEND ////////////////////////////////////////////////// // 【引数】 // str : 正規表現による検索の対象となる文字列 // Pattern : 正規表現で使用するパターンを設定 // IgnoreCase : 大文字・小文字を区別しない場合はTrue、区別する場合はFalse // Global : 文字列全体を検索する場合はTrue、しない場合はFalse // 【戻値】 // 正規表現で検索した結果をMatchesコレクションとして返します。 ////////////////////////////////////////////////// FUNCTION reExecute(str, Pattern, IgnoreCase = TRUE, Global = TRUE) DIM re = CREATEOLEOBJ("VBScript.RegExp") re.Pattern = Pattern re.IgnoreCase = IgnoreCase re.Global = Global RESULT = re.Execute(str) FEND
プログラム実行例
-
接続したことのあるWiFiのSSIDを出力します。
DIM arr arr = getWiFiProfiles() FOR n = 0 TO UBound(arr) PRINT arr[n] NEXT ////////////////////////////////////////////////// // 【引数】 // 配列 : 上限値を求める配列 // 【戻値】 // 配列の上限値 ////////////////////////////////////////////////// FUNCTION UBound(array[]) RESULT = RESIZE(array) FEND ////////////////////////////////////////////////// // 【引数】 // // 【戻値】 // ////////////////////////////////////////////////// FUNCTION getWiFiProfiles() cmd = "netsh wlan show profiles" str = DOSCMD(cmd) matches = reExecute(str, ".*?:\s(.*?)\r\n") num = matches.Count - 1 DIM res[num] FOR n = 0 TO num res[n] = matches.Item(n).SubMatches(0) NEXT RESULT = SLICE(res) FEND ////////////////////////////////////////////////// // 【引数】 // str : 正規表現による検索の対象となる文字列 // Pattern : 正規表現で使用するパターンを設定 // IgnoreCase : 大文字・小文字を区別しない場合はTrue、区別する場合はFalse // Global : 文字列全体を検索する場合はTrue、しない場合はFalse // 【戻値】 // 正規表現で検索した結果をMatchesコレクションとして返します。 ////////////////////////////////////////////////// FUNCTION reExecute(str, Pattern, IgnoreCase = TRUE, Global = TRUE) DIM re = CREATEOLEOBJ("VBScript.RegExp") re.Pattern = Pattern re.IgnoreCase = IgnoreCase re.Global = Global RESULT = re.Execute(str) FEND
- 結果
この記事は役に立ちましたか?