none
Cotação Dolar RRS feed

  • Pergunta

  • Pessoal boa tarde!

    Estou tentando adaptar isso a minha necessidade. Tenho esse módulo com a função RequestDadosWeb, extraída de http://www.macoratti.net/12/01/vbn_webr1.htm

    Imports System.Net
    Imports System.Text.RegularExpressions
    Imports System.IO
    Imports System.Data
    
    Public Class Web
        Public Function RequestDadosWeb(ByVal pstrURL As String) As String
            Dim oWebRequest As WebRequest
            Dim oWebResponse As WebResponse = Nothing
            Dim strBuffer As String = ""
            Dim objSR As StreamReader = Nothing
            'conecta com o website
            Try
                oWebRequest = HttpWebRequest.Create(pstrURL)
                oWebResponse = oWebRequest.GetResponse()
                'Le a resposta do web site e armazena em uma stream
                objSR = New StreamReader(oWebResponse.GetResponseStream)
                strBuffer = objSR.ReadToEnd
            Catch ex As Exception
                Throw ex
            Finally
                objSR.Close()
                oWebResponse.Close()
            End Try
            Return strBuffer
        End Function
    End Class

    no formulário tenho o seguinte:

        Private Sub frm_AtualizaPtax_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                Dim wc As New Web
                txtPtax.Text = wc.RequestDadosWeb("https://www3.bcb.gov.br/ptax_internet/consultarUltimaCotacaoDolar.do".Trim)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub

    A página html é enviada para o txtPtax.Text normalmente, gostaria de capturar apenas o Valor do Dolar e enviar para um textbox.Text. Alguém me ajuda? Obrigado!




    • Editado MSantoli segunda-feira, 11 de maio de 2015 16:55
    segunda-feira, 11 de maio de 2015 16:53

Respostas

  • Testa assim:

    'Usa esses imports: Imports System.Text.RegularExpressions Imports System.Net Private Sub BtnPesquisar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPesquisar.Click 'Define o WebClient Dim WClient As WebClient = New WebClient() 'Configura WebClient para UTF8 WClient.Encoding = System.Text.Encoding.UTF8 'Baixa do site o html do site Dim sourceString As String = WClient.DownloadString("http://wwww.ssss.com.br/teste.html") 'Pesquisa via Regex Dim ReDolar As New Regex("<td aling=""right"">(.*?)</td>", RegexOptions.Singleline) Dim Dolar As String = ReDolar.Match(sourceString).Groups(1).Value Textbox1.Text = Dolar

    End Sub




    terça-feira, 12 de maio de 2015 14:10

Todas as Respostas

  • Testa assim:

    'Usa esses imports: Imports System.Text.RegularExpressions Imports System.Net Private Sub BtnPesquisar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPesquisar.Click 'Define o WebClient Dim WClient As WebClient = New WebClient() 'Configura WebClient para UTF8 WClient.Encoding = System.Text.Encoding.UTF8 'Baixa do site o html do site Dim sourceString As String = WClient.DownloadString("http://wwww.ssss.com.br/teste.html") 'Pesquisa via Regex Dim ReDolar As New Regex("<td aling=""right"">(.*?)</td>", RegexOptions.Singleline) Dim Dolar As String = ReDolar.Match(sourceString).Groups(1).Value Textbox1.Text = Dolar

    End Sub




    terça-feira, 12 de maio de 2015 14:10
  • Deu certinho. Obrigado Marques Junior
    sábado, 16 de maio de 2015 14:54