| |
秀まるお様、こんばんは〜きもとです。
ご指導ありがとうございます。
早速やってみましたところ、うまく書き出すことに成功しました。
ただ、d:\k3\jusho.txt が存在しないときはエラーになりましたので
とりあえず、手動で作っておくことで解決しました。
もう一つ、やりたいことが出来たのですが、郵便番号と、電話番号と
ファックス番号が全角文字で入ることがありますので、これを半角文字に
変換する場合はどのように記述したらよいのでしょうか？
（（tohankakuの使い方が判りませんでした。））
よろしくお願い申し上げます。
---------------------------------------------------------------------
loaddll "tkinfo.dll";
if( !dllfunc("IsTuruKameMain") ) {
message "このマクロは本体画面上で実行してください。";
endmacro;
}
gofiletop;
searchdown "^会社名", regular;
if( result ) {
$a = gettext( 0, y, linelen, y );
}
searchdown "^部署名", regular;
if( result ) {
$b = gettext( 0, y, linelen, y );
}
searchdown "^名前", regular;
if( result ) {
$c = gettext( 0, y, linelen, y );
}
searchdown "^氏名ふりがな:", regular;
if( result ) {
$d = gettext( 0, y, linelen, y );
}
searchdown "^郵便番号", regular;
if( result ) {
$e = gettext( 0, y, linelen, y );
}
searchdown "^住所", regular;
if( result ) {
$f = gettext( 0, y, linelen, y );
}
searchdown "^電話番号", regular;
if( result ) {
$g = gettext( 0, y, linelen, y );
}
searchdown "^ファックス", regular;
if( result ) {
$h = gettext( 0, y, linelen, y );
}
searchdown "^ＵＲＬ", regular;
if( result ) {
$i = gettext( 0, y, linelen, y );
}
#n = dllfunc("NewMail");
#n = dllfunc("SwitchHeaderView", 0 );
gofiletop;
beginsel;
gofileend;
delete;
insertfile "D:\\K3\\JUSHO.TXT";
selectall;
cut;
insert $a;
insert "\n";
insert $b;
insert "\n";
insert $c;
insert "\n";
insert $d;
insert "\n";
insert $e;
insert "\n";
insert $f;
insert "\n";
insert $g;
insert "\n";
insert $h;
insert "\n";
insert $i;
insert "\n";
saveas "D:\\K3\\JUSHO.TXT";
quit;
|
|