回答編集履歴
3
再度・・・
test
CHANGED
|
@@ -82,6 +82,8 @@
|
|
|
82
82
|
|
|
83
83
|
TIME_1_1 = strInFileLine(2)
|
|
84
84
|
|
|
85
|
+
NUM_MAX = TIME_1_1 ' ★追加
|
|
86
|
+
|
|
85
87
|
Set objInFile2 = objFso.OpenTextFile(Path & "\" & InFile2, 1, False) ' ★ここに移動
|
|
86
88
|
|
|
87
89
|
Do Until objInFile2.AtEndOfStream
|
|
@@ -93,8 +95,6 @@
|
|
|
93
95
|
KINMU_DATE2 = strInFileLine2(1)
|
|
94
96
|
|
|
95
97
|
IF SYA_BG = SYA_BG2 AND KINMU_DATE = KINMU_DATE2 Then
|
|
96
|
-
|
|
97
|
-
NUM_MAX = TIME_1_1 ' ★ここらへんまるっと修正
|
|
98
98
|
|
|
99
99
|
for i = 2 to 4 ' ★2からに変更
|
|
100
100
|
|
2
追加修正
test
CHANGED
|
@@ -92,21 +92,15 @@
|
|
|
92
92
|
|
|
93
93
|
KINMU_DATE2 = strInFileLine2(1)
|
|
94
94
|
|
|
95
|
-
NUM(1) = TIME_1_1
|
|
96
|
-
|
|
97
|
-
NUM(2) = strInFileLine2(2)
|
|
98
|
-
|
|
99
|
-
NUM(3) = strInFileLine2(3)
|
|
100
|
-
|
|
101
|
-
NUM(4) = strInFileLine2(4)
|
|
102
|
-
|
|
103
95
|
IF SYA_BG = SYA_BG2 AND KINMU_DATE = KINMU_DATE2 Then
|
|
104
96
|
|
|
105
|
-
|
|
97
|
+
NUM_MAX = TIME_1_1 ' ★ここらへんまるっと修正
|
|
106
98
|
|
|
107
|
-
|
|
99
|
+
for i = 2 to 4 ' ★2からに変更
|
|
108
100
|
|
|
101
|
+
if NUM_MAX < strInFileLine2(i) Then ' ★配列を直接参照
|
|
102
|
+
|
|
109
|
-
NUM_MAX =
|
|
103
|
+
NUM_MAX = strInFileLine2(i)
|
|
110
104
|
|
|
111
105
|
END IF
|
|
112
106
|
|
1
指摘修正
test
CHANGED
|
@@ -122,7 +122,9 @@
|
|
|
122
122
|
|
|
123
123
|
objInfile2.Close ' ★追加
|
|
124
124
|
|
|
125
|
+
' objOutFile.WriteLine SYA_BG & "," & KINMU_DATE & "," & TIME_1_1 ' ★削除して
|
|
126
|
+
|
|
125
|
-
objOutFile.WriteLine SYA_BG & "," & KINMU_DATE & "," &
|
|
127
|
+
objOutFile.WriteLine SYA_BG & "," & KINMU_DATE & "," & NUM_MAX ' ★これに変更
|
|
126
128
|
|
|
127
129
|
Loop
|
|
128
130
|
|