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. CREATEOLEOBJ
  2. Shell.FileRun
  3. GETID
  4. SENDSTR
  5. CLKITEM
解説
  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」ボタンをクリックする。

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

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