HAMLOG プログラム開発室

浜田さん、ありがとうございます。　しかしまだ上手くいきません。

> > search_date　には search_date = "01/02/03" 形式で良いでしょうか？
>
> 日付は数値で４バイト、時間は２バイトだったような・・・。
> 文字ではなく数値です。
> search_date[0] = 20
> search_date[1] = 1
> search_date[2] = 2
> search_date[3] = 3

Function MakeIndex(ByVal s As String, ByVal k As String, ByVal i As String) As Long を見ると
{"DATE", 4 }　なので４バイトか．．．と思ってはいました。これはバイナリーになった時のバイト数ですね。

Function idx_search(p As TIDXh, ByVal s As String, ByVal l As Long) As Long
これを見るとキーは String ですが？

作成された Date.Ndx を見ると ヘッダー部が　５２０バイトかと。
データ部は１レコード当たり１２バイトのように見えます。

レコード番号　：　４バイト　、日付　：　４バイト　、　ダミー：　４バイト


Date.Ndx のファイルサイズとレコード件数の帳尻が合わないみたいなので
データ構造の調べが間違えているように思っています。
出来ればデータ構造を教えていただけますか？

ここはプログラム開発関係の掲示板です。
Ｈａｍｌｏｇの使い方は隣の　「ＨＡＭＬＯＧ　ＢＢＳ」に投稿してください。

> 時間表示を　国内&海外ともにUTCにしたいのですが　何か方法ありませんか、現在　DXに印しを付けておけば　UTCになるのですが　国内の局はUTCにするのに作業が必要になります　

せっかくの投稿なので回答しておきますが、
メニューの「オプション」「環境設定」「設定２」の中の「国内局 」の欄を ---------- にでも書き換えて再起動。


ＨＥＬＰの下記に、その旨の記載がありますよ。
http://hamlog.no.coocan.jp/html/HID00077.html

疑問などがあったらまずはＨＥＬＰをよく読む！　　投稿先を良く確認して間違えない事！

時間表示を　国内&海外ともにUTCにしたいのですが　何か方法ありませんか、現在　DXに印しを付けておけば　UTCになるのですが　国内の局はUTCにするのに作業が必要になります　

> search_date　には search_date = "01/02/03" 形式で良いでしょうか？

日付は数値で４バイト、時間は２バイトだったような・・・。
文字ではなく数値です。

search_date[0] = 20
search_date[1] = 1
search_date[2] = 2
search_date[3] = 3

こんにちは。

バイナリー・エディターで中身を見ると
Hamlog.hdb と Date.Ndx との１レコード目の Date の１６進数は
同じなのですが、検索キーの指定がまずいのかな？
何か事前処理が必要とも思えないのですが、悩んでいます．．．Ｈｉ。

ＶＢユーザーでどなたか同じ処理をして経験がありますか？

おはようございます。
試しているのですが , DATE と DATE+TIME のレコード番号が取れません。
CALLS と CODE　は上手く取れるのですが、先に提示したコードでの
search_date　には search_date = "01/02/03" 形式で良いでしょうか？

浜田さん、こんにちは。
早速の返信ありがとうございました。

> ゼロで大丈夫なはずですよ。
> ゼロを指定すれば、内部で　Length(search_date) でサーチします。

分かりました。自宅に戻ったらテストして見ます。
今は山シャックでＫ１Ｎの追っかけ中です。
ＪＡからは中央アメリカ、カリブは遠い．．．．。

> idx_search 関数の使い方ですが下記の　？　には幾つを指定すれば良いでしょうか？
> rec_no_1st = idx_search(THindx, search_date, ？)

ゼロで大丈夫なはずですよ。
ゼロを指定すれば、内部で　Length(search_date) でサーチします。

こんにちは。　何時もお世話になります。

ＶＢ２０１０にて日付けを指定してレコード番号を取得しようとしています。
ソースの一部抜粋が下記です。

Declare Function MakeIndex Lib "Hamlog50.dll" (ByVal s As String, ByVal k As String, ByVal i As String) As int32
Declare Function idx_open Lib "Hamlog50.dll" (ByVal s As String, ByRef p As TIDXh) As Int32
Declare Sub idx_close Lib "Hamlog50.dll" (ByRef p As TIDXh)
Declare Function idx_search Lib "Hamlog50.dll" (ByRef p As TIDXh, ByVal s As String, ByVal l As Int32) As Int32

MakeIndex(hamlogpath, "DATE", "C:\Hamlog\Date.Ndx")
Ret = idx_open("C:\Hamlog\Date.Ndx", THindx)
search_date = "15/02/03"
rec_no_1st = idx_search(THindx, search_date, 8)
Call idx_close(THindx)


idx_search 関数の使い方ですが下記の　？　には幾つを指定すれば良いでしょうか？
rec_no_1st = idx_search(THindx, search_date, ？)

Th524ap の Hamlog50.txt にて下記の様に記載されている　len です。
search_date = "15/02/03"　なら　８　で良いと思いますが、今は山シャックなのでテスト出来ない．．．。

コールサインの時には　ゼロ　で上手くサーチ出来ましたが。
　
MakeIndex(hamlogpath, "TIME", "C:\Hamlog\Time.Ndx") の時には
"12:34U" なら　６　で良いでしょうか。



引 数：idx
dBASE互換インデックスファイルの構造体

key
検索するキー。THW_seek()と同様。

len
検索するキーの長さを指定する。コールサインの文字列が全部一致するキーを検索する場合は６。


プリフィックスだけ一致の場合は３。ゼロの場合は、key が通常のヌルターミネート文字列であるとして検索する
　

JA7UDE 大庭さん，

> 出島OM、太田OM、
>
> アイディアをありがとうございました。定期的なポーリングが必要ということと理解いたしました。
>
> ７３
> 大庭
> JA7UDE

もう解決されたかもしれませんが，
私も同様にHamlog のデータが更新されたかどうかのチェックをおこない，更新されていたら交信データを取り込んで処理をするプログラムを作りました．

もともと，入力画面のQTHのデータが変化するのを検知して，変化したら取り込んで処理をさせる目的で，500msごとにコマンドの112でQTHのデータを取り込んでいる処理をしていました．

この入力画面で，QTHのデータが空白になったタイミングというのは，入力データがSAVEされたかキャンセルされたかのいずれかです．

そこで，QTHのデータが，有意な文字列から空白文字列に変化した時点で，初めて交信データの総数を読みに行くようにしました．

直接毎回交信データの総数を読みに行くよりは，Hamlogおよび自作ソフトの負担が軽くなるのではないかということです．

参考にはならないかもしれませんが．

de JP7CZE