| |
Scripting.DictionaryのKeysメソッドがエラーになります。
getresultex(11)の値は0x80020011なのでDoes not support a collectionのようですが
WSHや秀丸ファイラーClassicのスクリプトでは普通にKeysが取れるので
秀丸からのCOM接続が何か違うのかなって言う気がするのですが。
Keysが返してくるのが配列だからですかね。
以下のソース何か間違ってますか?
#objHash = createobject("Scripting.Dictionary");
if( getresultex(10) == false ) {
message "createobjectエラー";
endmacro;
}
setpropnum #objHash, "CompareMode", 1;
if( getresultex(10) == false ) {
message "setpropnum失敗";
goto macro_end;
}
callmethod #objHash, "add", "str1", "value1";
if( getresultex(10) == false ) {
message "add失敗";
goto macro_end;
}
callmethod #objHash, "add", "num1", 2;
if( getresultex(10) == false ) {
message "add失敗";
goto macro_end;
}
$a = getpropstr(#objHash, "Item", "str1");
message $a;
#b = getpropnum(#objHash, "Item", "num1");
message str(#b);
$keys = member(#objHash, "Keys");
if( getresultex(10) == false ) { // ここでfalseになっている
message "Keys取得失敗:"+hex(getresultex(11));
goto macro_end;
}
macro_end:
releaseobject #objHash;
endmacro;
|
|