一太郎マクロ初心者奮戦記・・・カーソル位置の文字を取得するには(4)

GetString()を使ってWord Listの単語を読み込み、その単語の

文字数を隣の列に出力するプログラムを作る。下がWord Listのイメージだ。

*

*

*

*

*

*

*

*

*

*

コードは下のようになる。

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=44)
範囲選択開始(.単位=1)
範囲選択単位(.単位=7)
ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=24,.文字位置=109)

%Str = GetString()
%Num = Size(%Str)　　　 !!Size関数は配列の個数を返す。

For %i = 1 to %Num
　　　　%Length(%i) =Len(%Str(%i))
Next

ｼﾞｬﾝﾌﾟ(.ﾍﾟｰｼﾞ番号=1,.行番号=5,.文字位置=68)
For %i= 1 to %Num
　　　　削除(.回数=2)
　　　　Insert(%Length(%i))
　　　　DownCell()
Next

上記のコードはサンプルファイルのなかに「文字取得２」という

名前のマクロとして登録されている。

WORD_FIND02.lzhをダウンロード