VBAを使ってパックを項目を変換したいです

Question

VBAを使ってdatファイル内のパック項目を変換するツールを作成しています。

ファイルを通常で開くとパック項目が読み込まれないためバイナリ形式で開いてみました。
しかし、半角カナが混在しているためなのかうまく読み込めません。逐一パック項目だけを抜き出したファイルを作成するしかないのでしょうか？

作成中のソースですが、ループ内の処理に入りません。

Sub main()
  Dim path As String
  Dim buf As String 
  Dim rows As Variant

  Open path For Binary As #1
  Get #1,,buf
  Close #1
  rows = Split(buf,vbLf)

For i = 0 To UBound(rows) -1
  変換処理

Comments

[ttyp03]

パック項目ってなんでしょうか？ファイルのフォーマット、作成中のコードを提示してください。

[na-]

ファイルフォーマットは固定長になります。

[ttyp03]

テキストファイルですか？項目はどのように並んでいるんですか？パックってなんですか？パック10進数？コードの提示は？

[na-]

テキストファイルです。パック10進数のことです。わかりづらくてすみません。

Answer 1

バイナリで処理するならbyte型で処理する必要があると思いますが、コードで省略されているということは、そういった認識はないのでしょうね。

半角カナが混在しているためなのかうまく読み込めません。

固定長なんだから関係ありません。
逆に項目の開始位置を意識したプログラムじゃないと駄目です。

以下が参考になるかと思います。
【VBA】Openステートメントでバイナリファイルを読み書きする

項目の取り出しとかも文字数ではなくバイト数で処理する関数やパラメータを意識することが必要です。
また、パックはさらにBIT演算も必要ですし、パック形式には種類があったはず。
(SAMPLE)EXCEL-VBA パック形式(バイト配列)を数字(文字型)に変換

Answer 2

bufに読み込めているかブレークポイントを張って確認する。
読み込めているのなら、改行コードはvbLf？vbCrLfとか試してみるとか。

Comments

[na-]

bufの中身をMsgboxで表示すると???†††?????のように表示されます。取得はできているのでしょうか。改行コードでは変わりませんでした。

[ttyp03]

Getステートメントは読み込み先バッファの領域分のみ読み込むようです。
こちら参照。
http://officetanaka.net/excel/vba/statement/Get.htm
なので、現状のコードだとファイル全体を正しく読み込めていないかもしれません。
上記リンク先にあるやり方を試してみてください。
但しこの方法だとファイルサイズが大きいと大量にメモリを消費しますのでお勧めしません。
下記サイトにあるように、１レコードを表す構造体を作って、１レコードずつ処理するほうが現実的かと思います。
http://typea.info/tips/wiki.cgi?page=Excel+VBA+%B8%C7%C4%EA%C4%B9%A4%CE%B9%BD%C2%A4%C2%CE%A4%F2%A5%D5%A5%A1%A5%A4%A5%EB%A4%AB%A4%E9%C6%C9%A4%E0
どのみちパック部分を抜き出す必要があるようですから、構造体は作ったほうが楽でしょう。