HAMLOG プログラム開発室

こんにちは。

> バイト型の配列の１要素に、文字列？がコピーできてしまうのですか。

例の暗黙的変換？をしてくれているのかも、Hi。
str = "1200"
fp0 = Val(str.Substring(0, 2))
fp1 = Val(str.Substring(2, 2))
search_time_ary(0) = CByte(fp0)
search_time_ary(1) = CByte(fp1)
　　　　　．．．とかが良いでしょうね、これで動きます。

1200 でサーチすると　12：00 J のレコード番号が求められます。
12：00 Ｕ のレコード番号を求めるにはどうしたらいいでしょうか？

Hamlog50.txt には　分の最上位ビットが１であればＵＴＣ とあります。
1000 0000 は　１６進数で 80 なので１０進数の128を加算して
12 と 128+0　をバイト配列に入れてテストしていますが間違いのようです。

どのように処理すれば良いのでしょうか？

> Dim search_date As String
> Dim search_date_ary(4) As Byte
>
> search_date_ary(0) = "20"
> search_date_ary(1) = "15"
> search_date_ary(2) = "01"
> search_date_ary(3) = "05"

バイト型の配列の１要素に、文字列？がコピーできてしまうのですか。

また、エンコードルーチンを呼び出す必要があるのですね。

いずれにしても、インデックスルーチンを使うと、検索がめちゃくちゃ
高速になります。

ハムログにおける、コールサインのサフィックス・サーチやワイルドカ
ード・サーチでは、HAMLOG.DX0からサーチしてますので20万件以上の
データから任意の100件くらいを探し出すのでも、瞬時に表示して
くれます。

浜田さん、何回もありがとうございました。
下記のように修正したら目的のレコード番号が取得出来ました。

Dim search_date As String
Dim search_date_ary(4) As Byte

search_date_ary(0) = "20"
search_date_ary(1) = "15"
search_date_ary(2) = "01"
search_date_ary(3) = "05"

MakeIndex(hamlogpath, "DATE", "C:\thw2adi\Date.Ndx")
Ret = idx_open("C:\thw2adi\Date.Ndx", THindx)

search_date = System.Text.Encoding.GetEncoding(932).GetString(search_date_ary)

rec_no_1st = idx_search(THindx, search_date, 0)

Call idx_close(THindx)

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

VBの場合はそのように宣言するしか思いつきませんでした。
C言語やPascalではchar型のポインタ、又はcharの配列です。


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

ファイルサイズとレコード件数は、釣り合わないはずです。
そんな単純な構造ではありません。
ですが、参考文献も処分してしまって・・・。
自分でもほとんど忘れてます。

データ構造を理解しなくても使えると思いますけど。

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


ここはプログラム開発(C、パスカル、VB言語等、又はDLL)についての
専用BBSです。
プログラム言語に関する投稿以外は通常のHAMLOG相談室に投稿して下さい。

常にUTCにする方法は、こちらをご覧ください。
http://hamlog.no.coocan.jp/html/HID00045.html

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

> > 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 の１６進数は
同じなのですが、検索キーの指定がまずいのかな？
何か事前処理が必要とも思えないのですが、悩んでいます．．．Ｈｉ。

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