質問編集履歴
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,4 +2,20 @@
|
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
ファイルを通常で開くとパック項目が読み込まれないためバイナリ形式で開いてみました。
|
|
5
|
-
しかし、半角カナが混在しているためなのかうまく読み込めません。逐一パック項目だけを抜き出したファイルを作成するしかないのでしょうか？
|
|
5
|
+
しかし、半角カナが混在しているためなのかうまく読み込めません。逐一パック項目だけを抜き出したファイルを作成するしかないのでしょうか？
|
|
6
|
+
|
|
7
|
+
作成中のソースですが、ループ内の処理に入りません。
|
|
8
|
+
```VBA
|
|
9
|
+
Sub main()
|
|
10
|
+
Dim path As String
|
|
11
|
+
Dim buf As String
|
|
12
|
+
Dim rows As Variant
|
|
13
|
+
|
|
14
|
+
Open path For Binary As #1
|
|
15
|
+
Get #1,,buf
|
|
16
|
+
Close #1
|
|
17
|
+
rows = Split(buf,vbLf)
|
|
18
|
+
|
|
19
|
+
For i = 0 To UBound(rows) -1
|
|
20
|
+
変換処理
|
|
21
|
+
```
|