回答編集履歴
3
コード修正
answer
CHANGED
|
@@ -8,13 +8,13 @@
|
|
|
8
8
|
|
|
9
9
|
```vbs
|
|
10
10
|
ary1 = Split("",",")
|
|
11
|
-
|
|
11
|
+
MsgBox UBound(ary1) '-1 要素数0の配列
|
|
12
12
|
|
|
13
13
|
ary2 = Split(" ",",")
|
|
14
|
-
|
|
14
|
+
MsgBox UBound(ary2) '0 要素数1の配列
|
|
15
15
|
|
|
16
16
|
str = ""
|
|
17
|
-
|
|
17
|
+
MsgBox UBound(str) '配列でないので型が違うというエラー
|
|
18
18
|
|
|
19
19
|
```
|
|
20
20
|
|
2
コード追記
answer
CHANGED
|
@@ -30,4 +30,20 @@
|
|
|
30
30
|
i = i + 1
|
|
31
31
|
|
|
32
32
|
'後略
|
|
33
|
+
```
|
|
34
|
+
ttyp03さんの回答にあるようにこの行だけ改行コードを入れるのは、他の行との整合性がとれないので、あまりよくないですね。
|
|
35
|
+
要素数0のままにしておくか、空文字列の配列を格納するようにしたほうがいいですね。
|
|
36
|
+
|
|
37
|
+
```vba
|
|
38
|
+
'前略
|
|
39
|
+
|
|
40
|
+
dataLine = inputFile.ReadLine
|
|
41
|
+
Redim Preserve strArr(i)
|
|
42
|
+
If dataLine = "" Then
|
|
43
|
+
strArr(i) = Array("")
|
|
44
|
+
ELse
|
|
45
|
+
strArr(i) = Split(dataLine, ",")
|
|
46
|
+
End if
|
|
47
|
+
i = i + 1
|
|
48
|
+
'後略
|
|
33
49
|
```
|
1
説明の改善
answer
CHANGED
|
@@ -8,10 +8,14 @@
|
|
|
8
8
|
|
|
9
9
|
```vbs
|
|
10
10
|
ary1 = Split("",",")
|
|
11
|
-
MsbBox UBound(ary1)
|
|
11
|
+
MsbBox UBound(ary1) '-1 要素数0の配列
|
|
12
12
|
|
|
13
13
|
ary2 = Split(" ",",")
|
|
14
|
-
MsbBox UBound(ary2)
|
|
14
|
+
MsbBox UBound(ary2) '0 要素数1の配列
|
|
15
|
+
|
|
16
|
+
str = ""
|
|
17
|
+
MsbBox UBound(ary2) '配列でないので型が違うというエラー
|
|
18
|
+
|
|
15
19
|
```
|
|
16
20
|
|
|
17
21
|
> hairetu(3)(0)に改行（もしくは改行コードvbCrLf）を格納するにはどのような方法がありますか？
|