HAMLOG プログラム開発室

こんばんは、度々お世話になります。

> idx_next()　を使い、日付が変わるまでループします。

Idx_ReadKey(）　および　ＶＢでは Vidx_ReadKey()　ですが
この関数では直接インデックスキー文字列が取れるようですが　Call と Code しかないようです。
Date もあるとＦＢかと思いますが。

こんばんは、ありがとうございます。

> idx_next()　を使い、日付が変わるまでループします。

dbf_read() や THW_read() でｈｄｂを読み込み日付を取得して
変わったかを確認すると言う事でしょうか？

idx_next()　を使い、日付が変わるまでループします。

> 例えば　Hamlog.hdb に 日付が　"20010203" のデータが

日付を１日づつ加算して行きレコード番号が求められたらそのー１を求める手もありますね。

こんにちは。お世話になります。
先日の　idx_search　の続きですが、

例えば　Hamlog.hdb に 日付が　"20010203" のデータが
レコード番号　１００から１０４までだったとして下記で最初の　１００　は求まります。
キー　"20010203" の最後の　１０４　を求めるにはどうすれば良いでしょうか？
１００から順番にｈｄｂを読み込み、 Date を求めて行き、"20010203" ではなくなるレコードまで
順次判定して行くしかありませんか？

MakeIndex(hamlogpath, "DATE", "C:\thw2adi\Date.Ndx")
Dim str As String = "20010203"
途中省略
rec_no_1st = idx_search(THindx, search_date, 0)


下記関数の使い方が分かっていないからかも知れませんが。
idx_top()　　　： ｈｄｂの最初のレコード番号　１　
idx_bottom()　 ： ｈｄｂの最終レコード番号
上記では単純過ぎるので、正しい使い方が他にあるのかも？

idx_next()　　 ：　　キーで検索されたレコード番号の次。

こんばんは。浜田さん、ありがとうございます。
午前中から　同じようなことをしているのですが成功していませんでしたが
今、改めてテストしたら取得出来るようです．．．．。

> 分の数値 or &H80　です。


Dim str As String = "1200"
fp0 = Val(str.Substring(0, 2))
fp1 = Val(str.Substring(2, 2))

search_time_ary(0) = CByte(fp0)

下記のどちらでＯＫです。
search_time_ary(1) = &H80 Or CByte(fp1)
search_time_ary(1) = CByte(128) Or CByte(fp1)

午前中のテストとコードは変わらないのですがテスト環境 (Hamlog.hdb) が間違えていたのかな．．．．？？

次の　Date+Time のＵＴＣも取れるようになりました。
的確なアドバイスを何時もありがとうございます。

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

分の数値 or &H80　です。
分 = 分 or &H80
論理和っていうのでしょうか。

逆に、最上位ビットをカットして分の値を取り出すには、
分の数値 and &H7F　です。
分 = 分 and &H7F
論理積っていうのでしょうか。

こんにちは。

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

例の暗黙的変換？をしてくれているのかも、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)