質問編集履歴
3
追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -71,4 +71,9 @@
|
|
|
71
71
|
もちろん次の行が読み込めないのでエラーになるのはわかるのですが、東京から次の一行目（日付、天気の行）は存在し、その次がない場合のエラー処理方法がよくわかりません
|
|
72
72
|
|
|
73
73
|
|
|
74
|
-
よろしくお願いいたします。
|
|
74
|
+
よろしくお願いいたします。
|
|
75
|
+
|
|
76
|
+
|
|
77
|
+
追記
|
|
78
|
+
皆様回答ありがとうございました
|
|
79
|
+
一番シンプルに解決したものをBAにさせていただきました
|
2
ついき
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -6,6 +6,8 @@
|
|
|
6
6
|
以下がループ部分のコードです
|
|
7
7
|
```VBA
|
|
8
8
|
Do Until EOF(txtnum)
|
|
9
|
+
'2行目よみこみ
|
|
10
|
+
Line Input #txtnum, line1
|
|
9
11
|
If InStr(line1, "東京") > 0 Then
|
|
10
12
|
tokyoFlg = "1"
|
|
11
13
|
Else
|
1
henshuu
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -12,20 +12,20 @@
|
|
|
12
12
|
|
|
13
13
|
If tokyoFlg = "1" Then
|
|
14
14
|
|
|
15
|
-
'
|
|
15
|
+
'2行目が空
|
|
16
16
|
If line1 = "" Then
|
|
17
|
-
MsgBox "
|
|
17
|
+
MsgBox "不正なデータが含まれているため処理を終了します"
|
|
18
18
|
End
|
|
19
19
|
End If
|
|
20
20
|
3行目読み込み
|
|
21
21
|
Line Input #txtnum, line2
|
|
22
22
|
|
|
23
|
-
'
|
|
23
|
+
'2行目日付を取得
|
|
24
24
|
data = getdata(line1, data)
|
|
25
25
|
|
|
26
26
|
'3行目が空
|
|
27
27
|
If line2 = "" Then
|
|
28
|
-
MsgBox "
|
|
28
|
+
MsgBox "不正なデータが含まれているため処理を終了します"
|
|
29
29
|
End
|
|
30
30
|
End If
|
|
31
31
|
|