行頭文字の変換法No.03526
Hirohiro さん 03/01/10 06:26
 
教えてください。

行頭の英字を大文字にしたり小文字にしたりするにはどうしたらいいでしょうか。大
量にある場合、いちいち選択する手間をかけたくないのです。よろしくお願いします。

[ ]
RE:03526 行頭文字の変換法No.03527
山紫水明 さん 03/01/10 08:45
 
 Hirohiroさん,こんにちは。

》行頭の英字を大文字にしたり小文字にしたりするにはどうしたらいいでしょう
》か。大量にある場合、いちいち選択する手間をかけたくないのです。よろしく
》お願いします。

 ご要望がもう一つわかりにくいのですが,次のようなのでどうでしょう。
 本当はもう少し丁寧に作るべきところですが,とりあえあず,ということで。

//------------------//
//UpperLower1.mac    一行を変換

golinetop2;
if ( code > 0x60 ) {
    beginsel;
    right;
    toupper;
} else {
    beginsel;
    right;
    tolower;
}
escape;
endmacro;
//------------------//

//-------------------------------//
//UpperLower2.mac    テキスト全体を変換

menu "&U 大文字に",
     "&L 小文字に";
#r = result;
if( !#r ) endmacro;
disabledraw;
gofiletop;
while( code != eof ) {
    beginsel;
    right;
    toupper;
    if( #r == 1 ) toupper;
    else tolower;
    #line = lineno;
    movetolineno 1, lineno + 1;
    if( #line == lineno ) break;
}
escape;
endmacro;
//-------------------------------//

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

[ ]
RE:03527 行頭文字の変換法No.03528
Hirohiro さん 03/01/10 19:41
 
山紫水明さん、お世話になります。

わかりにくくて申しわけありません。

下記にような行がたくさんある場合にAACRやAACR2の部分を大文字にしたり小文字に
変換したりしたいのです。ご面倒をおかけします。

AACR See:Anglo-American Cataloging Rules.
AACR2 See: Anglo-American Cataloging Rules.



[ ]
RE:03528 行頭文字の変換法No.03529
山紫水明 さん 03/01/10 20:42
 
 Hirohiroさん,こんばんは。

》下記にような行がたくさんある場合にAACRやAACR2の部分を大文字にしたり小
》文字に変換したりしたいのです。

 やはり,例示が必要でしたね。次のでどうでしょう。

//-----------------------------------//
//UpperLower2.mac   テキスト全体を変換

menu "&U 大文字に",
     "&L 小文字に";
#r = result;
if( !#r ) endmacro;
disabledraw;
gofiletop;
while( code != eof ) {
    if( code > 0x40 && code < 0x7b ) {
        selectword;
        if( #r == 1 ) toupper;
        else tolower;
    }
    movetolineno 1, lineno + 1;
}
escape;
endmacro;
//----------------------------------//


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

[ ]
RE:03529 行頭文字の変換法No.03530
Hirohiro さん 03/01/10 20:54
 
山紫水明さん、ありがとうございます。

希望したようにいきました。これからはきちんと質問して、
二度手間をかけないように心がけます。

[ ]