VB2005複数のキーワードから

質問

VB2005入門者です。
カンマ区切りのテキスト"C:\DATA.txt"からキーワード"POINT"と"AA"をもとに
数値 "1" を検出し変数"answer"に格納したい場合
------------------------------
POINT , AA , 1 , 2 , 3 , 4
POINT , AB , 5 , 6 , 7 , 8
NUM , AA , 9 , 10 , 11 , 12
NUM , AA , 13 , 14 , 15 , 16
POINT , AC , 17 , 18 , 19 , 20
・'以下続く
・
・
------------------------------

下記に何を加えればよいのでしょうか。

Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim reader As New System.IO.StreamReader("C:\DATA.txt", System.Text.Encoding.Default)
Dim line As String
Dim Field() As String
Dim answer As Integer
Do Until reader.EndOfStream
line = reader.ReadLine()
Field = line.Split(",")
If Field(0) = "POINT" Then
answer = Field(2)
End If
Loop
End Sub

ちなみに
If Field(0) = "POINT" and Field(1) = "AA" Then　←ではエラーがでました。。。

又、同様のケースで10項目の処理を続けて行い、"answer"にカンマ区切りのまま続けて格納
したい場合はどのようにすればいいのでしょうか。

イメージは最後にexcelに貼り付けていきたいです。

回答No.2

n-jun · ベストアンサー

>If Field(0) = "POINT" And Field(1).Replace(" ", "") = "AA" Then
>とすることで、なんとか"1"だけは拾うことができました。
例えば読み込んだ変数lineに含まれているかを判断して実行であれば、

Dim reader As New System.IO.StreamReader("R:\abcd.txt", System.Text.Encoding.Default)
Dim line As String
Dim Field As Object
Dim i As Long = 0
Dim j As Long
Dim answer() As Object
ReDim answer(0 To 0)
Do Until reader.EndOfStream
line = reader.ReadLine()
If (line.Contains("POINT") * line.Contains("AA")) Then
Field = line.Split(",")
answer(i) = Trim(Field(2))
i = i + 1
ReDim Preserve answer(0 To i)
End If
Loop
For j = 0 To UBound(answer, 1) - 1
Debug.Print(answer(j))
Next
Erase answer

こんな方法でもいいのかな？

お礼

ありがとうございます。

不明個所があります
Dim Field As Object ←なぜobjectなのかがわかりません。

If (line.Contains("POINT") * line.Contains("AA")) Then ←　文字列の特定にContainsを使うのですね！
でもなぜ　* なのでしょうか。

回答No.3

n-jun

>Dim Field As Object ←なぜobjectなのかがわかりません。
ExcelVBAだとValiantを使ってますが、それがないので使ってました。
詳しくはないんですけどね。

>If (line.Contains("POINT") * line.Contains("AA")) Then ←　文字列の特定にContainsを使うのですね！
>でもなぜ　* なのでしょうか。
ヘルプでContainsを調べてみると、
「value パラメータがこの文字列内に存在するか、
value が空の文字列 ("") の場合は true。それ以外の場合は false。」
とあります。

ようは２つの検索結果を掛け算することで、
false　*　false　=　false　(０）
true　*　false　=　false　（０）
false　*　true　=　false　（０）
true　*　true　=　true　（１）
IF文はtrue（０以外）の時に以降を実行してますから、双方に存在していれば
実行する事になります。
ExcelVBAではたまに使う手法です。（式は違いますけど）

お礼

返事遅くなり申し訳ありませんでした。

丁寧な解説ありがとうございました！

回答No.1

n-jun

Dim reader As New System.IO.StreamReader("R:\abcd.txt", System.Text.Encoding.Default)
Dim line As String
Dim Field As Object
Dim i As Long = 0
Dim answer() As Object
ReDim answer(0 To 0)
Do Until reader.EndOfStream
line = reader.ReadLine()
Field = line.Split(",")
If Field(0).Contains("POINT") Then
answer(i) = Field(2)
i = i + 1
ReDim Preserve answer(0 To i)
End If
Loop
MsgBox(UBound(answer, 1) & "_" & i)
とか？
Excelに貼り付けるのが目的であれば、ExcelVBAで行なうのはダメなのでしょうか？
（ＶＢは不得意です）

お礼

早速のアドバイスありがとうございます。
試したところ
メッセージボックスには
3_3
が表示されました。

勉強不足の為、なぜ3_3が表示されるのかわからないので
じっくり考えていきたいと思います。

複数キーワードで

If Field(0) = "POINT" and Field(1) = "AA" Then
にて"POINT"と"AA"から"1"を得られなかったのは
元のテキストにスペースが入っていたのが原因なようで

If Field(0) = "POINT" And Field(1).Replace(" ", "") = "AA" Then

とすることで、なんとか"1"だけは拾うことができました。

ExcelVBAではなくVBで作成しなければならない環境なので
あえてVB2005を使用しています。