| |
秀まるおさん
ＴＡＴＥです。
いろいろとお手数をお掛けして恐縮です。
よく調べてみたら、ソートする前に、以下のマクロでヘッダを
整形する処理を入れていましたが、このマクロでヘッダが切れ
るようでした。
こちらの確認不足で大変申し訳ありません。
ただ、素人なのでこのマクロを見ても、なぜヘッダが切れるか
はわかりませんでしたので、他の同様のマクロをライブラリか
ら探して確認中です。
あと、マクロの関数の中に、文字列の先頭と末尾にある空白を
削除するものはないものでしょうか？
ヘルプを探したのですが見つかりませんでした。
EXCELのtrimのような関数があれば助かります。
--------------------------------------------------------
//
// 鶴亀メール メアド名前付加マクロ ver 0.02β
//
// このマクロは、（サイトー企画）鶴亀メール専用です！！
//
// 注１：ふり〜だけど無断転載は禁ず
// 注２：バグっても責任は取りません(^^ゞ
//
// 2001/10/16 y.iida
//
// 鶴亀の決まり
call Turukame;
if ( !##return ) { endmacro; }
// エディタじゃないとダメ
if( dllfunc("IsTuruKameMain") ){
message "エディタから起動してください";
freedll;
endmacro;
}
$Head[0] = "To: ";
$Head[1] = "Cc: ";
$Head[2] = "Bcc:";
#i = 0;
while( #i < 3){
call GoTo_cursor $Head[#i];
if (##return == 1){
call Email_Only;
}
#i = #i + 1;
}
moveto 0,0;
#ret = dllfunc("ClearUpdated"); //更新フラグ解除
freedll;
endmacro;
// ------------------------- //
//
// 鶴亀用DLLをロードする
//
// 引数 : なし
// 戻り : 0=エラー 1=正常
//
Turukame:
// DLL を Load する
openreg "CURRENTUSER","Software\\Hidemaruo\\TuruKame\\Config";
if( !result ) {
message "鶴亀がインストールされてないにょ";
return 0;
}
closereg;
loaddll "tkinfo.dll";
if( !result ) {
message "DLLロードに失敗";
return 0;
}
return 1;
// ------------------------- //
//
// 指定行の１０ColumnへCursorを移動する
//
// 引数 : To: / Cc: / Bcc: の文字列
// 戻り : 0:指定ヘッダー無し 1:有り -1:???
//
//GoTo_cursor:
// moveto 0, -999;
// golinetop;
// while(true){
// if (( x == 0 ) && (code == 0x0d)){
// return 0;
// }
// if ( dllfuncstr( "ToUpper", gettext( 0, y, 4, y))
// == dllfuncstr( "ToUpper", $$1 )){
// moveto 10,y;
// return 1;
// }
// golineend2;
// down;
// golinetop2;
// }
//return -1;
//
// ------------------------- //
//
// 宛先文字列を取り出しアドレスだけにして貼り付まで行う
//
// 引数 : なし
// 戻り : なし
//
Email_Only:
beginsel;
golineend2;
cut;
beginclipboardread;
$$adr = getclipboard;
##n =dllfunc("CountEmailList", $$adr);
if (##n == 0){
insert $$adr;
return;
}
##i = 1;
while( ##i <= ##n ) {
##j = ##i - 1;
$$tmp = dllfuncstr( "GetEmailList", $$adr , ##j );
$$adr_tbl[##i] = "";
//
//メールアドレスだけにするのは中止
// $$adr_tbl[##i] = dllfuncstr("SetEmailOnly",$$tmp );
//
//メールアドレスにアドレス帳の名前を付加する。
$$adr_tbl[##i] = dllfuncstr("FindBookNote",$$tmp ) + " " + dllfuncstr("Fin
dBook3",$$tmp );
##i = ##i + 1;
}
$$adr1 = "";
##i = 1;
while( ##i <= ##n ) {
if ( ##i != ##n ){
$$adr1= $$adr1 + $$adr_tbl[##i] + "\, ";
}
else {
$$adr1= $$adr1 + $$adr_tbl[##i];
}
##i = ##i + 1;
}
insert $$adr1;
return;
|
|