オフコン練習帳 - 掲示板->ＮＥＣのオフコン情報掲示板（ノウハウ系）->１６進を１０進に変換する方法

[掲示板に戻る] 全部 1- 最新50

1	１６進を１０進に変換する方法
	ゼロ 2006-8-5 8:59 [返信] [編集] ＳＹＳ＠ＦＤＦ内よりデータを抜き出してファイルを管理するデータベースを作りたいと思ったのですが、肝心な部分（更新回数、更新日等）が１６進の為にそのままでは利用できませんでした。ＣＯＢＯＬで１６進から１０進に変換する方法を教えてもらえないでしょうか？ＣＯＢＯＬを利用する以外の方法でもかまいませんのでお願いします。
2	Re:１６進を１０進に変換する方法
	江須扇 2006-8-5 18:14 [返信] [編集] はじめましてゼロさん、江須扇と申します。２バイト単位しか利用できませんが、USAGE COMP-1 を利用したらいかがでしょうか？全く違う利用例ですがこの掲示板の１８１番にUSAGE COMP-1 を使ったＣＯＢＯＬリストが載っております。
3	Re:１６進を１０進に変換する方法
	ちょっと前までA-VXユーザ 2006-8-17 23:18 [返信] [編集] USAGE COMP-1 って、２進数ですね。１６進数は、４bits表現で、０～９，Ａ～Ｆですよね。きっと間違っていないと思いますが、ちょっと気になって、余計なお世話だったかな？以上
4	Re:１６進を１０進に変換する方法
	ゼロ 2006-8-18 10:18 [返信] [編集] 遅くなりましたが、江須扇様レスありがとうございました。 USAGE COMP-1を使用してレコード長、ブロック長、更新回数は問題なく１０進に変換できました。 `01 FDF-RECORDSIZE　PIC X(2).　　：　内容　'0256'(h) 01 WORK-RECORDSIZE. 　02 WORK-RSIZ1　　PIC X(5). 　02 WORK-RSIZ2　　REDEFINES WORK-RSIZ1 USAGE COMP-1. MOVE FDF-RECORDSIZE TO WORK-RSIZ2.` これで、WORK-RSIZ1の内容が’256d’になっていました。 USAGE COMP-1の仕組みがよく理解できていないので結果論ですが、１６進数→１０進数の変換は出来たようです。問題になったのが第１～第４エクステント開始終了アドレス。これは上記の方法で変換するとまったく意味不明な値が帰ってきたので下記のような変換テーブルを作って１バイトづつ判断して内部１６進から外部１６進に変換しました。あとは１６進→１０進への計算ルーチンを作って１０進にしました。もっといい方法があるかもしれませんがこれしか思いつきませんでした。 `01 H-TABLE PIC X(16) VALUE ""00010203・・・0D0EOF"". 01 H-TBL　　REDEFINES H-TABLE PIC X(1) OCCURS 16 TIMES. 01 D-TABLE PIC X(32) VALUE "00010203・・・0D0E0F". 01 D-TBL　　REDEFINES D-TABLE PIC X(2) OCCURS 16 TIMES.`
5	Re:１６進を１０進に変換する方法
	江須扇 2006-8-19 7:35 [返信] [編集] >２バイト単位しか利用できませんが、USAGE COMP-1 >を利用したらいかがでしょうか？という事で、４バイトの場合は、 USAGE COMP-2 を利用していただくこととなります。但し、 COMP-1 が－３２７６８≦ｘ≦３２７６７ COMP-2 が－２１４７４８３６４８≦ｙ≦２１４７４８３６４７となります。詳しくは、ＣＯＢＯＬ言語説明書、２．４．３．４　データの表現形式をご覧下さい。
6	Re:[5]:１６進を１０進に変換する方法
	江須扇 2006-8-19 16:49 [返信] [編集] ご指摘の通りですね。 COMP-1場合、－３２７６８≦ｘ≦３２７６７となり、上１桁目のビットは負をあらわすので、１６進数を単純に１０進数に戻せない場合があると言うことですね。例えば、 02 REI1 USAGE IS COMP-1 02 REI1-ANS PIC 9(5) IF REI1 < 0 THEN COMPUTE REI1-ANS = REI1 + 65536 ELSE MOVE REI1 TO REI1-ANS END-IF 等の工夫が必要という事ですね。２バイトまでしか使えないので、４バイトの場合はCOMP-2を使いますがこれも－２１４７４８３６４８≦ｙ≦２１４７４８３６４７なので 02 REI2 USAGE IS COMP-2 02 REI2-ANS PIC 9(10) IF REI2 < 0 THEN COMPUTE REI2-ANS = REI2 + 4294967296 ELSE MOVE REI2 TO REI2-ANS END-IF ６バイトの場合は 02 REI3. 03 REI31 USAGE IS COMP-1 03 REI32 USAGE IS COMP-2 02 REI31-ANS PIC 9(05) 02 REI32-ANS PIC 9(10) 02 REI3-ANS PIC 9(15) IF REI31 < 0 THEN COMPUTE REI31-ANS = REI31 + 65536 ELSE MOVE REI31 TO REI31-ANS END-IF IF REI32 < 0 THEN COMPUTE REI32-ANS = REI32 + 4294967296 ELSE MOVE REI32 TO REI32-ANS END-IF COMPUTE REI3-ANS = REI31-ANS * 4294967296 + REI32-ANS 等の作業が必要と言うことでしょうか？
7	Re:[5]:１６進を１０進に変換する方法
	ゼロ 2006-8-22 13:02 [返信] [編集] ありがとうございます、希望通りの結果を得ることができました。プログラムもすっきりして大満足です。上１桁が負を表すってことをすっかり忘れていました、２進数なんて２０年近く前に情報処理二種の試験勉強した依頼なんで。次の課題はデータのデータ上に直接持っていないデータの追加可能件数をどうやって求めるか頭をひねってみようと思います。

[掲示板に戻る] 全部前100 次100 最新50