Ir para conteúdo
  • Publicidade

EdsonBR

  • Postagens

    13
  • Desde

  • Última visita

Perfil

  • Estado
    Santa Catarina
  • Sexo
    masculino
  • Escolaridade
    Superior completo
  • Área Profissional
    Engenharia
  • Nível Profissional
    Profissional curso superior

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

  1. O código que você me enviou no privado infelizmente não rodou: o ResponseText do objHTTP retorna o seguinte conteúdo: "Error detected by Application Firewall. Please contact support if you have any questions." Mesmo copiando a URL gerada no código e colando no navegador, também não abre a página, dá esse erro... você usa alguma API instalada na máquina?
  2. Mas afinal, você quer o valor após TotalPedagioDescricao como no 1º Pots ou após TotalPedagio como no últtimo? Até porque o TotalPedagioDescricao já tem como separador decimal a vírgula, nem precisaria do replace depois. Bem, eu tinha já feito um teste com o texto q você anexou no início e com as solicitações iniciais e tinha funcionado com o código q passei (logicamente sem a parte que pega os dados da internet). Sem ter os outros parâmetros de acesso ao conteúdo do site fica ruim pra testar.
  3. Uma ideia poderia ser: Sub ObtemTotalPedagio() Dim RespostaSite As String, tmpVal As String '...código para obter o texto da página... RespostaSite = objHTTP.responseText With CreateObject("VBScript.RegExp") .Global = False .Pattern = "@TotalPedagioDescricao@:@R\$\s?([\d\.]+,\d{2})@" .Pattern = Replace(.Pattern, "@", """") If .test(RespostaSite) Then tmpVal = .Execute(RespostaSite)(0).SubMatches(0) End With MsgBox tmpVal End Sub
  • Publicidade

×