Izdvajanje iz html koda

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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()"