| 投稿日 | ： 2006/11/12(Sun) 13:51 |
| 投稿者 | ： かい |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^6: テキストから文字を取得したいのですが |
＞魔界の弁士様
非常にわかりやすい解説ありがとうございます。
参照設定で上手くコードが取れるようになりました。
With CreateObject("ADODB.Stream") 'または With New ADODB.Stream
.Open
.LoadFromFile pi_strFilePath
Do Until .EOS
.Position = 0
.Type = adTypeBinary
'strdata = .ReadText(adReadLine)
strdata = .Read(adReadAll)
Ates = strdata
For inttest = 0 To UBound(Ates)
Debug.Print Ates(inttest) & " = " & Chr(Ates(inttest))
Next
Debug.Print strdata
このような形で読み込んでみたところ。
イミディエイトには
255 =
254 =
165 = ･
51 = 3
??
といった形で入ってきました。
ちなみに平方キロの場合は
255 =
254 =
162 = ｢
51 = 3
??
という形で入ってきました。