GETSTR

構文
  1. UString = GETSTR( ID, [番号, 種別, マウス移動] )
引数
ID
Windowを識別するID
(ID = 0 であれば クリップボードから)
番号
左上から数えたコントロールの順番 (1から指定、マイナスを付けた場合には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)