| 投稿日 | ： 2002/11/21(Thu) 21:22 |
| 投稿者 | ： ゆうや |
| Ｅメール | ： curren62036@yahoo.co.jp |
| ＵＲＬ | ： |
| タイトル | ： 漢字の"系"を読み書きしたいのです。 |
こんにちは。わからないことがあるので投稿してみました。
Win98 Second EditionでVB6.0 SP5 を使っています。
漢字の「系」という字を一度バイナリデータにして、それを読み込んで「系」という字を復元したい
のですがうまくいきません。「系」をバイト型配列に入れると 配列(0) = 251、配列(1) = 124なので
すが、128を超える値が入っていると駄目なのかなと考えています。多分コードがおかしいと思うので
すがどこが悪いのかが分からなくなっています。
どなたかご存知の方、教えていただけないでしょうか。宜しくお願いします。
コードを載せてみました。宜しくお願いします。
Dim temp As String
Dim binary() As Byte , readbinary() As Byte
Dim lngFileLenB As Long
'★「系」をバイナリ型配列に挿入
binary = "系"
temp = Chr(binary(0)) & Chr(binary(1))
'★バイナリデータを「a.txt」に書き込み
intFileNo = FreeFile
Open App.Path & "\a.txt" For Output As #1
Print #1, temp
Close #1
'★バイナリデータの読み込み
temp = vbNullString
Open App.Path & "\a.txt" For Binary Access Read As #1
lngFileLenB = FileLen(App.Path & "\a.txt")
ReDim readbinary(lngFileLenB - 1)
Get #1, , readbinary
Close #1
'★「系」の復元
temp = ChrB(readbinary(0)) & ChrB(readbinary(1))