メール本文の文字数を確認したい。No.03881
labrador さん 01/11/12 21:29
 
ドコモの携帯メールへ送信する時、ついつい文字数の制限があるのを
わすれてしまいメール本文が字数オーバとなり途中で文字切れなっている
旨相手から返信がきます。
鶴亀はメールを送信する前に文字数をカウントできる方法はありますか?
あればご教示願います。

[ ]
RE:03881 メール本文の文字数を確認したい。No.03882
tatuto さん 01/11/12 22:26
 
tatutoです。

labrador<xxxxxxxxxxxxxx@maruo.co.jp>さんより適座引用しています。

とりあえず、"半角"で500文字超えてたら超えてるよって
メッセージ出して
500文字を超えてなかったら現在の文字数を"半角"で何文字か教えてくれる
マクロを作ってみました

gofiletop;
beginsel;
gofileend;
endsel;
$mozi = gettext(seltopx,seltopy,selendx,selendy);
escape;
#cnt = strlen($mozi);
if ( #cnt > 500 ) {
  #over = #cnt - 500;
  message "半角で" + str(#over) + "文字OVERです";
} else {
  message "現在半角で" + str(#cnt) + "文字です";
}

[ ]
RE:03882 メール本文の文字数を確認したい。No.03884
tatuto さん 01/11/12 22:38
 
tatutoです。

>とりあえず、"半角"で500文字超えてたら超えてるよって
>メッセージ出して
>500文字を超えてなかったら現在の文字数を"半角"で何文字か教えてくれる
>マクロを作ってみました

ちょこっと修正です

#max = 500;
gofiletop;
beginsel;
gofileend;
endsel;
$mozi = gettext(seltopx,seltopy,selendx,selendy);
escape;
#cnt = strlen($mozi);
if ( #cnt > #max ) {
  #over = #cnt - #max;
  message "半角で" + str(#over) + "文字OVERです";
} else {
  message "現在半角で" + str(#cnt) + "文字です";
}

一番上の
#max = 500;
に限界文字数を入れればどのキャリアでも対応出来るかと

[ ]
RE:03881 メール本文の文字数を確認したい。No.03885
山紫水明 さん 01/11/12 22:38
 
 labradorさん,こんばんは。

》鶴亀はメールを送信する前に文字数をカウントできる方法はありますか?
》あればご教示願います。

 鶴亀メール自体にはその機能はありません。
 もしマクロでよろしければ,鶴亀メールのマクロライブラリに拙作の字数カウン
トマクロがあります。

     では, (^^)/~
                                        山紫水明

[ ]
RE:03884 メール本文の文字数を確認したい。No.03892
ひろ さん 01/11/13 12:55
 
 tatuto さん今日は、ひろです。
> 一番上の
> #max = 500;
> に限界文字数を入れればどのキャリアでも対応出来るかと
 文字列変数の制限から、8191 文字ですね。また送信時に自動的に改行が入
る、tab->空白変換があるので末尾のようなマクロの方が良いかもしれませんね。
//-------------------------------------------------------------------
##x =x;
##y = y;
##num = 0;
gofiletop;
while(1){
  if( !result )break;
  ##num = ##num + linelen + 1;
  down;
}
message str(##num) + "文字です。";
moveto ##x,##y;

[ ]