記事No |
: 1026 |
投稿日 |
: 2022/09/07(Wed) 09:48:23 |
投稿者 |
: JA2BQX 太田 |
JA9AOB 銅子さん、
詳しくありがとうございました。
昨日の午後に 1 を指定してQSO履歴の中身が取れたのですが、そのソースが何処か分からなくなり今朝からPCの中を探しています。
下記ではダメで....。
Dim num As Boolean
get_main_call = "JA2CXF"
InitHamlogDLL()
SetDbsShare(1)
hamlogpath = strPath & "Hamlog.hdb"
sd = HamlogOpen(Th1, hamlogpath, 0)
num = THW_seek(Th1, get_main_call, DbsCallDX)
While num = SUCCESS
QSOデータの中身は
THW_read(Th1 , レコード番号 , 2) ではレコード番号が不明でダメですし。
---処理---
num = THW_skip(Th1, 1, DbsCallDX)
End While
Call HamlogClose(Th1, 0)
DoneHamlogDLL()
このスレッドは管理者によってロックされていますので、返信並びに編集は出来ません!