パック十進数に変換するには？ (ID:90836)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 何が問題なのか理解してないね(＾＾；)。とりあえず http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200506/05060170.txt を読んでみて？。 >Dental 2005/06/29(水) 16:49:12 で Dental さんがリンク貼ってくれてるような認識が必要です。 最初の質問で >ＳＱＬサーバからデータを抽出し、固定長テキストファイルにはきだすのですが、 >テキストファイルにはきだす際、数値をパック十進数に変換しなければなりません。 とありますが、テキストファイルというと、Notepad なんかで開いて読める文字、 …つまりＶＢで扱うなら String 型の『文字列』に変換したい…という質問になります。 ですから、ねろさんはわざわざ String 型の『文字列』を返してくれてるサンプルを 提示して下さいました。Ｎ進数の文字列が欲しい。つまり"0100 0011 0010 1100"と いう文字列データが最終結果として欲しいという質問だからです。 >この[432]を[0100 0011 0010 1100]に変換した後、 >２バイトの領域に格納する為に更に変換が必要なのではないかと >思うのですが、その方法がわからず困っています。 ここで、２バイトという表現で書き出すのがテキストファイルでなく、 バイナリファイルである可能性が出てきてしまいました。更に、2バイトの 『何』が欲しいのか分からなくなってしまいました。 >現在はFTRANを使用して返還しているのですが、このツールを使用せずに >変換する必要が出た為、方法を探したのですがどうしてもみつかりません。 そのFTRANとやらの前後で入力と出力のデータ型を明らかにして下さい。 また、その具体的なデータを示して下さい。 例えば Dim wInputData As Integer Dim wOutputData(1) As Byte wInputData = 432 '入力(数値型[2Byte]10進数表現で 432) wOutputData = FTRAN(wInputData) 'パック十進数変換 'wOutputData(0) は２進数表現で 01000011(10進数表現で 67) 'wOutputData(1) は２進数表現で 00101100(10進数表現で 44)