指定ヘッダーの抽出はかのうですか？ - 秀丸メール情報交換会議室 - スレッド17251, 2004/03/27

指定ヘッダーの抽出はかのうですか？

takako3 さん　04/03/27 22:38

指定ヘッダーの抽出を行うマクロどなたかご存知ですか?
それか、作っていただけませんか?

具体的にはホームディレクトリー以下の
すべてのアカウントフォルダに対して処理を行い、
From:とReply to:を一行で書き出してくれる
マクロなんか欲しいのですが。

From:**** Reply to:****
From:**** Reply to:****
From:**** Reply to:****

とずらーって表示するものが欲しいです。
ホームディレクトリーのサイズは1GBを超えています。
アカウントは30個ぐらいです。

それの全部に対して処理を行えるマクロ
なんか可能でしょうか?

アドレス張にまとめて追加したいので
このマクロを必要としています。

どなたか助けて下さい。

RE:17251 指定ヘッダーの抽出はかのうです

山紫水明 さん　04/03/27 23:26

　takako3さん，こんばんは。

》アドレス張にまとめて追加したいので
》このマクロを必要としています。

　お望みのものそのものではありませんが，拙作の「フォルダ内のアドレスを一
括してアドレス帳に登録するマクロ」
http://hide.maruo.co.jp/lib/tkmacro/tksuppleadrs2.html
は使えませんか？

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

RE:17254 指定ヘッダーの抽出はかのうです

takako3 さん　04/03/28 00:22

山紫水明さん　返信ありがとう。

ただ、このマクロだとReply toが拾えないのと
一気にアドレスに入れないと作業が終わらないですよね?

量的に一気に終えることは出来ないので
fromとreply toだけをエクセルファイルか、
テキストにて抽出してくれるマクロが欲しかったのです。

そしたら毎日少しずつアドレス張に追加できたり
可能になるから。

これを改造すれば出来るのかもしれないけど、
改造するスキルないので今時分でも他のマクロ探しています。

RE:17255 指定ヘッダーの抽出はかのうです

山紫水明 さん　04/03/28 08:30

　takako3さん，こんにちは。

》ただ、このマクロだとReply toが拾えないのと
》一気にアドレスに入れないと作業が終わらないですよね?

　次のマクロでは
(1)でアカウントごと，(2)でホームディレクトリー全体を処理するはずです。
ただし，ホームディレクトリー全体はこちらでも試していません。かなりの
時間がかかりそうですので。
　まず，アカウントごとで一つ，二つ試用されてみて，それでよければ全体を，
ということでいかがでしょう。

//------------------------------------------------------------//
loaddll "tkinfo.dll";
$folder = dllfuncstr( "CurrentAccount" );//(1)
//$folder = dllfuncstr( "HomeDir" );//(2)
newfile;
disabledraw;
gofiletop;
beginsel;
gofileend;
delete;
#n = dllfunc("SwitchHeaderView", 0);
if( dllfunc( "IsOrikaeshi" ) ) #n = dllfunc( "SwitchOrikaeshi" );
grep "^(From|Reply-To):", "*.txt", $folder, subdir, regular;
replaceallfast "^.+\\f(From|Reply-To): *", "\\1", regular;
replaceallfast "\\n\\fReply-To", "\\t\\1", regular;
endmacro;
//------------------------------------------------------------//

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

RE:17259 重複データの削除は出来ないので

takako3 さん　04/03/28 19:17

すごいです。ものすごく早く処理してくれて
全然ストレス感じませんでした。
ありがとうございました。

ただ、重複したデータの削除は出来ないのでしょうか?
Fromで同じものがあったら同じFromからのものを
削除するようになれば大変助かるのですが。

このようなことは可能でしょうか?
追加での質問すみません。

vector等でマクロ探したのですがどうも見つからない
感じがしたので。秀丸さんのライブラリーにも
なかったような感じがします。

RE:17265 重複データの削除は出来ないので

山紫水明 さん　04/03/28 20:40

　takako3さん，こんばんは。

》ただ、重複したデータの削除は出来ないのでしょうか?

　エクセルファイルとおっしゃっていたので，それで処理されるのかと思ってい
ました。秀丸で処理するとすれば，次のようなマクロでできるでしょう。

//-----------------------------------
//重複行の整理
disabledraw;
gofiletop;
while( code != eof ) {
#line = lineno;
beginsel;
golineend2;
$s = gettext( seltopx, seltopy, selendx, selendy );
if( $s != "" ) {
while(1) {
searchdown $s;
if( result ) {
deleteline;
up;
} else break;
}
}
movetolineno 1, #line + 1;
if( lineno == #line ) break;
}
endmacro;
//-----------------------------------

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

RE:17266 重複データの削除は出来ないので

takako3 さん　04/03/28 23:32

うーん、なんかうまくいきません。
エクセルだとかなり時間がかかりますが
確実に出来るのでそっちでやります。
（重複じゃないデータまで削除されしまいました。）

でもでも、
山紫水明さん本当にどうもありがとう。
おかげさまで作業時間が大分ちじみそうです。
助かりました。　ぺこり

RE:17268 重複データの削除は出来ないので

山紫水明 さん　04/03/29 08:00

　takako3さん，こんにちは。

》うーん、なんかうまくいきません。
》エクセルだとかなり時間がかかりますが
》確実に出来るのでそっちでやります。
》（重複じゃないデータまで削除されしまいました。）

　すみません，間違いがありました。不要だとは思いますが，念のため訂正して
おきます。

//-----------------------------------//
//重複行の整理
title "作業中です！";
disabledraw;
gofiletop;
while( code != eof ) {
#line = lineno;
beginsel;
golineend2;
$s = gettext( seltopx, seltopy, selendx, selendy );
if( $s != "" ) {
while(1) {
searchdown $s;
if( result ) {
selectline;
delete;
up;
} else break;
}
}
movetolineno 1, #line + 1;
if( lineno == #line ) break;
}
endmacro;
//-----------------------------------

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

RE:17274 重複データの削除は出来ないので

takako3 さん　04/03/29 12:29

修正していただいてありがとうございます。
エクセルで行うのとでは処理速度が比較にならないほど速くて
とても満足しています。

マクロの製作までしていただき本当にありがとうございました。