| |
まず、秀丸アドレス帳シンクロナイザのVersion 1.05β2をアップロードしました。
これをインストールして欲しいです。
http://hide.maruo.co.jp/software/bin3/tkgc105b2_signed.exe
インストールして実行してタスクトレーのアイコンで右ボタンを押すと、
テスト用：アクセストークンの取得
ってコマンドがあるのでそれを実行します。そうすると、「取得したアクセストー
クンをクリップボードにコピーします。....」みたいなメッセージが出るはずになり
ます。それが正常動作するか確認します。
次に、秀丸エディタのマクロとして、以下のようなのを１つ作ります。
-----GoogleContactTest.mac-------------------------------
//ここを書き換える
$accessToken = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxx";
setcompatiblemode 0x00000200; //検索でヒットした文字列を範囲選
択する。
#http = createobject( "Msxml2.XMLHTTP" );
if( #http == 0 ) {
#http = createobject( "Microsoft.XMLHTTP" );
if( #http == 0 ) {
message "XMLHTTPオブジェクトの生成に失敗しました。";
endmacro;
}
}
menu "すべての連絡先を取得するテスト",
"2016年以降に更新された連絡先のみ取得するテスト",
"グループ一覧の取得テスト";
if( result == 1 ) {
goto Label_RetrieveAllContacts;
} else if( result == 2 ) {
goto Label_Retrieve2016OnlyContacts;
} else if( result == 3 ) {
goto Label_RetrieveAllContactGroups;
}
endmacro;
//すべての連絡先を取得するテスト
//
Label_RetrieveAllContacts:
$url = "https://www.google.com/m8/feeds/contacts/default/full";
callmethod #http, "open", "GET", $url, false;
callmethod #http, "setRequestHeader", "Authorization", "Bearer " + $acce
ssToken;
callmethod #http, "setRequestHeader", "GData-Version", "3.0";
callmethod #http, "send", "";
$resp = getpropstr( #http, "responseText" );
newfile;
insertfix $resp;
question "メールアドレスだけ抽出しますか？";
if( result != yes ) {
endmacro;
}
gofiletop;
#i = 0;
while(1) {
searchdown "(?<=<gd:email .*?address=\\').+?(?=\')", regular, nocase
sense;
if( !result ) {
break;
}
$email[#i] = gettext( seltopx, seltopy, selendx, selendy );
#i = #i + 1;
}
#count = #i;
if( #count == 0 ) {
message "メールアドレスは１つもありませんでした。";
endmacro;
}
gofiletop;
beginsel;
gofileend;
delete;
#i = 0;
while( #i < #count ) {
insert $email[#i] + "\n";
#i = #i + 1;
}
endmacro;
//2016年以降の連絡先を取得するテスト
//
Label_Retrieve2016OnlyContacts:
$url = "https://www.google.com/m8/feeds/contacts/default/full?update-min
=2016-01-01T00:00:00";
callmethod #http, "open", "GET", $url, false;
callmethod #http, "setRequestHeader", "Authorization", "Bearer " + $acce
ssToken;
callmethod #http, "setRequestHeader", "GData-Version", "3.0";
callmethod #http, "send", "";
$resp = getpropstr( #http, "responseText" );
newfile;
insertfix $resp;
question "メールアドレスだけ抽出しますか？";
if( result != yes ) {
endmacro;
}
gofiletop;
#i = 0;
while(1) {
searchdown "(?<=<gd:email .*?address=\\').+?(?=\')", regular, nocase
sense;
if( !result ) {
break;
}
$email[#i] = gettext( seltopx, seltopy, selendx, selendy );
#i = #i + 1;
}
#count = #i;
if( #count == 0 ) {
message "2016年以降に更新されたメールアドレスは１つもありませんでし
た。";
endmacro;
}
gofiletop;
beginsel;
gofileend;
delete;
#i = 0;
while( #i < #count ) {
insert $email[#i] + "\n";
#i = #i + 1;
}
endmacro;
//グループ一覧の取得テスト
//
Label_RetrieveAllContactGroups:
$url = "https://www.google.com/m8/feeds/groups/default/full";
callmethod #http, "open", "GET", $url, false;
callmethod #http, "setRequestHeader", "Authorization", "Bearer " + $acce
ssToken;
callmethod #http, "setRequestHeader", "GData-Version", "3.0";
callmethod #http, "send", "";
$resp = getpropstr( #http, "responseText" );
newfile;
insertfix $resp;
question "グループ名だけ抽出しますか？";
if( result != yes ) {
endmacro;
}
gofiletop;
#i = 0;
while(1) {
searchdown "(?<=<title>).+?(?=</title>)", regular, nocasesense;
if( !result ) {
break;
}
$group[#i] = gettext( seltopx, seltopy, selendx, selendy );
#i = #i + 1;
}
#count = #i;
if( #count == 0 ) {
message "2016年以降に更新されたメールアドレスは１つもありませんでし
た。";
endmacro;
}
gofiletop;
beginsel;
gofileend;
delete;
#i = 0;
while( #i < #count ) {
insert $group[#i] + "\n";
#i = #i + 1;
}
endmacro;
-----GoogleContactTest.macおわり-------------------------
マクロの先頭に$accessToken = "xxxxx..."って部分がありますが、ここに、秀丸
アドレス帳シンクロナイザで取得したアクセストークンを貼り付けていただきますと、
約１時間程度テストが可能になります。
で、マクロを実行して、出てくるメニューを選択してテストしてみて欲しいです。
それでうまく連絡先の一覧やグループの一覧が取得できるかどうか。取得できない
としたら、他のパソコンでテストした時と結果がどう違うのか、その辺の情報を全部
取って僕に送っていただければ、こちらで何がおかしいのか判断できると思います。
ただ、僕の所に送っていただくと連絡先が全部丸わかりになってしまうので・・・
僕に送っていただくよりは、ご自身で見て何が違うか判断していただく作戦の方がい
いような気がします。例えばデータが途中で切れてるとか、メールアドレスの入るべ
き所が入って無いとか・・・。
もし、問題のパソコンでもまったくもって正常動作するとしたら、マクロでやって
ることをアドレス帳シンクロナイザでも再現させて、それで改めてテストしていただ
きたいと思います。それでも正常なら、Google Contacts APIの「.NET Framework用
のライブラリ」自体が信用できないってことになるので、今回のような「https:」の
アクセスを独自にやって対応するしか無いかもしれません。
-------------
あともう１点ありました。今回のV1.05β2から、Google用のライブラリのバージョ
ンが、以前は2.1だったのが2.2になってます。これでもしかしたら正常になってるか
もしれません。マクロで正常動作する場合はシンクロナイザの動作も改めてテストし
てみて欲しいです。
|
|