GETSTR

タグ: , , ,

引数に指定したIDのウィンドウの文字列を取得します。取得した文字列を返します。

構文
  1. UString = GETSTR( ID, [番号, 種別, マウス移動] )
引数
ID
Windowを識別するID
（ID = 0　であれば クリップボードから）
番号
左上から数えたコントロールの順番 （１から指定、マイナスを付けた場合にはDisable状態のものもカウント）
（0:デフォルトはフォーカスを持ったコントロール）
（ステータスバー指定時はパーツ）
種別
STR_EDIT (0)
エディトコントロール（デフォルト）
STR_STATIC (1)
スタティクコントロール
STR_STATUS (2)
ステータスバー
STR_ACC_EDIT (3)
アクセシビリティ経由：エディト内文字
STR_ACC_STATIC (4)
アクセシビリティ経由：スタティク文字
STR_ACC_CELL (5)
DataGridView内のCell値を取得
マウス移動
FALSE
マウス移動なし（デフォルト）
TRUE
マウスをその場所に移動させる
戻値

取得した文字列

（指定物が存在しない場合には EMPTYを返す）

プログラム実行例

クリップボードの文字列を小文字にして返す

DIM str = STRCONV(GETSTR(0), SC_LOWERCASE)
SENDSTR(0, str)
PRINT str
  1. STRCONV
  2. GETSTR
  3. SENDSTR
解説
  1. 1行目
    DIM str = STRCONV(GETSTR(0), SC_LOWERCASE)
    クリップボードの文字列を取得し、小文字に変換した文字列をstrに代入。
  2. 2行目
    SENDSTR(0, str)
    strをクリップボードに送る。
  3. 3行目
    PRINT str
    strを出力する。

クリップボードの文字列を大文字にして返す

DIM str = STRCONV(GETSTR(0), SC_UPPERCASE)
SENDSTR(0, str)
PRINT str
  1. STRCONV
  2. GETSTR
  3. SENDSTR
解説
  1. 1行目
    DIM str = STRCONV(GETSTR(0), SC_UPPERCASE)
    クリップボードの文字列を取得し、大文字に変換した文字列をstrに代入。
  2. 2行目
    SENDSTR(0, str)
    strをクリップボードに送る。
  3. 3行目
    PRINT str
    strを出力する。

csvファイルをHTMLのテーブルデータにする（csvToHTML）

CSVのデータをHTML（テーブル）に変換します。

クリップボードにcsvファイルのパスをコピーして実行します。

CONST TemporaryFolder = 2

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM Folder = FSO.GetSpecialFolder(TemporaryFolder)
DIM folderspec = Folder.Path
DIM name = FSO.GetTempName
DIM TempPath = FSO.BuildPath(folderspec, name)

DIM path = GETSTR(0)
DIM FID = FOPEN(path, F_READ)
DIM FID2 = FOPEN(TempPath, F_READ OR F_WRITE)
FPUT(FID2, "<table>", F_ALLTEXT)

FOR row = 1 TO FGET(FID, F_LINECOUNT)
	DIM col = 1
	FPUT(FID2, "<#TAB><tr>", 0)
	WHILE FGET(FID, row, col) <> ""
		FPUT(FID2, "<#TAB><#TAB><td>" + (FGET(FID, row, col)) + "</td>", 0)
		col = col + 1
	WEND
	FPUT(FID2, "<#TAB></tr>", 0)
NEXT
FPUT(FID2,"</table>", 0)

FCLOSE(FID)
FCLOSE(FID2)

FID = FOPEN(TempPath, F_READ)
SENDSTR(0, FGET(FID, F_ALLTEXT))
PRINT FGET(FID, F_ALLTEXT)
FCLOSE(FID)
  1. CREATEOLEOBJ
  2. FSO.GetSpecialFolder
  3. FSO.Folder.Path
  4. FSO.GetTempName
  5. FSO.BuildPath
  6. GETSTR
  7. FOPEN
  8. FPUT
  9. FGET
  10. FCLOSE
  11. SENDSTR

メモ帳のステータスバー情報を取得

DIM ID = EXEC(“notepad”)

FOR i = 0 TO 5
	PRINT i + "<#TAB>" + GETSTR(ID, i, STR_STATUS)
NEXT
  1. EXEC
  2. GETSTR
結果
0
1
2 1 行、1 列
3 100%
4 Windows (CRLF)
5 UTF-8

Internet ExplorerのタイトルとURLを取得

DIM ID = GETID(“Internet Explorer”)

PRINT GETSTR(ID, 0, STR_STATIC)
PRINT GETSTR(ID, 1, STR_EDIT)
  1. GETID
  2. GETSTR

ペイントで設定できるズーム倍率を取得

DIM ID = EXEC("mspaint")

SETSLIDER(ID, 0, 0)
PRINT GETSTR(ID, 2, STR_STATIC)

REPEAT
	CLKITEM(ID, "拡大", CLK_BTN)
	PRINT GETSTR(ID, 2, STR_STATIC)
UNTIL GETSLIDER(ID, 0, SLD_POS) = 100

CTRLWIN(ID, CLOSE2)
  1. EXEC
  2. SETSLIDER
  3. GETSTR
  4. CLKITEM
  5. GETSLIDER
  6. CTRLWIN
結果
12.50%
25%
50%
100%
200%
300%
400%
500%
600%
700%
800%