入力文字数をカウントしたいのですが？No.01215
黒河 さん　98/06/20 00:11
　
はじめまして　黒河　と申します。
質問があります。

入力した文字数をカウントしたいのですが、そのような機能はあるのでしょうか？
出来れば、大文字、小文字、スペースの数量が個別に知りたいのですが・・・

「マクロ」というもので機能を追加できると聞いていますが、もしそのような「マク
ロ」があれば教えてください。

よろしくお願いします。
[ △ ]
RE:01215 入力文字数をカウントしたいのでNo.01216
杉浦　まさき さん　98/06/20 01:12
　
黒河さん、はじめまして。
　杉浦　まさき　と申します。

>入力した文字数をカウントしたいのですが、そのような機能はあるのでしょうか？
>出来れば、大文字、小文字、スペースの数量が個別に知りたいのですが・・・

う〜ん、こういうのはマクロよりプログラム書いた方が速いですけど…
　とりあえずマクロでやるとこうなりますかね。
　＃ま、叩き台っちゅーことで(^^;。

//------------------------------------------------------//
#CBR = getininum("hidemaru.ini","Env","CursorBreakCR");
if( #CBR == 0 ){
  writeinistr "hidemaru.ini", "Env", "CursorBreakCR", 1;
  envchanged;
}

#LOWER_NUM = 0;
#UPPER_NUM = 0;
#SPACE_NUM = 0; // スペースとタブを一緒に勘定してます。

gofiletop;
while( code != -1 ){
  if( code >= 0x41 && code <= 0x5A ) #UPPER_NUM = #UPPER_NUM + 1;
  else if( code >= 0x61 && code <= 0x7A ) #LOWER_NUM = #LOWER_NUM + 1;
  else if( code == 0x20 || code == 0x09 ) #SPACE_NUM = #SPACE_NUM + 1;
  right 1;
}

message "大文字は " + str(#UPPER_NUM) + " 個、\n" +
        "小文字は " + str(#LOWER_NUM) + " 個、\n" +
        "空白は   " + str(#SPACE_NUM) + " 個 でした。";

if( #CBR == 0 ){
  writeinistr "hidemaru.ini", "Env", "CursorBreakCR", 0;
  envchanged;
}

endmacro;
//------------------------------------------------------//
[ △ ]
RE:01216 入力文字数をカウントしたいのでNo.01249
黒河 さん　98/06/24 23:38
　
杉浦　まさき　さんへ

ごていねいにプログラムを書いていただきありがとうございます。
さっそくトライしてみます。
これからもよろしくお願いします。


>黒河さん、はじめまして。
>　杉浦　まさき　と申します。
>
>>入力した文字数をカウントしたいのですが、そのような機能はあるのでしょうか？
>>出来れば、大文字、小文字、スペースの数量が個別に知りたいのですが・・・
>
>う〜ん、こういうのはマクロよりプログラム書いた方が速いですけど…
>　とりあえずマクロでやるとこうなりますかね。
>　＃ま、叩き台っちゅーことで(^^;。
>
>//------------------------------------------------------//
>#CBR = getininum("hidemaru.ini","Env","CursorBreakCR");
>if( #CBR == 0 ){
>  writeinistr "hidemaru.ini", "Env", "CursorBreakCR", 1;
>  envchanged;
>}
>
>#LOWER_NUM = 0;
>#UPPER_NUM = 0;
>#SPACE_NUM = 0; // スペースとタブを一緒に勘定してます。
>
>gofiletop;
>while( code != -1 ){
>  if( code >= 0x41 && code <= 0x5A ) #UPPER_NUM = #UPPER_NUM + 1;
>  else if( code >= 0x61 && code <= 0x7A ) #LOWER_NUM = #LOWER_NUM + 1;
>  else if( code == 0x20 || code == 0x09 ) #SPACE_NUM = #SPACE_NUM + 1;
>  right 1;
>}
>
>message "大文字は " + str(#UPPER_NUM) + " 個、\n" +
>        "小文字は " + str(#LOWER_NUM) + " 個、\n" +
>        "空白は   " + str(#SPACE_NUM) + " 個 でした。";
>
>if( #CBR == 0 ){
>  writeinistr "hidemaru.ini", "Env", "CursorBreakCR", 0;
>  envchanged;
>}
>
>endmacro;
>//------------------------------------------------------//
>
[ △ ]