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

名前

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

本文 この場合の結果は、「バイナリデータ」になりますよね。 可読文字になるとは限らないので、テキストデータとしては 扱えないでしょう。Stringではなく、Byte配列で処理してください。 パック10進数は、私も(聞いたことはあれど)内容までは知らなかったので、 下記の説明記事を参考にして、VB6のコードに起こしてみましたが…… これで良いのかな。 http://www.jtw.zaq.ne.jp/kayakaya/new/kihon/text/zonepack.htm '------------- Public Function Pack(ByVal Value As Long) As Byte() Dim BCD() As Byte Dim sDec As String Dim Length As Integer, Limit As Integer Dim Pos As Integer, C As Byte Dim Index As Integer sDec = StrReverse(CStr(Abs(Value))) Length = Len(sDec) Limit = Length \ 2 ReDim BCD(Limit) BCD(Limit) = IIf(Value >= 0, &HC, &HD) Index = Limit For Pos = 1 To Length C = CByte(Mid(sDec, Pos, 1)) If Pos Mod 2 = 1 Then BCD(Index) = C * &H10 + BCD(Index) Index = Index - 1 Else BCD(Index) = C End If Next Pack = BCD End Function