情報交換の掲示板（アマチュア無線）

市コードの2バイトの空白を見かけ上消す方法

;市区町村コードの6バイト中の末尾に2バイトの空白が附加されているコードを
;右寄せで表示した際に、見かけ上末尾の2バイトを隠す方法
;----------- 市区町村コード表示 --- By JS1BRX 2025/06/18 ----------
?nData8! "0,1,2,3,4,5,6,7,8,9";Code欄空欄ならJCC(G)コード非表示
#Goto*50
;? Data8 " "
?nData8 "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R";
#PrintR 980,135, "JCG #!JC" ;相手局の町村コード
?End
?nData8! "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R";
? Data8 " "
#PrintR 996,135, "JCC #!JC" ;相手局の市コード
?End
? Data8! " "
#PrintR 980,135, "JCC #!JC" ;相手局の区コード
?End
*50
#Exit

元記事の改善版です。
市区町村コードの市コード末尾に半角スペースが二つ入っている仕様に対応して、市コードの半角スペースを削除して表示されるルーチンを改善して左詰めで表示して更に右側に別の項目を表示することが簡単にできるように改善しました・

;----------- 市区町村コード表示 -------------
?nData8! "0,1,2,3,4,5,6,7,8,9";Code欄空に左の文字のいずれかがなく
?nDATA12! "都,道,府,県,市,区,町,村,郡";Code欄に左の文字がなければJCC(G)コード非表示
#Goto *50 ;Code欄空欄なら*50にジャンプ
?nData8 "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R";Code欄に左の文字のいずれかがあればJCCGコードを表示
#Print 180,135, "JCG#!JC" ;相手局の町村コード
?End
?Data8 " " ;CODE欄に半角のスペースがある場合、「市コードと判定」
#Substr $$A,1,4,"!JC";市コードの先頭から4文字を変数$$Aに代入
#Print 180,135, "JCC#!$$A" ;相手局の市コード
?End
?Data8! " " ;CODE欄に半角のスペースがない場合、「区コードと判定」
#Print 180,135, "JCC#!JC" ;相手局の区コード
?End
＊50