SENDSTR

構文
SENDSTR( ID, 文字列, [番号, 送信モード, ACC指定] )
引数
ID
Windowを識別するID
文字列
送りたい文字列
番号
左上から数えたエディトコントロールの順番 (1から指定、マイナスを付けた場合にはDisable状態のものもカウント) (0:デフォルトはフォーカスを持ったエディトコントロール)
送信モード
FALSE
追加(デフォルト)
TRUE
置き換え
2
一文字ずつ送信(PostMessage,WM_CHAR)
ACC指定
FALSE
API もしくは UIA インターフェースを使用(デフォルト)
TRUE
アクセシビリティ用インターフェースを利用
2
アクセシビリティ用インターフェースを利用(ウィンドウをアクティブ化しない)
STR_ACC_CELL(5)
DataGridView内のCell値の変更
戻値

プログラム実行例

ファイル名を指定して実行で「ごみ箱」を開く

DIM Shell = CREATEOLEOBJ("Shell.Application")
Shell.FileRun

DIM ID = GETID("ファイル名を指定して実行", "#32770")
SENDSTR(ID, "shell:RecycleBinFolder")
CLKITEM(ID, "OK", ITM_BTN)
  1. script.function.CREATEOLEOBJ(1)
  2. com.Shell.FileRun(2)
  3. script.function.GETID(4)
  4. script.function.SENDSTR(5)
  5. script.function.CLKITEM(6)
解説
  1. 1行目
    DIM Shell = CREATEOLEOBJ("Shell.Application")
    
    Shellオブジェクトを生成する。
  2. 2行目
    Shell.FileRun
    
    「ファイル名を指定して実行」ウィンドウを開く。
  3. 4行目
    DIM ID = GETID("ファイル名を指定して実行", "#32770")
    
    「ファイル名を指定して実行」のIDを取得。「#32770」はダイアログのクラス名を示しています。
  4. 5行目
    SENDSTR(ID, "shell:RecycleBinFolder")
    
    「shell:RecycleBinFolder」と入力する。
  5. 6行目
    CLKITEM(ID, "OK", ITM_BTN)
    
    「OK」ボタンをクリックする。
-PR-

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

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)