ハフマンコードのエラーを無くすには (ID:127242)

名前

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

本文 おはようございます。 皆様にご質問があり、書き込みました。 ファイルの圧縮→(FD１枚に収まらなかった場合)分割→(FD)結合→解凍 という処理をしています。 圧縮したものを結合し、解凍するときに、 『a.LZH ハフマンコードが壊れています』 というエラーが発生してしまいます。 で、圧縮前(分割前)のファイル(LZH)形式のファイルを テキストファイルで開き、 FD1・2枚のデータを結合したものが書き込まれているワークファイル(テキスト形式 後に拡張子変換を行います。) 圧縮前・ワークファイルデータの、全体の最初と最後・及び１枚目と２枚目のファイルの継ぎ目(?)・圧縮前の最初の文字・最後の文字・ワークファイルの最初の文字・最後の文字を調べたのですが、どれも完璧にデータを取れてきていました。 しかし、圧縮前のLZHファイルの容量は1906KB ワークファイルの容量 1905KBとなっています。 圧縮前のデータの途中が取ってこれてきていないのでしょうか・・・。 圧縮ファイルをワークファイルで読み込むときは、 Dim sr As New StreamReader(圧縮したファイルパス, System.Text.Encoding.Default) Dim A_re As String = sr.ReadToEnd ・・・ ワークファイルに書き込む Dim st As StreamWriter = New StreamWriter(ワークファイルパス", False, System.Text.Encoding.Default) st.Write(A_re) で最後まで読み込んで、書き込んでいるのですが・・。 どなたか、ご教授賜れませんでしょうか・・・。 よろしくお願い致します.