Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
9 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 9 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Estatísticas
Temos 6989 usuários registrados
O último usuário registrado atende pelo nome de rodiney

Os nossos membros postaram um total de 4 mensagens em 2 assuntos

PROBLEMAS COM CARACTERES ASCII

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

PROBLEMAS COM CARACTERES ASCII

Mensagem por AJC em 8/3/2015, 13:25

Pessoal, bom dia
Através estou testando uma função de extração de dados de uma webpage, só que o mesmo está vindo com caracteres ascii e por exemplo o campo endereço fica com espaço entre endereço e o número que não consigo tirar.
Tem alguma maneira de buscar estes dados sem estes caracteres ou como tirá-los
tentei usar comandos ascii e fazer substituição chrtran, mas não funcionou.
Se alguem puder ajudar a resolver, fico grat
Segue exemplo abaixo:

CREATE CURSOR myWebPage (content m)
url="http://www.nfe.fazenda.gov.br/portal/consultaCompleta.aspx?tipoConteudo=XbSeqxE8pl8="
objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open("GET", url,.f.)
objHTTP.Send()
Insert into myWebPage (content) VALUES (objHTTP.ResponseText)
MODIFY MEMO myWebPage.content
SELECT mywebpage

SCAN
aa = removetaghtml(content)
?aa
ENDSCAN
GO top

cNfe = STREXTRACT(mywebpage.content,'<td><label>Número</label><span>','</span></td>')
cserie = STREXTRACT(mywebpage.content,'<td><label>Série</label><span>','</span></td>')
cNfechave= STREXTRACT(mywebpage.content,'<td><label>Chave de Acesso</label><span>','</span></td>')


*MESSAGEBOX(cnfe+CHR(13)+cserie+CHR(13)+cnfechave)

CREATE CURSOR novonfe (registro c(254))


cemissorNfe = STREXTRACT(mywebpage.content,'<div id="Emitente','</div>')
eminfe = STREXTRACT(cemissorNfe,'<td><label>Nome / Razão Social</label><span>','</span></td>')
endnfe = STREXTRACT(cemissorNfe,'<label>Endereço</label><span>','</span></td>')
cidnfe = STREXTRACT(cemissorNfe,'<td><label>Município</label><span>','</span></td>')
bainfe = STREXTRACT(cemissorNfe,'<td><label>Bairro / Distrito</label><span>','</span></td>')
ufnfe = STREXTRACT(cemissorNfe,'<td><label>UF</label><span>','</span></td>')
cepnfe = STREXTRACT(cemissorNfe,'<td><label>CEP</label><span>','</span></td>')
ibgenfe = STREXTRACT(cemissorNfe,'<td><label>Município</label><span>','-')
cnpjnfe = STREXTRACT(cemissorNfe,'<td><label>CNPJ</label><span>','</span></td>')
inscnfe = STREXTRACT(cemissorNfe,'<td><label>Inscrição Estadual</label><span>','</span></td>')
telefo = STREXTRACT(cemissorNfe,'<td><label>Telefone</label><span>','</span></td>')

INSERT INTO novonfe (registro) VALUES (endnfe)
browse


********************************************************************************

FUNCTION removetaghtml AS STRING
LPARAMETERS conteudo AS STRING, separador as String

LOCAL objregexp AS OBJECT
LOCAL resultado AS STRING

*!* Instancia o objeto responsável por manipular a expressão regular
m.objregexp = NEWOBJECT("VBScript.RegExp")

*!* Define a expressão regular
m.objregexp.PATTERN = "<[^>]*>&"

m.objregexp.ignorecase = .T. && Ignora "case sensitivity"
m.objregexp.GLOBAL = .T. && && Procura por todas as ocorrências

*!* Remove as tags HTML, com base na expressão regular
m.resultado = m.objregexp.REPLACE(;
IIF(VARTYPE(m.conteudo)=="C",m.conteudo,""),IIF(VARTYPE(m.separador)=="C",m.separador," "))

*!* Destrói o objeto
m.objregexp = null

RETURN m.resultado

ENDFUNC

AJC
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Re: PROBLEMAS COM CARACTERES ASCII

Mensagem por Marcos Guedes em 18/9/2015, 17:00

AJC, você conseguiu resolver o problema?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Re: PROBLEMAS COM CARACTERES ASCII

Mensagem por AJC em 19/9/2015, 10:48

Marcos este resolvido esta semana.
obrigado

AJC
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Re: PROBLEMAS COM CARACTERES ASCII

Mensagem por lardecristo em 21/9/2015, 11:29

AJC, legal que você resolveu, por favor, você poderia colocar a solução para todos saberem... Valeu pela atenção.. Lembre-se a essência do fórum é distribuir conhecimento.

Ajudamos para sermos ajudados.

lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum