teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2019/04/17 06:36

投稿

ttyp03
ttyp03

スコア17002

answer CHANGED
@@ -1,6 +1,27 @@
1
1
  22行目で`a()`となっているからでは。
2
- ```VBA
2
+ ```VBScript
3
3
  If a(0) = t_date and a() = o_date Then
4
4
 
5
5
  If a(0) = t_date and a(0) = o_date Then
6
+ ```
7
+
8
+ 他にもおかしそうなところがあったので追記します。
9
+ else側の処理で`objOutput`を使っているがどこでもセットしていない変数です。
10
+ ここは`cr`になるのではないでしょうか。
11
+ ただし書き込んでいる変数xはループ外で1回代入しただけなので同じものが書き込まれてしまいます。
12
+ ReadLineを直接Splitに入れるのではなく、一旦xに受け取る必要があります。
13
+ また`End If`のあとの`WriteLine`の処理は不要かと思います。
14
+ ```VBScript
15
+ x = cv.ReadLine
16
+ cr.WriteLine x
17
+ Do Until cv.AtEndOfStream
18
+ x = cv.ReadLine
19
+ a = Split(x, ",")
20
+ If a(0) = t_date and a(0) = o_date Then
21
+
22
+ else
23
+ cr.WriteLine x
24
+ End If
25
+ Loop
26
+
6
27
  ```