| |
たか＠東京さん今日は、ひろです。
> さて、報告なんですが、今やった限りでは、うまく行きませんでし
> た。何がいけないのかも、良くわかりませんので思いつく事を書い
> て見ます。
どうやら私が考えていたこととは違うようです。必ずしも先頭である必要
は無いんですね。マクロを変更しました。
//----------------------- delMLhead2.mac -----------------------------
//削除する部分は、大文字小文字の区別するが、先頭以外も削除
$str = "[hidesoft]";//先頭に着いていたら消す内容
//カーソル位置保存
#x = x;
#y = y;
loaddll "tkinfo.dll";
call ChangeCharacter dllfuncstr("CurrentHeader","Subject"),$str,"";
$tmp = dllfuncstr("SetHeader","Subject",$$return);
moveto #x,#y;//カーソル位置復元
freedll;
endmacro;
ChangeCharacter://buff 中の文字列を置換
//$$1:buff
//$$2:検索文字列
//$$3:置換文字列
##change_char=strlen($$2);
$$string = "";
while(1){
##long = strlen($$1);
##number = strstr($$1, $$2);
if(##number == -1)break;
else{
$$string = $$string + leftstr($$1, ##number) + $$3;
$$1 = rightstr($$1, ##long - ##number - ##change_char);
}
}
return $$string + $$1;
|
|