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 4907 korisnika na forumu :: 71 registrovanih, 9 sakrivenih i 4827 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 33 bren, 8u47, A.R.Chafee.Jr., Ailton, Asparagus, awathorn, BB, Belac91, Besudna, Bgorando, bigbear, blue, bojcistv, borya90, Centauro, Cirkon, Crazzer, dankisha, dejno, Dimitrise93, djuradj, DonRumataEstorski, dskrlec33, Dzoni2412, eagle.rs, Feller, g_g, goxin, gripen, h8propaganda, havoc995, icemilos, ivan979, Jaz, Kajzer Soze, klepesina, Kolimator, ladro, lafa008, Laluvr, Lošmi, MarijaC84, Metanoja, milenko crazy north, Milometer, mist-mist, Moldovan, munem, Nikoletina Bursac, nnovakis, Oscar, Paklenica, Podljub, Polifon, raster12, royst33, rr559, Semprini, Sharpshooter, Sky diver 29, sosko, Srky Boy, tomo2, tubular, Tumansky, Veless, Weah88, xAlex2, zombicar153, zoran77, Žoržo