| hidetakeさん何度もありがとうございます。
以下のような手続きで無事項目値に代入できました。
ファイル入力も変数読み込みも訂正中にはダメと桐が
メッセージを出したのでモード変更しました。
最初の回答でも良かったのですが、連続して訂正したい
場合は変数読み込みの方が簡単でよいですね。
本当にありがとうございました。
proc t住居表示::ｿｰｽ値更新()
var Str { &Ssjis , &Sfile ,&Sgoapi , &Souttxt = #一括パス名 + "response.var"} , Int { &Iend , &Ick}
method &this.ソース値取得(&Ssjis,0)
cond ( #FSIZE( #代入( &Sfile , #一括パス名 + ( "Latitude.vbs" )))>0 ) rm &Sfile
&Sgoapi = "あなたのgoogleAPI取得キーをお書き下さい"
call 住所緯度( &Sfile , &Ssjis , &Sgoapi , &Souttxt , &Iend )
if ( &Iend <> 1 )
call errormes( &Sfile,&Iend )
else
sh &Sfile , 表示 = 最小化 , &実行リターン , プロセス番号 = &秒
kill &秒
メソッド呼び出し @ﾌｫｰﾑ.更新モード設定( 0 )
変数読み込み &Souttxt , 終了状態 = &Iend
if ([地図リンク先]="")
行訂正 [地図リンク先] = #対応文字列(&座標,3)+","+#対応文字列(&座標,4)
else
確認 "緯度情報を上書きして良いですか",&Ick
if (&Ick=1)
行訂正 [地図リンク先] = #対応文字列(&座標,3)+","+#対応文字列(&座標,4)
end
end
End
End
|
