| |
お返事ありがとうございます。すいません。あまり詳しくないのですが、秀丸のペー
ジから文字カウントっていうのをダウンロードして秀丸フォルダに置き、マクロの登
録というところで登録しました。
これなんですが↓。
文字カウントスクリプト w_count.mac
// for 秀丸 Ver.3.05
// Written in Shift-JIS code
// Ver.01-03 2001/02/13
// Y_Nakamura :e-mail xxxxxxxxxxxxxx@excite.co.jp
//**********************************************************
//-------------- パラメタ一覧 --------------------
//$wcユ−ザが入力する最大全角文字数 As Strings
//#wsユ−ザが入力する最大半角文字数 As Integer
// $a文字列読込配列 As Strings
// #i文字列読込配列の添え字 & 行数カウンタ As Integer
// #sl1カレント行の半角文字数 As Integer
// #sl2全文の半角文字数 As Integer
// #sl3全文の全角文字数 As Integer
// $cl1全文の半角文字数 As Strings
// $cl2全文の全角文字数 As Strings
//制限文字数の取得
$wc = input("最大全角文字数を入力して下さい","250");
#ws = val($wc) * 2;
//クリップボードに文章を貼り付け
gofiletop;
selectall;
copy;
//１行ずつ取得して配列に格納
beginclipboardread;
#i = 0;
$a[#i] = getclipboard;
while( $a[#i] != "" ) {
#i = #i + 1;
$a[#i] = getclipboard;
}
//１行ずつ取り出して文字数をカウント
#i = 0;
#sl2 = 0;
while( #i <= (linecount2 - 1) ){
#sl1 = strlen($a[#i]);
#sl2 = #sl2 + #sl1;
#i = #i + 1;
}
//判別・メッセージ表示
$cl1 = str(#sl2);//半角全文字数(整数型)を文字型に変換
#sl3 = #sl2 / 2;//半角全文字数(整数型)を全角文字数(整数型)に計算
$cl2 = str(#sl3);//全角全文字数(整数型)を文字型に変換
if( #sl2 > #ws ){
beep;
message "全角" + $wc + "文字を越えました。\n" + "半角" + $cl1 + "文字\n" + "
全角" + $cl2 + "文字です。";
}
else {
message "文章は全角" + $wc + "文字以内です。\n" + "半角" + $cl1 + "文字\n" +
"全角" + $cl2 + "文字です。";
}
独学なもので失礼があったらすいません。
|
|