Izdvajanje iz html koda

2

Izdvajanje iz html koda

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Ja sam pokusao sa ovim i radi, ali kada ima mnogo html koda onda zablokira.


Moze li se to popraviti?
Dim a As String, b As String Private Sub cmd1_Click() b = 1 For i = b To Len(txt1.Text) a = 1  If Mid(txt1.Text, i, 8) = "<a href=" Or Mid(txt1.Text, i, 8) = "<A HREF=" Then   For e = i To Len(txt1.Text)       If Mid(txt1.Text, e, 1) = ">" Then If a = 1 Then    lst1.AddItem Mid(txt1.Text, i + 9, e - i - 10)    a = 0 End If   End If b = e   Next e End If Next i End Sub





P.S. Hvala na codeu. Ali radim u VB6 pa kada promenim neke stavke...



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 18 Apr 2003
  • Poruke: 5001
  • Gde živiš: Beograd

Mozda ti samo izgleda da zablokira a ustvari mu samo treba vremena da osvezi grafiku... jesi probao da sacekas malo duze?



offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Pa cekao sam jedno 2-4 minuta i procesor je bio na 100% celo vreme. A i pise Not Responding.

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 5001
  • Gde živiš: Beograd

pa da, tako to izgleda kada se grafika ne osvezava, evo ubaci DoEvents() negde u petlju npr. na samom kraju petlje bi ja to ubacio
         Else             nasao = False          End If          DoEvents() ' ovo ubaci u petlju       End While    End Sub

NOTE: za VB.NET treba staviti "System.Windows.Forms.Application.DoEvents()"

Ko je trenutno na forumu
 

Ukupno su 562 korisnika na forumu :: 3 registrovanih, 2 sakrivenih i 557 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: cikadeda, dane007, havoc995