回答編集履歴
2
Test_Sample_Miniature部分
answer
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
Private strWorkBBBasyo As String
|
|
21
21
|
Private buf As String
|
|
22
22
|
|
|
23
|
-
Sub
|
|
23
|
+
Sub Test_Sample_Miniature()
|
|
24
24
|
Open "C:\Data.txt" For Input As #1
|
|
25
25
|
intCountRec = -1
|
|
26
26
|
Do Until EOF(1)
|
1
<code>へ変更
answer
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
参考程度に見て下さい。
|
|
3
3
|
ファイルをC:￥Data.txtへ置いて動かせば、結果をｲﾐﾃﾞｨｴｲﾄ画面で見れます。
|
|
4
4
|
Excelで作りましたがAccessでも同じ筈です。
|
|
5
|
-
|
|
5
|
+
```ここに言語を入力
|
|
6
6
|
Option Explicit
|
|
7
7
|
|
|
8
8
|
Private Type Table_You_Data
|
|
@@ -41,7 +41,7 @@
|
|
|
41
41
|
MyStr = MyStr & TesRec(iX).strNumber
|
|
42
42
|
Debug.Print MyStr
|
|
43
43
|
Next
|
|
44
|
-
|
|
44
|
+
|
|
45
45
|
End Sub
|
|
46
46
|
|
|
47
47
|
Sub SampleBB()
|
|
@@ -58,6 +58,7 @@
|
|
|
58
58
|
Sub SampleCC()
|
|
59
59
|
Do Until EOF(1)
|
|
60
60
|
If Left(buf, 2) = "CC" Then
|
|
61
|
+
'
|
|
61
62
|
intCountRec = intCountRec + 1
|
|
62
63
|
'
|
|
63
64
|
ReDim Preserve TesRec(intCountRec)
|
|
@@ -75,4 +76,4 @@
|
|
|
75
76
|
End If
|
|
76
77
|
Loop
|
|
77
78
|
End Sub
|
|
78
|
-
|
|
79
|
+
```
|