VB.net 文字列の判定

Question

皆様こんにちは。

今回、テキストファイルの全行を1行ずつ読込み、
1行の文字列に対して「=」があれば、「=」から右側の文字列を取得する、という処理を行いたいです。

以下にコードを書きましたが、
「=」の右側を取得するというのが、どう判定すればいいか、調べてもわからず、躓いているところであります。

以前は、1行の文字列をEquals関数(完全一致)で比較させ、
Replace関数で整形させていました。
ただ、その場合、テキストファイルの中身が変わった時点で、対応できなくなるので、
なんとかならないかな・・・。という経緯があります。

　　　　Using fs As New FileStream(testfile, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
            Using tr As TextReader = New StreamReader(fs, Encoding.GetEncoding("shift-jis"))
                '全行読込
                Dim line As String
                Do
                    line = tr.ReadLine()
                    'ここで読み込んだ文字列に対して、「=」があれば、「=」から右側の文字列を取得したい
                   
                Loop Until line Is Nothing
            End Using
        End Using

もし、ご存知の方がいらしましたら、ご教示願いたく思います。

よろしくおねがいいたします。

Comments

[退会済みユーザー]

一行の中に '=' が複数存在することはない（ゼロまたは一つ）のですか？　複数あった場合はどうするのですか？

[dera]

今回の場合は、1行の中に’='が複数存在することはありませんので、考慮しておりませんでした・・・。

Answer 1

人間が考えるように処理すれば良いと思います。質問者さん自身がその対象の1行を見たとき、どのように取り扱うでしょうか？

dobon.net - 文字列内に指定された文字列があるか調べ、その位置を知る

位置を知ったらその位置に＋１したインデックスから始めて、行末まで取得すれば良い訳です。
なお、正規表現が分かれば一発ですが、現段階では後回しで良いと思います。

Comments

[dera]

ありがとうございます。こちらの方法で無事とることができました。
//上記コード省略

If line.Contains("AAAA") Then
count = line.IndexOf("=")
RightChar = line.Substring(count + 1)

[dodox86]

お役に立ててよかったです。必要に応じてIndexOfで見つからなかった(-1が返る)ケースも適時ご検討ください。この場合は例外(ArgumentOutOfRangeException)が発生します。もちろん、検討済みで、絶対に"="が存在するならその限りではありません。

Answer 2

複数"="があった場合はどうすればいいのか不明ですが
split でもいいのではないでしょうか

Dim fileData As String()

fileData = System.IO.File.ReadAllLines("d:\testdata.txt")

Dim getData As String()

getData = fileData _
          .Select(Function(row) row.Split("=")) _
          .Where(Function(splitValue) splitValue.Length = 2) _
          .Select(Function(value) value(1)) _
          .ToArray()

Comments

[dera]

なるほど、これは、spilitで文字分割して処理しているのですね。
Linqを使うというのが思いつきませんでした。とても参考になります。
Linqはあまり馴染みがなく、理解できる範囲も狭いので、これを気にもう少し勉強してみたいと思います。ありがとうございます。