SELECIONAR TEXTO DENTRO DE TAGS HTML

 Tópico anterior Próximo tópico Novo tópico

SELECIONAR TEXTO DENTRO DE TAGS HTML

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#489253 - 24/06/2019 12:38:32

GNCNET
ITABERABA
Cadast. em:Maio/2009


Preciso selecionar um texto dentro de tags HTML, mas as opes que testei esto dando erro.
Quando executo o cdigo ocorre run-time error 13

Segue o cdigo:


Dim inicio As Long
Dim fim As Long
Dim meutexto As Long

Txt_nosite.Text = Replace(Txt_nosite.Text, [][][][], []Chr(34)[])

inicio = InStr(Txt_nosite.Text, []<p class=Chr(34)p-author timeChr(34)>22/06/2019 08h16 </p>[])
fim = InStr(Txt_nosite.Text, []<p class=Chr(34)thumb-description Chr(34)>[])
meutexto = Mid(Txt_nosite.Text, inicio, fim - inicio)
Txt_nosite.Text = meutexto


[]E O TEXTO
[]Txt_nosite.Text

<p>Clique para salvar o link</p>
<p>Clique para salvar o link</p>
<p ia-author=[][] class=[]p-author[]>Eduardo Milito</p>
<p ia-author=[][] class=[]p-author-local[]>Do UOL, em Braslia</p>
<p ia-date=[][] class=[]hide[]>2019-06-22T08:16:16</p>
<p ia-update=[][] class=[]hide[]></p>
<p class=[]p-author time[]>22/06/2019 08h16 </p>
<p>O salrio do professor brasileiro da rede pblica []horrvel[], define umas das maiores especialistas em educao no pas. [] muito importante o salrio, e ele horrvel[], diz a pesquisadora Maria Ins Fini, em entrevista ao <strong>UOL</strong>. Ela ex-presidente do Inep (Instituto Nacional de Pesquisas Educacionais Ansio Teixeira), que organiza o Enem (Exame Nacional do Ensino Mdio).</p>
<p>Maria Ins comentou o atual piso salarial do professor, de R$ 2.557 por ms, e levantamento da OCDE (Organizao para Cooperao e Desenvolvimento Econmica) divulgado na tera-feira (19) que mostra os rendimentos do magistrio no Brasil nas ltimas posies entre os pases pesquisados (veja abaixo). A pesquisa Talis da OCDE, da qual Maria Ins participou, analisa as condies de ensino e do magistrio no mundo.</p>
<p>[]Os pases devem fazer o magistrio mais atrativo financeira e intelectualmente[], destaca comunicado da pesquisa. O objetivo deve ser atender []crescente demanda mundial por professores de alta qualidade[]. []Atrair os melhores e mais brilhantes para a profisso ser essencial para garantir que os jovens recebero as habilidades que necessitaro para serem bem-sucedidos no mundo do trabalho do amanh[], defende a organizao que concluiu o levantamento em 2018 e o divulgou nesta semana.</p>
<p>Segundo Maria Ins Fini, alm do salrio, h outros dois problemas bsicos na educao brasileira: as condies de trabalho e a formao dos professores.</p>
<p><cite>So jornadas muito pesadas de trabalho, as condies de trabalho so pssimas. </cite><br><strong>Maria Ins Fini, ex-presidente do Inep</strong></p>
<p>[]O professor em So Paulo tem trs empregos para ter um salrio digno. Ele no pode se dedicar a uma nica escola, ao mesmo grupo de alunos, convive menos com a famlia. Com isso, o rendimento dele vai caindo.[]</p>
<p>Maria Ins foi uma das fundadoras da Faculdade de Educao da Unicamp (Universidade Estadual de Campinas). Ela entende que a formao de professores tem que ser mais pragmtica e menos terica. Do contrrio, ela diz que se acabam formando []ministros da Educao[] em vez de professores.</p>
<p>[]A formao inicial dos professores absurda. A gente vivia formando 60 ministros da Educao por ano, e nenhum professor, porque nunca ensina para o professor o que ele tem que ensinar para ao aluno[], critica. [] uma grande discusso terica, grande teoria revolucionria, mas muito pouco instrumental.[]</p>
<p><figure class=[]photo photo-embed no-gutter col-sm-12 col-md-13 col-lg-11  crop-450x600 limit-crop  figure[] style=[]max-width:450px[] data-format=[]vertical[]>    <div class=[]image bg[]><div class=[]placeholder[] style=[]max-width:450px[]>   <img src=[]https://conteudo.imguol.com.br/c/noticias/57/2019/01/09/escola-rede-publica-sala-aula-aluno-alunos-estudante-estudantes-carteira-carteiras-estudo-educacao-professor-professores-ensino-lousa-giz-materia-disciplina-enem-prova-vestibular-1547070644145_v2_450x600.jpgx[] data-src=[]https://conteudo.imguol.com.br/c/noticias/57/2019/01/09/escola-rede-publica-sala-aula-aluno-alunos-estudante-estudantes-carteira-carteiras-estudo-educacao-professor-professores-ensino-lousa-giz-materia-disciplina-enem-prova-vestibular-1547070644145_v2_450x600.jpg[] class=[]pinit-img[] alt=[]Alex Almeida/Folhapress[] data-crop=[]{"xs":"300x400","lg":"450x600"}[] width=[]450[] height=[]600[]>  <i class=[]placeholder-mask[] style=[]padding-bottom: 133.33333333333331%[]></i><div class=[]slot-a[]></div></div></div>   <figcaption class=[]container bottom-credit[]><span>Imagem: Alex Almeida/Folhapress</span></figcaption>   </figure></p>
<p>A assessoria da OCDE enviou ao <strong>UOL </strong>um documento complementar pesquisa que exibe uma relao de salrios com 48 pases estudados pela organizao. Os valores dos rendimentos so analisados conforme o nvel de ensino --da educao infantil ao ensino mdio-- e a experincia do profissional.</p>
<p>No ensino infantil, o Brasil est na 30 posio entre 33 pases em que a organizao conseguiu coletar informaes sobre salrios do magistrio. Nos ensinos fundamental e mdio, os brasileiros ocupam a ltima posio entre os 40 pases em que h dados salariais.</p>
<p><em>Valores do ensino mdio*, em US$ por </em><em>ano</em>**<br><br><strong>Pas --- </strong><strong>Salrio inicial --- Salrio no topo da carreira</strong><br>1. Luxemburgo --- US$ 79.551 --- US$ 138.279<br>2. Sua --- US$ 71.249 --- US$ 109.240<br>3. Alemanha --- US$ 63.866 --- US$ 92.386<br><strong>Mdia da OCDE --- US$ 34.943 --- US$ 59.639<br>Mdia da Europa --- US$ 33.871 --- US$ 58.736</strong><br>40. Brasil --- US$ 13.971*** --- sem informao</p>
<p><em>*No Brasil, os salrios dos ensinos infantil, fundamental e mdio so os mesmos.</em><br><em>**</em><em>A</em><em> OCDE fez a converso em dlar considerando o poder de compra de cada pas.<br>***O atual piso nacional do magistrio no Brasil de R$ 2.557 por ms. </em></p>
<p><em>Fontes: OCDE e Ministrio da Educao. Elaborao: <strong>UOL</strong></em></p>
<p>O levantamento da OCDE aponta que, h dois anos, professores de escolas pblicas do pas ganhavam, em mdia, US$ 13,9 mil por ano --a organizao considerou o poder de compra de cada pas no estudo. De acordo com o Inep, o valor foi obtido pela OCDE a partir do envio pelo instituto do valor do piso nacional da educao em vigor em 2017 (R$ 2.298,80). O Inep pondera, contudo, que o valor apurado pela OCDE em 2017 maior do que o atual em razo de variaes cambiais.</p>
<p>Os nmeros da OCDE indicariam que os rendimentos do magistrio no Brasil no crescem ao longo da carreira, como ocorre em outros pases. Mas a assessoria do Inep diz que no h informaes consolidadas e centralizadas sobre quanto os profissionais recebem nos diversos estados e prefeituras medida que ganham experincia. O prprio levantamento da OCDE aponta disparidades regionais de remunerao no pas.</p>
<p>Ainda assim, os resultados obtidos no Brasil mostram que o Brasil est bem atrs dos pases pesquisados. Neles, a mdia salarial dos professores iniciantes duas vezes e meia maior. Nos pases da OCDE, o rendimento mdio inicial dos professores foi de mais de US$ 30 mil por ano para a educao infantil. Para os do ensino mdio, quase US$ 35 mil anuais em relao aos profissionais iniciantes.</p>
<p>Luxemburgo, pequeno pas da Europa, lidera a lista de melhores salrios. Um professor iniciante da educao infantil recebe US$ 70 mil por ano, o equivalente a R$ 20.788 por ms, considerando-se a cotao do dlar de hoje.</p>
<p>Com 15 anos de carreira, um docente dos primeiros anos do ensino fundamental ganha US$ 109 mil anuais, ou R$ 32.498 por ms.</p>
<p>No ensino mdio ou nas sries finais do ensino fundamental, um professor iniciante em Luxemburgo recebe mais de US$ 79 mil por ano, o equivalente a R$ 23 mil por ms. Se estiver com alta experincia e qualificao, ou seja, no topo da carreira, receber US$ 138 mil por ano, ou R$ 40 mil por ms.</p>
<p>Clique para salvar o link</p>
<p class=[]thumb-description []>O IFSP encerra o perodo de inscries para o Vestibular 2019/2 neste domingo, 23 de junho. Esto sendo oferecidas </p>
<p class=[]thumb-description []>Mateus de Lima Costa Ribeiro tem 19 anos e est a poucos dias de bater um recorde: tornar-se o aluno mais jovem a...</p>
<p class=[]thumb-description []>As provas do Vestibular de Inverno 2019 da UCDB sero aplicadas no domingo, 23 de junho, a partir das 8h, em Campo </p>
<p class=[]thumb-description []>O Conselho Federal da OAB (Ordem dos Advogados do Brasil) entrou com uma ao no STF (Supremo Tribunal Federal)...</p>
<p class=[]thumb-description []>Uma professora do municpio de Mogi Mirim, no interior de So Paulo, teve reconhecido o direito incorporao de...</p>
<p class=[]thumb-description []>A ESPM vai divulgar o resultado do Vestibular 2019/2 para Porto Alegre, Rio de Janeiro e So Paulo nesta...</p>
<p class=[]thumb-description []>Voc sabia que a escassez de noradrenalina no organismo pode estar relacionada com a depresso? Leia nosso texto...</p>
<p class=[]thumb-description []>A UESC divulgou nesta quarta-feira, 19 de junho, os locais de prova do vestibular 2019 para cursos a distncia....</p>
<p class=[]thumb-description []>A UEPA divulgou hoje (19) o resultado do Prosel 2019/2 via Enem. A seleo ofereceu vagas para Marab e Redeno.</p>
<p class=[]thumb-description []>O Instituto Federal de Pernambuco (IFPE) liberou o acesso ao carto de inscrio do Vestibular 2019/2. O documento </p>
<p class=[]thumb-description []>A Associao Catarinense das Fundaes Educacionais (Acafe) publicou o resultado do Vestibular de Inverno 2019....</p>
<p class=[]thumb-description []>Foram liberadas as notas das provas objetivas do Vestibular 2019/2 do Cederj. As notas da redao sero publicadas </p>
<p class=[]thumb-description []>O Vestibular 2019/2 da Unitins para Palmas ser aplicado no domingo (23). So esperados mais de 930 candidatos nos </p>
<p class=[]thumb-description []>Os locais de prova e concorrncia do Vestibular 2019/2 da UFSC esto disponveis</p>







Resposta escolhida #489257 - 24/06/2019 14:34:45

JABA
CABO FRIO
Cadast. em:Agosto/2005


Última edição em 24/06/2019 14:35:43 por JABA

Acredito que um dos textos que voc est buscando no est sendo encontrado, deve estar retornando Null, assim as variveis []inicio[] ou []fim[] podem estar gerando erro por atribuio de valores incompatveis. Exiba uma mensagem para ambos para conferir o que esto retornando.  Se no for isso, fique atento tambm como esses valores esto chegando ao comando Mid, veja se faz sentido como ela est sendo executada.


_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



#489260 - 24/06/2019 14:44:39

GNCNET
ITABERABA
Cadast. em:Maio/2009


Citação:
:
Acredito que um dos textos que voc est buscando no est sendo encontrado, deve estar retornando Null, assim as variveis []inicio[] ou []fim[] podem estar gerando erro por atribuio de valores incompatveis. Exiba uma mensagem para ambos para conferir o que esto retornando.  Se no for isso, fique atento tambm como esses valores esto chegando ao comando Mid, veja se faz sentido como ela est sendo executada.

Se no encontrar deveria retornar vazio...




#489261 - 24/06/2019 14:52:31

JABA
CABO FRIO
Cadast. em:Agosto/2005


Citação:
:
:
Acredito que um dos textos que voc est buscando no est sendo encontrado, deve estar retornando Null, assim as variveis []inicio[] ou []fim[] podem estar gerando erro por atribuio de valores incompatveis. Exiba uma mensagem para ambos para conferir o que esto retornando.  Se no for isso, fique atento tambm como esses valores esto chegando ao comando Mid, veja se faz sentido como ela est sendo executada.

Se no encontrar deveria retornar vazio...


Sim, disso que eu estou falando! Essa deve ser a causa do erro. Pode-se estar gerando um Null, e no um zero.

_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



#489272 - 25/06/2019 07:09:57

CARLINHOS_SONEG
GUARIBA
Cadast. em:Maio/2004


Acho que voc cometeu um equivoco aqui:

Txt_nosite.Text = Replace(Txt_nosite.Text, [][][][], []Chr(34)[])

o certo seria:
Txt_nosite.Text = Replace(Txt_nosite.Text, [][][][], Chr(34))

If Sei = True then
Repondo
else
nao_respondo
end if

Mas pelo menos no atrapalho!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



#489275 - 25/06/2019 14:24:34

WCOSTA
VASSOURAS
Cadast. em:Dezembro/2003


Membro da equipe
De repente passar o valor de todo o texto atravs de um obeto DOM como texto plano, ou seja, uma converso do um InnetHtml para  InnerText

AntSoft Systems On Demand



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por GNCNET em 15/11/2019 10:18:04