MyCity » Visual Studio -> Visual Basic » Izdvajanje iz html koda

Izdvajanje iz html koda

Napisano na dan: 6.5.2005
2

Izdvajanje iz html koda
Pagination Prethodna strana

Idi na vrh

Poslao: 09 Maj 2005 22:40
Idi na vrh
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.
Poslao: 09 Maj 2005 22:52
Idi na vrh
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?



Poslao: 10 Maj 2005 17:43
Idi na vrh
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.

Poslao: 10 Maj 2005 21:23
Idi na vrh
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()"

MyCity » Visual Studio -> Visual Basic » Izdvajanje iz html koda

Ko je trenutno na forumu
 

Ukupno su 872 korisnika na forumu :: 36 registrovanih, 7 sakrivenih i 829 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: Alexandar-1973, anta, babaroga, bojcistv, darkangel, dekan.m, DonRumataEstorski, Duh sa sekirom, FOX, GenZee, Georgius, goxin, Griffon vulture, Joja, Krvava Devetka, Mcdado, MiroslavD, Mixelotti, nebkv, NoOneEver Dreams, ostoja, pein, Petarvu, procesor, rodoljub, sevenino, sokojet, Srle993, Stanlio, theNedjeljko, vathra, vlad the impaler, wizzardone, zeo, 1107, 79693