恐れ入ります。
http://www.microsoft.com/japan/msdn/vbasic/migra …
このページのコードを使わせてもらって
htmlソースをテキストボックスに表示することはできました。表示させたテキストボックスの20行目の10文字の数字を取得したいのですが、どのようにすれば取得できるんでしょうか?val関数も1行目だけみたいですし・・・。ちなみに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ベストアンサー
- 回答日時:
テキストボックスには各行を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
- 回答日時:
未確認ですが。
--------------------------
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Visual Basic(VBA) 以下のVBAで該当文字列の前後に付与したい。 例 前に付与 abc ユーザーID 12345 後に付 3 2022/04/19 21:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「取得先」という表現について
-
アクセスの度にIPアドレスを変...
-
【VBA】EXCELブックを開かずに...
-
Yahoo! JAPAN IDを新規取得でき...
-
ローカルのコンピュータ名を取...
-
IEを使わないでhtmlテキストを...
-
format関数について
-
VBS「開いているページ」のURL...
-
WebBrowserコンポーネントでリ...
-
PHP の cURL で、htmlを画像へ...
-
自動車教習所について 質問 普...
-
EXCEL、マクロ-改ページ行番号...
-
recordsetが取得できなかった場合
-
C# ASP.NET でIPアドレスからア...
-
個人向けルーターを使用してもS...
-
PHPで対象URLがリダイレクトし...
-
Excel VBA:特定の文字列以降(...
-
VB2005でXMLデータから複数ある...
-
VBで他アプリの「syslistview32...
-
Symfonyのcriteriaで複数のSQL
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「取得先」という表現について
-
IEを使わないでhtmlテキストを...
-
Yahoo! JAPAN IDを新規取得でき...
-
不正競争防止法に該当するので...
-
ps3で久しぶりにCDの音楽情報取...
-
format関数について
-
【VBA】EXCELブックを開かずに...
-
自動車教習所について 質問 普...
-
Excel VBA:特定の文字列以降(...
-
VBAでPDFファイルの文書のプロ...
-
【C#】FindWindowExの使い方を...
-
ミュージックのアートワークを...
-
アクセスの度にIPアドレスを変...
-
ローカルのコンピュータ名を取...
-
各クライアントマシンのログイ...
-
IPアドレスとMACアドレスを取得...
-
積立投資してます。現在平均取...
-
VB or VBScriptでPCの製造番号...
-
VBS「開いているページ」のURL...
-
EXCEL、マクロ-改ページ行番号...
おすすめ情報