文字数・語数を数えるマルチマクロの要望No.00331
ひろごん さん 15/01/16 17:07
 
山紫水明様、要望をお聞きください。

「2つの記号または文字で挟まれた文字列」は、その文字列で挟まれた箇所数を返し
ますが、文字列と文字列の間の文字数を返すことが出来ないでしょうか?
具体的に欲しい機能は、改行と改行の間の文字数をカウントして別ファイルに出力す
る機能です。

出力ファイルの例
1行目 125文字
2行目  15文字
  ・
  ・
  ・
(「文字数を数える」標準設定の文字数で)

目的ですが(余談)、
NASのバックアップをBackupというソフトで行っています。
このソフトはバックアップ元とバックアップ先のフルパスを1行づつ出力するログフ
ァイルを作成します。
このフルパスの長さを調べたいのが目的です。
フルパスが規定以上ですと、バックアップはとれますが、ブルーレイやDVDへのバ
ックアップ時に保存されない場合があるからです。
かなり汎用性のない要望だとは思いますが宜しくお願い致します。

[ ]
RE:00331 文字数・語数を数えるマルチマクNo.00332
山紫水明 さん 15/01/16 20:34
 
 ひろごんさん,

>(「文字数を数える」標準設定の文字数で)

 文字数の数え方は「文字数・語数を数えるマルチマクロ」に連動して可変的で
ある必要がありますか? そうなるとかなり面倒なことになります。
 とりあえず,以下のマクロは全角の文字記号は2,半角は1としてカウントす
るものです。もし不都合やご要望があればご指摘ください。

//-------------------------------------------------
gofiletop;
#lc = linecount2;
#i = 1;
while( #i <= #lc ) {
    $n[#i] = str(#i) + "行目 " + str(linelen2) + "文字";
    movetolineno 1, lineno + 1;
    if( code == eof ) break;
    #i = #i + 1;
}
newfile;
disabledraw;
#j = 1;
while( #j < #i ) {
    insert $n[#j] + "\n";
    #j = #j + 1;
}
endmacro;
//-------------------------------------------------

                    山紫水明
                    SANSHISUIMEI

[ ]
RE:00332 文字数・語数を数えるマルチマクNo.00333
ひろごん さん 15/01/19 08:54
 

山紫水明 様

ご連絡が遅くなり申し訳ございません。

早速、マクロを試してみました。
完璧に動作して懸案だったことが解決して
目的を果たすことが出来ました。
大変に感謝いたしております。

ありがとうございました。

ひろごん



[ ]