Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
12 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 12 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
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

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: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

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

Os nossos membros postaram um total de 31 mensagens em 17 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
avatar
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
avatar
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.
avatar
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