teratail
回答率
85.30%
質問するログイン新規登録
トップCSVに関する質問vbs　ファイルの差分比較

編集履歴

回答編集履歴

3

再度・・・

2019/10/11 03:08

投稿

ttyp03
ttyp03

スコア17002

answer CHANGED
@@ -40,13 +40,13 @@
40
40
  SYA_BG = strInFileLine(0)
41
41
  KINMU_DATE = strInFileLine(1)
42
42
  TIME_1_1 = strInFileLine(2)
43
+ NUM_MAX = TIME_1_1 ' ★追加
43
44
  Set objInFile2 = objFso.OpenTextFile(Path & "\" & InFile2, 1, False) ' ★ここに移動
44
45
  Do Until objInFile2.AtEndOfStream
45
46
  strInFileLine2 = Split(objInFile2.ReadLine, ",")
46
47
  SYA_BG2 = strInFileLine2(0)
47
48
  KINMU_DATE2 = strInFileLine2(1)
48
49
  IF SYA_BG = SYA_BG2 AND KINMU_DATE = KINMU_DATE2 Then
49
- NUM_MAX = TIME_1_1 ' ★ここらへんまるっと修正
50
50
  for i = 2 to 4 ' ★2からに変更
51
51
  if NUM_MAX < strInFileLine2(i) Then ' ★配列を直接参照
52
52
  NUM_MAX = strInFileLine2(i)

2

追加修正

2019/10/11 03:08

投稿

ttyp03
ttyp03

スコア17002

answer CHANGED
@@ -45,14 +45,11 @@
45
45
  strInFileLine2 = Split(objInFile2.ReadLine, ",")
46
46
  SYA_BG2 = strInFileLine2(0)
47
47
  KINMU_DATE2 = strInFileLine2(1)
48
- NUM(1) = TIME_1_1
49
- NUM(2) = strInFileLine2(2)
50
- NUM(3) = strInFileLine2(3)
51
- NUM(4) = strInFileLine2(4)
52
48
  IF SYA_BG = SYA_BG2 AND KINMU_DATE = KINMU_DATE2 Then
49
+ NUM_MAX = TIME_1_1 ' ★ここらへんまるっと修正
53
- for i = 1 to 4
50
+ for i = 2 to 4 ' ★2からに変更
54
- if NUM_MAX < NUM(i) Then
51
+ if NUM_MAX < strInFileLine2(i) Then ' ★配列を直接参照
55
- NUM_MAX = NUM(i)
52
+ NUM_MAX = strInFileLine2(i)
56
53
  END IF
57
54
  NEXT
58
55
  Exit Do ' ★追加

1

指摘修正

2019/10/11 03:05

投稿

ttyp03
ttyp03

スコア17002

answer CHANGED
@@ -60,7 +60,8 @@
60
60
  'TIME_1_1 = NUM_MAX ' ★これは不要
61
61
  Loop
62
62
  objInfile2.Close ' ★追加
63
+ ' objOutFile.WriteLine SYA_BG & "," & KINMU_DATE & "," & TIME_1_1 ' ★削除して
63
- objOutFile.WriteLine SYA_BG & "," & KINMU_DATE & "," & TIME_1_1
64
+ objOutFile.WriteLine SYA_BG & "," & KINMU_DATE & "," & NUM_MAX ' ★これに変更
64
65
  Loop
65
66
  objInfile.Close
66
67
  objOutfile.Close