Jump to content


Photo

Ler Html No Textbox


  • Faça o login para participar
12 replies to this topic

#1 cabeca_441

cabeca_441

    Blues Man...

  • Usuários
  • 650 posts
  • Sexo:Masculino
  • Localidade:São Caetano do SulSP

Posted 23/07/2010, 15:27

e ae galera, depois de um tempo fora do pais eu voltei ! =)
volteii e voltei com um problema...

to com um sistema aqui em vb que esta importando uns dados de um banco online...
um desses campos, contem dados com formatação HTML.

estou pegando esse campo e jogando em um textbox. so que aparece a seguinte informaçao
<FONT color=#6a6a6a size=1 face=Tahoma>&nbsp;12 meses balcão.</FONT>

e teria que aparecer apenas " 12meses balcão", nao precisa de formatação nem nada.. so queria eliminar todo o resto...
alguem sabe uma maneira de fazer isso??

valeuu !
  • HaroNism likes this
__________Gov't Mule

#2 LeoB

LeoB

    Super Veterano

  • Usuários
  • 1876 posts
  • Sexo:Masculino
  • Interesses:Programação

Posted 23/07/2010, 16:29

É VB 6 ou VB.Net?

#3 cabeca_441

cabeca_441

    Blues Man...

  • Usuários
  • 650 posts
  • Sexo:Masculino
  • Localidade:São Caetano do SulSP

Posted 23/07/2010, 16:40

vb6
__________Gov't Mule

#4 LeoB

LeoB

    Super Veterano

  • Usuários
  • 1876 posts
  • Sexo:Masculino
  • Interesses:Programação

Posted 23/07/2010, 16:58

Acho que usar expressões regulares aí é uma boa, pra remover tudo entre < >. Faz tempo que não mexo com VB 6, mas, de acordo com

http://support.micro...kb;en-us;818802

Você adiciona uma referência para "Microsoft VBScript Regular Expressions 5.5". Depois o código seria alguma coisa como:

Dim oRegExp As RegExp

Set oRegExp = New RegExp

oRegExp.Pattern = "<[^>]*>"
oRegExp.Global = True

Textbox1.Text = Trim(oRegExp.Replace(TextoDoBanco, ""))

Set oRegExp = Nothing


#5 cabeca_441

cabeca_441

    Blues Man...

  • Usuários
  • 650 posts
  • Sexo:Masculino
  • Localidade:São Caetano do SulSP

Posted 26/07/2010, 09:35

entao eu pensei nisso... mas terá muitas regras....

vcs sabem se existe alguma biblioteca que ja faz isso ou terei que criar na mão?!
__________Gov't Mule

#6 LeoB

LeoB

    Super Veterano

  • Usuários
  • 1876 posts
  • Sexo:Masculino
  • Interesses:Programação

Posted 26/07/2010, 12:43

Como muitas regras? Se é pra remover o HTML, remover tudo entre < > já é o suficiente, não?

#7 cabeca_441

cabeca_441

    Blues Man...

  • Usuários
  • 650 posts
  • Sexo:Masculino
  • Localidade:São Caetano do SulSP

Posted 26/07/2010, 12:50

humm verdade.. agora que me toqueii !!

valeu pela dica !!

abraços !!
__________Gov't Mule

#8 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 16/09/2017, 03:16

Cialis On Line Spedizione Italia cialis Article9
Pharmacy Express Canada
Viagra Test <a href=http://cialtobuy.com>cialis</a> Cialis Discount Pharmacy
Cheap Levitra For Sale cialis Candian Pharmacy Lasix Pills
Cheap Ciealis Modalita Uso Cialis Safe Site To Buy Cialis
Propecia Ancianos <a href=http://cialtobuy.com>cialis</a> Priligy Rezeptfrei Paypal

#9 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 04/10/2017, 09:32

Viagra Cost Walmart viagra Amoxicillin With Potassium Clavulanate
Cialis Efectos Secundarios Alcohol Universal Propecia levitra 40 mga for sale mexico beach Cialis Ficha Tecnica Cialis Acidita Di Stomaco
Can You Take Aspirin With Cephalexin viagra Ciprofloxacin Conservation Cheap Nexium Online No Prescription
Best Price Cialis Pay For Cialis With Paypal Dutasteride Medicine On Line viagra online Amoxicillin And Clavulanate Potassium Infants On Sale Worldwide Elocon With Next Day Delivery Artane
Is Healthy Man Legitimate Buy Lasix Usa Forgot To Refrigerate Amoxicillin viagra Cialis 20 Mg Effets Secondaires Purchasing Generic Propecia

#10 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 11/10/2017, 06:59

Levitra Vida Media Zentel No Physician Approval Deltasone Dosage viagra online prescription Viagra Rezeptfrei
Viagra Bouffees De Chaleur viagra Augmentin Amoxil Cephalexin Gingavitis
Levitra Mas Alcohol Cheapest Generic Propecia viagra online Buy Propecia In Mexico Cialis 20 Controindicazioni Clobetasol Visa From Canada Next Day

#11 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 28/10/2017, 11:04

Viagra En Malaga Cialis 5mg Achat cialis Cialis Requiere Receta Medica Secure Generic Elocon 0.1% In Germany Images Of Generic Amoxil Tablets
Saturn Cialis Levitra viagra Amoxicillin Side Effects Children Tamsulosin No Prescription Adalat

#12 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 15385 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 13/11/2017, 12:21

Wholesale Viagra China viagra Kamagra Gold 100mg Prix Levitra Casablanca
Stendra Discount Direct Pharmacy How Much Is Viagra With A Prescription Cialis Pharmacie Place Monge online pharmacy Keflex With Dogs

#13 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 13201 posts

Posted 16/11/2017, 15:36

buy accutane online legit viagra Viagra Wirkung Lasst Nach Viagra Generika Gunstig Bestellen
Trovare Kamagra Francia cialis price Real Secure Ordering Hydrochlorothiazide Website Next Day Delivery Lasix Hungary Viagra 100 Teilen




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq