htmlソースをテキストボックスに表示させて20行目の10文字の数字を取得したい。

質問

恐れ入ります。
http://www.microsoft.com/japan/msdn/vbasic/migration/tips/WebClient/

このページのコードを使わせてもらって
htmlソースをテキストボックスに表示することはできました。表示させたテキストボックスの20行目の10文字の数字を取得したいのですが、どのようにすれば取得できるんでしょうか？val関数も１行目だけみたいですし・・・。ちなみに20行目は

var strReqHomeID = "0000100012";

という具合になっていて　　0000100012　を取得したいのです。

-------------------以下コード----------------
Imports System
Imports System.Text

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim download As New Net.WebClient()
Dim temp As Byte() = download.DownloadData(TextBox1.Text)
Dim change As Text.Encoding = Encoding.Default
TextBox2.Text = change.GetString(temp)

Dim filename As String = System.IO.Path.GetFileName(TextBox1.Text)
If filename = "" Then
filename = "Temp.html"
End If

Dim strPath = My.Computer.FileSystem.SpecialDirectories.Desktop
strPath = strPath + "\" + filename
download.DownloadFile(TextBox1.Text, strPath)
WebBrowser1.Navigate(TextBox1.Text)
Catch ex As Exception
Throw
End Try
End Sub

回答No.1

ape5 · ベストアンサー

テキストボックスには各行をLines()の配列に保持してるようです。
なので行数をチェックしてから、Mid()関数を使って10行目の最初から10文字をとりだします。
-----------------------------------
　 Dim strData As String
　 Dim i As Integer

　 i = TextBox1.Lines.Length
　 If i >= 10 Then
　 strData = Mid(TextBox1.Lines(9), 1, 10)
　 MsgBox(strData, MsgBoxStyle.OKOnly)
　 End If
---------------------------------------------
もし何かありましたら、レスください

回答No.2

pen_pen_pen

未確認ですが。
--------------------------
Dim strLine20 As String
Dim strID As String = ""
Dim iIDStart As Integer
Dim iIDLen As Integer

If TextBox1.Lines.Length >= 20 Then
'20行目取得
strLine20 = TextBox1.Lines(19)

'IDの開始位置（最初の「"」の次の位置）
iIDStart = strLine20.IndexOf("""") + 1

'IDの文字数（最後の「"」の前の位置 - ID開始位置）
iIDLen = strLine20.LastIndexOf("""") - iIDStart

'ID文字列を取り出す
If iIDLen > 0 Then
strID = strLine20.SubString(iIDStart, iIDLen)
End If
End If