■ 質問はここへ ■

1075 にジャンプ
No. 1068 題名 : 漢字カナ混じりの入力について 投稿者 : nishy
No. 1069 題名 : Re:漢字カナ混じりの入力について 投稿者 : CINEPHILE
No. 1070 題名 : Re:漢字カナ混じりの入力について 投稿者 : かぶねこ HP
No. 1071 題名 : Re^2:漢字カナ混じりの入力について 投稿者 : nishy
No. 1072 題名 : Re^3:漢字カナ混じりの入力について 投稿者 : かぶねこ HP
No. 1073 題名 : Re^3:漢字カナ混じりの入力について 投稿者 : CINEPHILE
No. 1074 題名 : Re^4:漢字カナ混じりの入力について 投稿者 : nishy
No. 1075 (1074へのコメント)投稿者: かぶねこ HP日付: 2003/10/24 03:46:42
題名 : Re^5:漢字カナ混じりの入力について

> 確認したところ、<MenuBar2> <popup>と書かれていましたが、

これはメニューの左から二つめのどこかと、右クリックメニューのどこかに
この機能が登録されているということです。たぶんメニューの「編集」-「変換」
あたりと、選択範囲がある状態での右クリックメニューの「変換」の下に
あるのでは……。このへんには他にもいろいろ便利な変換があります。

>大抵はカッコ(「 」)でくくっています(以下の例)。

ちょこっとマクロ作ってみました。わたしにも作れそうなものは限られていますが。
それに気が向かないと作りませんので、そのへんはお気遣いなく。

'カッコの中だけカタカナ変換

proc main
	const head$ = "「『" '前方カッコの定義・何個でも(ペア判断なし)
	const tail$ = "」』" '後方カッコの定義・何個でも
	dim i
	@UndoBlock = 1
	i = @BytePosCr 'カーソル位置記憶
	do while 1 'カーソルが前方カッコにくるまで繰返す
		@MoveLeftChar
		if instr(head$, chr$(@Code)) > 0 then exit do
		'行の先頭(ファイル先頭含む)まで来てしまったら中止
		if @BytePosCr = 1 then
			@BytePosCr = i
			print "前方カッコがありません" 'ステータスバーにエラーメッセージ
			exit proc
		end if
	loop
	@BlockSelect '選択開始
	@BytePosCr = i 'さっきのカーソル位置までもどる
	do while 1 'カーソルが後方カッコにくるまで繰返す
		@MoveRightChar
		'カッコより先に改行かファイル末尾に遭遇したら中止
		if @Code = CODE_RETURN or @Code = CODE_EOF then
			@BlockSelect '選択解除
			@BytePosCr = i
			print "後方カッコがありません" 'ステータスバーにエラーメッセージ
			exit proc
		end if
		if instr(tail$, chr$(@Code)) > 0 then exit do
	loop
	@BlockToKatakana '選択範囲をカタカナ変換 + 選択解除
	@BytePosCr = i '最初の位置にカーソルもどす
	@UndoBlock = 0
end proc

No. 1078 題名 : Re^6:漢字カナ混じりの入力について 投稿者 : nishy
No. 1079 題名 : Re^7:漢字カナ混じりの入力について 投稿者 : かぶねこ HP
No. 1076 題名 : Re^5:漢字カナ混じりの入力について 投稿者 : CINEPHILE
No. 1077 題名 : Re^6:漢字カナ混じりの入力について 投稿者 : nishy

全テキストを表示
順番に表示(No. 1075 から)


メールアドレスを表示するにはURLの後ろに &m=66a138a5 をつけてください。
ユーザー フォーラム一覧

http://www2k.biglobe.ne.jp/~araken/
http://0ban.com/araken/