Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22662 / 76732

←次へ　｜　前へ→


	【59448】Getで読んだバイト配列文字列をバイト指定で区切る

りった - 08/12/11(木) 16:25 -


	引用なし

	パスワード

下記のように、CSVファイルをバイトの配列として読んだ後、
指定バイトから指定バイトまでの文字列を取りたいのですが、
どうしたらよいでしょうか？

Dim bytBuf() As Byte
Dim fNum As Long
Dim fLen As Long

fLen = FileLen(sPath)
ReDim bytBuf(1 to fLen)
fNum = FreeFile()
Open sPath For Binary As #fNum
Get #fNum, , bytBuf

別のバイト配列を作って、一個ずつ詰め替えした後、
StrConv(･･･, vbUnicode)すれば出来るでしょうが、
パフォーマンスが心配です。

尚、本件下記で質問させていただいた件と、目的は同じです。
【59391】でっかいCSVをExcelでサクッと開きたい

0 hits

▼

【59448】Getで読んだバイト配列文字列をバイト指定で区切る りった 08/12/11(木) 16:25

≪