HamLog から、JTDX または、WSJT-X 用の wsjtx_adi.adi ファイルの作成と編集

;--- Hamlog to wsjtx_adi.adi 出力用の定義ファイル ---
;                                        　by JH5TWQ
;    本プログラムの名称  Adif_wsjtx_adi.qsl
;              
;      書込み先は、ドライブ　D
;      ファイル名  wsjtx_log-yyyy-mm-dd.adi
;　　　使用するときには、  wsjtx_log.adi にリネームします。
;      FT8,FT4 のみ出力する
;
#Adif="D:\wsjtx_log-!nW.adi"    ; 出力先
;　　SUBMODE　データの設定
? nData7 "FT8"                  ; デジタル
#Mov $$A=""
? nData7 "FT4"                  ; デジタル
#Mov $$A="FT4"
;-----------------------------------------------------
? nData7 "FT8"                  ; デジタル
#Mov $$C="FT8"
? nData7 "FT4"                  ; デジタル
#Mov $$C="MFSK"
;-----------------------------------------------------
? nData7 "SSB"                  ; SSB
#Exit                           ; SSBの時は出力しない
? nData7 "J3E"                  ; SSB
#Exit                           ; SSBの時は出力しない
? nData7 "FM"                   ; FM
#Exit                           ; FMの時は出力しない
;-----------------------------------------------------
; コメント作成
#Mov $$B="!MD: Sent: !HR Rcvd: !MR"
;-----------------------------------------------------
#Mov $$G="!GL"                  ; GL セット
? nData9 ""
#Mov $$G=" "
;-----------------------------------------------------
;
#Mark=""   ; QSL発行済みマークなし
#Jst2Utc   ; JSTはUTCに変換する
;-----------------------------------------------------
#Print 0,0,"<CALL:!Af>!cp"
#Print 0,0,"<MODE:!Af>!$$C"
#Print 0,0,,"<RST_SENT:!Af>!HR<RST_RCVD:!Af>!MR"
;
#Print 0,0,"<QSO_DATE:!Af>!DY!DM!DD<TIME_ON:!Af>!TH!TM"
#Print 0,0,"<QSO_DATE_OFF:!Af>!DY!DM!DD<TIME_OFF:!Af>!TH!TM"
;       
#Print 0,0,"<BAND:!Af>!Bt<FREQ:!Af>!F7"
#Print 0,0,"<STATION_CALLSIGN:!Af>JH5TWQ"   ; 自分のコールサイン
#Print 0,0,"<MY_GRIDSQUARE:!Af>PM63if"      ; 自分の GL
#Print 0,0,"<COMMENT:!Af>!$$B"
#Print 0,0,"<GRIDSQUARE:!Af>!$$G"
#Print 0,0,"<SUBMODE:!Af>!$$A"
;-----------------------------------------------------------
#Print 0,0,"<EOR>"

; ------- eQSL.cc 宛 ADIF ファイル出力用の定義ファイル -----------
;  
;    ○○○○は、書き込み先ディレクトリ名
; (日付) + (出力の最初のレコード番号)をファイル名にして出力する
;　　　　（2019-01-26-XXXXX.adi）
#Adif="D:\○○○○\!nW-!NO.adi"  
;-------------------------------------------------
; NO eQSLの時は、ジャンプ
? nData10 "JN"
#Exit
; eQSL発行済の時は、ジャンプ
? nData10 "JE"
#Exit
;-------------------------------------------------
;   リグとアンテナ
;-------------------------------------------------
;
#Mov $$B=" My Rig : !RG Ant : !HimH !AN"  ; QSL MSG
;-------------------------------------------------
;相手局がＤＸ局だったら "E"マークを付ける
? DXST
#Mark="E"   ; QSL発行済みマーク
;相手局がＤＸ局以外(JA)
? DXST!
#Mark=" "   ; QSL発行済みマーク---> SPACE
;相手局がＤＸ局だったら QTH を書き込む
? DXST
#Mov $$C="!QT"
;相手局がＤＸ局以外(JA) ----> QTHを　JAPAN にする
? DXST!
#Mov $$C="JAPAN"
;-------------------------------------------------
#Jst2Utc    ; JSTはUTCに変換する
;                     Call              yymmdd                hhmm           Freq 7chra
#Print 0,0,"<CALL:!Af>!cp<QSO_DATE:!Af>!DY!DM!DD<TIME_ON:!Af>!TH!TM<FREQ:!Af>!F7"
;                     Band         Mode             Send Sigs        Recvd Sigs        
#Print 0,0,"<BAND:!Af>!Bt<MODE:!Af>!MD<RST_SENT:!Af>!HR<RST_RCVD:!Af>!MR"
;                    QTH            QSL MSG
#Print 0,0,"<QTH:!Af>!$$C<QSLMSG:!Af>!$$B"
;
#Print 0,0,"<EOR>"