GETSTR

構文
  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. script.function.STRCONV（1）
  2. script.function.GETSTR（1）
  3. script.function.SENDSTR（2）
解説
  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. script.function.STRCONV（1）
  2. script.function.GETSTR（1）
  3. script.function.SENDSTR（2）
解説
  1. 1行目
    DIM str = STRCONV(GETSTR(0), SC_UPPERCASE)
    クリップボードの文字列を取得し、大文字に変換した文字列をstrに代入。
  2. 2行目
    SENDSTR(0, str)
    strをクリップボードに送る。
  3. 3行目
    PRINT str
    strを出力する。
-PR-

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, "", F_ALLTEXT)

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

FCLOSE(FID)
FCLOSE(FID2)

FID = FOPEN(TempPath, F_READ)
SENDSTR(0, FGET(FID, F_ALLTEXT))
PRINT FGET(FID, F_ALLTEXT)
FCLOSE(FID)
  1. script.function.CREATEOLEOBJ（3）
  2. com.FSO.GetSpecialFolder（4）
  3. com.FSO.Folder.Path（5）
  4. com.FSO.GetTempName（6）
  5. com.FSO.BuildPath（7）
  6. script.function.GETSTR（9）
  7. script.function.FOPEN（10,11,28）
  8. script.function.FPUT（12,16,18,21,23）
  9. script.function.FGET（14,30）
  10. script.function.FCLOSE（25,26,31）
  11. script.function.SENDSTR（29）