文字列内で探す文字（部分文字列）が最初に現れる位置を返します。

構文

1. LongWord = POS( 探す文字, 探される文字列, n個目 )
   
2. LongWord = POSB( 探す文字, 探される文字列, n個目 )

引数

探す文字 （String）必須

探したい文字列

探される文字列 （String）必須

探される文字列

n個目 （Integer = 0）省略可

nを指定するとn個目の文字位置を返す（マイナス値で指定すると後ろからサーチ）

戻り値

見つかった位置 （１から）

（見つからなければゼロを返す）

（大文字,小文字の区別はしません）

※ANSI(バイト)処理の場合は POSB

使い方

部分文字列（1文字）が最初に現れる場所を取得

東京都台東区東上野という文字列内で東が最初に現れる位置を返します。東京都の東の位置なので1を返します。

結果

プレーンテキスト

Copy1

第3引数にマイナス値を指定すると後ろから検索します。

東上野の東の位置である7を返します。

結果

プレーンテキスト

Copy7

部分文字列（2文字以上）が最初に現れる場所を取得

2文字以上の部分文字列を指定したときは、その部分文字列に完全に一致する場所を取得します。位置は部分文字列の1文字目の位置です。以下の場合"東京都"台東区東上野の東の位置である1、東京都"台東区"東上野の台の位置である4が返ります。

結果

プレーンテキスト

Copy1 4

アルファベット

大文字・小文字の区別をしないためsの位置である3が返ります。

結果

プレーンテキスト

Copy3

大文字も小文字を区別して探したい場合は、OPTION指定でSAMESTRを指定します。

結果

プレーンテキスト

Copy3 0

部分文字列が何個あるか

ループでカウント

POS関数は部分文字列が見つからない場合0を返すので、i番目を調べ0になるまでカウントしていきます。

結果

プレーンテキスト

Copy3

配列にしてカウント

SPLIT関数 (スクリプト関数)で区切り文字列として探したい文字列を指定して配列を作成し、その配列の最大インデックスが探したい文字列の数と一致します。

結果

プレーンテキスト

Copy3

探す文字列を置換して差を求める

結果

プレーンテキスト

Copy3

文字列が存在するかを調べる

部分文字列が何Byte目に現れるか

全角文字は2バイトなので「い」は3Byte目に現れることになります。

結果

プレーンテキスト

Copy3

指定文字が何Byteか調べるにはLENGTHB関数を使います。

結果

プレーンテキスト

Copy2

プログラム実行例

デフォルトプリンターを取得

結果

プレーンテキスト

CopyBrother DCP-J963N Printer

使用関数

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

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

Shell.NameSpace メソッド(4)

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

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

Folder.GetDetailsOf メソッド (Shell)(10,15)

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

FolderItems オブジェクト(14)

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

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

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

POS関数(17)

文字列内で部分文字列が最初に現れる位置を返します。

ファイルやフォルダを右クリックしたときのメニューを格納したFolderItemVerbs オブジェクトを返します。

コレクション内の指定した項目のFolderitemverbオブジェクトを取得します。

FolderItemVerb.Name プロパティ (Shell)(17)

FolderItemVerbsコレクション（右クリックメニュー）から単一の項目名を取得します。

ファイルを開いているプロセスを調べる

UWSC

CopySETHOTKEY(VK_ESC, EMPTYPARAM, "forceQuit") CONST TemporaryFolder = 2 DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") WITH FSO DIM Folder = .GetSpecialFolder(TemporaryFolder) DIM folderspec = Folder.Path DIM filename = .GetTempName DIM path = .BuildPath(folderspec, filename) ENDWITH DIM Shell = CREATEOLEOBJ("Shell.Application") Shell.FileRun() DIM ID = GETID("ファイル名を指定して実行", "#32770") SENDSTR(ID, "cmd /c openfiles /query /fo CSV > " + path) CLKITEM(ID, "OK", CLK_BTN) SLEEP(0.500) REPEAT SLEEP(0.100) UNTIL GETID("C:\WINDOWS\system32\cmd.exe", "ConsoleWindowClass") = -1 DIM FID = FOPEN(path, F_READ) TRY DIM ID2 = GETID("使用中", "OperationStatusWindow") GETITEM(ID2, ITM_ACCTXT, 1) DIM str = ALL_ITEM_LIST[1] DIM sep = IIF(POS("フォルダー", STATUS(ID2, ST_TITLE)) <> 0, "\", "") DIM msg = "■" + str + "<#CR>" FOR r = 5 TO FGET(FID, F_LINECOUNT) IF POS("\" + str + sep, FGET(FID, r, 3)) <> 0 THEN msg = msg + "ID：" + FGET(FID, r, 1) + ", プロセス名：" + FGET(FID, r, 2) + "<#CR>" ENDIF NEXT FCLOSE(FID) REPEAT FUKIDASI(TRIM(msg)) SLEEP(0.100) UNTIL GETID("使用中", "OperationStatusWindow") = -1 FINALLY FSO.DeleteFile(path) ENDTRY ////////////////////////////////////////////////// // 【引数】 // 【戻り値】 ////////////////////////////////////////////////// PROCEDURE forceQuit() EXITEXIT 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

使用関数

SETHOTKEY関数(1)

ホットキーを設定します。

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

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

FSO.GetSpecialFolder メソッド(8)

Windowsの一部の特殊フォルダのFolder オブジェクトを返します。

指定したフォルダのパスを取得します。

ランダムに生成された一時ファイルまたはフォルダ名を文字列で返します。

FSO.BuildPath メソッド(11)

フォルダパスとフォルダまたはファイルの名前を結合したパス文字列を返します。

Shell.FileRun メソッド(15)

「ファイル名を指定して実行」ウィンドウを開きます。

GETID関数(17,25,30,48)

指定したウィンドウのIDを取得します。第一引数に取得したいウィンドウのタイトル（一部でも可）を指定します。

SENDSTR関数(19)

文字列を送信します。

CLKITEM関数(20)

アイテムをクリックします。

SLEEP関数(21,24,47)

処理を待機します。

FOPEN関数(27)

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

GETITEM関数(32)

キャプション文字やリスト等をすべて取得します。

POS関数(35)

文字列内で部分文字列が最初に現れる位置を返します。

STATUS関数(35)

ウィンドウの各種状態を返します。

FGET関数(38,39,40)

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

POS関数(39)

文字列内で部分文字列が最初に現れる位置を返します。

FCLOSE関数(43)

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

FUKIDASI関数(46)

メッセージを吹出しに表示します。

TRIM関数(46)

文字列の両端の空白と制御文字を取り除きます。

FSO.DeleteFile メソッド(50)

指定したファイルを削除します。

音量を取得

UWSC

CopyGETITEM(GETID("", "Shell_TrayWnd"), ITM_TOOLBAR) FOR item IN ALL_ITEM_LIST IFB POS("スピーカー: ", item) <> 0 THEN PRINT REPLACE(REPLACE(item, "スピーカー: ", ""), "%", "") BREAK ENDIF NEXT

結果

プレーンテキスト

Copy10

使用関数

GETITEM関数(1)

キャプション文字やリスト等をすべて取得します。

GETID関数(1)

指定したウィンドウのIDを取得します。第一引数に取得したいウィンドウのタイトル（一部でも可）を指定します。

POS関数(4)

文字列内で部分文字列が最初に現れる位置を返します。

REPLACE関数 (スクリプト関数)(5)

指定文字列を置換します。