HAMLOG プログラム開発室

> 私は、Hamlogの入力ウインドウから手で交信データを入力したことと同様のことができればよいだけです。

私もＱＳＯデータ追加のコーディングをテスト中ですがまだエラーが出ています。
ＶＢ６では上手く行っているのですがＶＢ２００８は不慣れで．．。。

失礼しました。
ＷＫＤ／ＣＦＭはＨａｍｌｏｇのメニューの「表示」「Wkd/Cfm記入表示」を実行して反映されるようですね。

ですので通常はＱＳＯデータの書き込みだけで良いのでしょう。

JA2BQX 太田さん、

こんにちは。

Hamlogのデータ構造の基本がわからずに質問をして申し訳ありません。

私は、Hamlogの入力ウインドウから手で交信データを入力したことと同様のことができればよいだけです。
要領を得なくてすみません。


> ここで言う「マスターデータへの書き込み」とは具体的には何でしょうか？
> ＱＳＯデータがマスターデータに影響するのはＷＫＤ／ＣＦＭの情報ですが、この事でしょうか？　　（他にもあるのかな？？）
>
> 「ＱＳＯデータへの書き込み」を行った後で、ＨＤＢをどの様に利用するのかにも係わって来るように思います。
>
> THW_append　しただけでは　DB_append　の様に「インデックスファイルは更新されない」かどうかの記述が HAMLOG50.txt にはありませんね。

こんにちは。

> 下記のようにTHW_appendの第二引数にQSOデータへの書き込みを指定しましたが、このほかにマスターデータへの書き込みも行う必要がありましょうか。ご教示いただければ幸いです。

ここで言う「マスターデータへの書き込み」とは具体的には何でしょうか？
ＱＳＯデータがマスターデータに影響するのはＷＫＤ／ＣＦＭの情報ですが、この事でしょうか？　　（他にもあるのかな？？）

「ＱＳＯデータへの書き込み」を行った後で、ＨＤＢをどの様に利用するのかにも係わって来るように思います。

THW_append　しただけでは　DB_append　の様に「インデックスファイルは更新されない」かどうかの記述が HAMLOG50.txt にはありませんね。

いつも初歩的な質問で申し訳ありません。

VB2008で、Hamlog50.DLLとTHDLL2VB.DLLを使いHamlogとMixW相互のデータ変換プログラムを作りました。
ここで初歩的な疑問が生じました。

下記のようにTHW_appendの第二引数にQSOデータへの書き込みを指定しましたが、このほかにマスターデータへの書き込みも行う必要がありましょうか。ご教示いただければ幸いです。

****************************************************
Public Const IsQSOdata = 16

For d As Integer = 0 To 14
QSOData = DataTbl(d)
メニュー.SetThBuffer(th, QSOData, d)
Next

sd = メニュー.THW_append(th, メニュー.IsQSOdata, 0)

****************************************************

出島さん、

ブログにたわごとを書いています。
その中で、プログラミング、awk、について触れています。
コールサインで検索するとすぐにわかると思います。
お暇な時にお立ち寄りくださいマセ。<(_ _)>

稲村様
JO1SIM出島です。

AWKやPERLを使う件、まったくの賛成です。
AWKでコンテストログを出力されているのですね。そういったスクリプトを公開されていらっしゃれば、なおさら素敵だと思います！HI。

私の場合は、あえて遠回りしているのか・・・
HAMLOGからSQLで検索するソフトを作って…なんてことやっていますが、そこから先がまだないので、スクリプトがあれば大変助かります！（笑）
実際のWebシステム開発あたりでも、Perl等からデータベースを呼び出すことが一般的ですし！（中規模～大規模ならJAVAでしょうけど）



なお、私の作ったツールでSQLをつかって７MHｚの拡張部分からの検索する場合は…

SELECT * FROM HAMLOG
WHERE FREQ >= 7.1 AND FREQ < 7.2;

で検索できます。７Mhz拡張QSOパーティ用でしたら、さらに日付をつけて…

SELECT * FROM HAMLOG
WHERE FREQ >= 7.1 AND FREQ < 7.2 AND
DateTimeToNumber(DATE, TIME) >= D '2009/07/10 00:00J' AND
DateTimeToNumber(DATE, TIME) <= D '2009/07/20 23:59J';

という感じです。日付処理もHAMLOGの流儀にあわせてあります。

> TurboHAMLOGにはQSOデータをcsvファイルに出力する機能があります。
> QSOデータを処理するには、.hdbファイルを直接読み出す方法もあり
> ますが、csvファイルを処理する方が簡単だと思います。
> csvファイルはテキストデータなのでメモ帳などのテキストエディタ
> でも見たり編集したりできます。
>
> 当局は、awkを使ってcsvファイルを処理するプログラム（スクリプト）
> をいくつか書いています。
> コンテストログ（JARL形式、Cablliroなど）、ADIF変換などです。
>
> テキストデータを処理するのに適したスクリプト言語はawk以外にも
> たくさんあると思いますが、これらの言語でプログラムを書いている
> 方が居られましたら情報交換しませんか？
>
> 例えば、7MHz拡張帯でのQSOだけ抽出するには
> BEGIN{FS=","}{if(substr($6,1,3)=="7.1")print}
> 1行だけで抽出できます。
> （freq欄には100KHzまで入力しておく必要がありますが）

TurboHAMLOGにはQSOデータをcsvファイルに出力する機能があります。
QSOデータを処理するには、.hdbファイルを直接読み出す方法もあり
ますが、csvファイルを処理する方が簡単だと思います。
csvファイルはテキストデータなのでメモ帳などのテキストエディタ
でも見たり編集したりできます。

当局は、awkを使ってcsvファイルを処理するプログラム（スクリプト）
をいくつか書いています。
コンテストログ（JARL形式、Cablliroなど）、ADIF変換などです。

テキストデータを処理するのに適したスクリプト言語はawk以外にも
たくさんあると思いますが、これらの言語でプログラムを書いている
方が居られましたら情報交換しませんか？

例えば、7MHz拡張帯でのQSOだけ抽出するには
BEGIN{FS=","}{if(substr($6,1,3)=="7.1")print}
1行だけで抽出できます。
（freq欄には100KHzまで入力しておく必要がありますが）

JO1SIM出島さん、こんにちは。
jr1cpb/稲村さんのコードで非常に助かりました。

> うまくいったようですね！

お陰様でどうにか入り口にたどり着けました。

> ちなみに私はHamlogOpen関数を使っております。
> APIの説明書で説明があるとおり、HamlogOpenで開き、THW_???()でレコードを読みこんでいます。

はい、ＣＳＶにするには同じ関数を使っています。
現在は　idx_open() HamlogOpen() idx_search() idx_next() を使い
特定コールサインや特定ＣｏｄｅとのＱＳＯデータを抜き出す．．に
取りかかっています。

ＶＢ６で公開してある THW_QSOs.exe をＶＢ．ｎｅｔに置き換える
形でＶＢ．ｎｅｔの勉強といったところです。
諸々の処理（データの重複削除、ソートなど）の書き換えをして
Ｔｉｐｓをため込んでおく必要がありますので。

JA2BQX 太田様

JO1SIM出島です。
うまくいったようですね！

ちなみに私はHamlogOpen関数を使っております。
APIの説明書で説明があるとおり、HamlogOpenで開き、THW_???()でレコードを読みこんでいます。

> ＨＤＢの全てをＣＳＶに書き出しも出来るようになりました。

おめでとうございます！
当局は、HAMLOG50.BASを.NET用に手を加えました。
でもまだ全てのインターフェースの動作確認はしていません。Hi