PEGANDO VALOR DE TAG

OCELOT 25/06/2013 11:38:23
#425183

Se você já sabe pegar valores mas não conseguiu pegar porque não tem nenhum id ou coisa do tipo no lugar onde está tentando pegar então eu diria para pegar de outro lugar.

Olhei rapidamente o html da página e vi que o valor que você quer está também em outro lugar, em uma tag input type=hidden que está muito fácil de pegar

PEGUDO 25/06/2013 12:06:48
#425189

Realmente, o que o OCELOT falou está correto.
Este input tem o atributo [Ô]name[Ô] que pode ser pego pelo getElementById.
Não havia reparado neste campo.

LANCECOM 26/06/2013 09:43:18
#425225

Faz assim.., é só adaptar a sua neces.

call striretorno(pathArq, [Ô]<dest[Ô], [Ô]/dest[Ô], [Ô]<xNome>[Ô], [Ô]</xNome>[Ô])
[ô]onde dest é a tag pai, xNome tag filho

Function striretorno(Arquivo As String, tagI As String, tagF As String, stI As String, stF As String)
Dim Iarq As Integer
Dim d As Double
Dim g As Double
Dim f As String
Dim slinha As String
Iarq = FreeFile


Open Arquivo For Input As Iarq
Do While Not EOF(Iarq)
Line Input #Iarq, linha
slinha = slinha & linha
Loop
Close #1
[ô]////captura e le linha de texto da TAG



tag1 = Val(InStr(slinha, tagI))
tag2 = Val(InStr(slinha, tagF))
If tag1 > 0 Then
slinha = Mid(slinha, tag1, tag2)
d = Val(InStr(slinha, stI))
g = Val(InStr(slinha, stF))
If d > 0 Then
f = Mid(slinha, (d + Val(Len(stI))), ((g - d) - Val(Len(stF))) + 1)
End If



striretorno = f

End Function