TAG HTML PORTAL NACIONAL

LEONARDOSILVEIR 07/06/2011 20:56:22
#376117
Existe alguma expressao regular onde faça o codigo abaixo entrar somente quando encontrar o valor exato? veja abaixo que quando encontra [Ô]Base de Cálculo ICMS[Ô] ele entra e tbem quando encontra [Ô]Base de Cálculo ICMS ST[Ô] ele tbem entrar na condição

If Spans.Item(A).InnerText.Trim = [Ô]Base de Cálculo ICMS[Ô] Then
A += 1
ICMSTAX_BSS.Text = Spans.Item(A).InnerText : A += 1
End If
ALTAIR148 07/06/2011 21:12:55
#376118
Não entendi.
LEONARDOSILVEIR 07/06/2011 21:24:31
#376121
O codigo abaixo deveria atender a condição IF somente quando encontrar Spans.Item(A).InnerText.Trim = [Ô]Base de Cálculo ICMS[Ô], acontece que quando ele encontra Spans.Item(A).InnerText.Trim = [Ô]Base de Cálculo ICMS ST[Ô] ele tbem entra nessa mesma condição, o que faz sobrepor o valor anterior.

If Spans.Item(A).InnerText.Trim = [Ô]Base de Cálculo ICMS[Ô] Then
A += 1
ICMSTAX_BSS.Text = Spans.Item(A).InnerText : A += 1
End If
ALTAIR148 07/06/2011 21:57:47
#376124
Me passa a chave da nota que está tentando importar.
LEONARDOSILVEIR 07/06/2011 22:34:07
#376126
Altair consegui resolver, estava referenciando o mesmo textbox para as duas condiçoes.
Voltando na parte onde postei hoje de manha
[txt-color=#e80000] Altair me deparei com mais um problema, quando faço a busca no ([Ô]Código EAN Tributável[Ô]), programa da erro, pq a tag está vazia e para a execução dos proximos campos, como posso tratar isso no codigo?
exemplo do codigo html (Código EAN Tributável<br /></span><span class=[Ô]linha[Ô]></span></td><td valign=[Ô]top[Ô] style=[Ô]height: 37px; width: 33%;[Ô]><span class=[Ô]TextoFundoBrancoNegrito[Ô]>)

Dim ListaSpan As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName([Ô]Span[Ô])
For B = 0 To ListaSpan.Count - 1 [ô]Faz um loop entre todas as tags span que existem na página
If ListaSpan.Item(B).InnerText = [Ô]Código EAN Tributável[Ô] Then [ô]como >< está vazio o programa para a execução do next
B += 3
cnpj1.Text = ListaSpan.Item(B).InnerText
End If

Next
[/txt-color]

Acontece que o campo não está em branco, ele simplesmente dá um erro [Ô]Nothing[Ô] axo que é por nao existir, ai acaba parando a execução do codigo, segue abaixo, print do erro.
ALTAIR148 07/06/2011 22:46:33
#376127
Amigo, posta seu código completo ai que vou analisar aqui.
LEONARDOSILVEIR 07/06/2011 22:51:06
#376128
Segue codigo anexado.
ALTAIR148 07/06/2011 23:25:51
#376130
Boa noite,

Aqui o problema, retire o .Trim que vai dar certo

Método errado:

  If Spans.Item(A).InnerText.Trim = [Ô]Data de emissão[Ô] Then
                    A += 1
                    NF_BRL_DATE.Text = Spans.Item(A).InnerText : A += 1
                End If



Método Correto:

  If Spans.Item(A).InnerText  = [Ô]Data de emissão[Ô] Then
                    A += 1
                    NF_BRL_DATE.Text = Spans.Item(A).InnerText : A += 1
                End If



Testa ai e me rotorna.

Me add no msn:
ruadapaia@hotmail.com
LEONARDOSILVEIR 07/06/2011 23:47:53
#376131
Sua sugestão de retirar o .trim é para todo o codigo ou somente para a parte da data de emissão?

te add no msn.
ALTAIR148 07/06/2011 23:59:31
#376132
Eu aconselho retirar de tudo.

Tente retirar tudo para testar.
Página 4 de 6 [51 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar