pronalazenje stringa u text fajlu

pronalazenje stringa u text fajlu

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

zamislite sledecu situaciju. u neku promenljivu ste ubacili neki text (binarny npr. exe fajl) ali taj fajl moze da bude i poveci. ono sto mene interesuje kako mogu unutar tog fajla da nadjem koliko puta se neki string npr. <begin> pojavljuje na nacin da kada se pokrene da momentalno izracuna +- koja sekunda... znaci treba mi sto brze moze...

nadam se da sam bio dovoljno jasan...



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Peca  Male
  • Glavni Administrator
  • Predrag Damnjanović
  • SysAdmin i programer
  • Pridružio: 17 Apr 2003
  • Poruke: 23211
  • Gde živiš: Niš

to bi ja znao u C-u da ti odradim, da leti...
ali VB... pa mozda ima gotova funkcija, recimo count() ?



offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

bas zbog toga i pitam da se ne mucim ako postoji f-ja...

offline
  • Peca  Male
  • Glavni Administrator
  • Predrag Damnjanović
  • SysAdmin i programer
  • Pridružio: 17 Apr 2003
  • Poruke: 23211
  • Gde živiš: Niš

pa procesljah help majku mu - string functions sekcija

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

nemam instaliran MSDN (nemam mesta), a i ne znam kako bih mogao da opisem tu funkciju pretrazivacu... mada probacu na Google pa cemo videti...

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

ja cu da trazim u MSDN-u ti samo reci sta oces da trazis, koje reci Smile

pa ionako moras celi fajl da procitas sto sam ne uradis funkciju

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

ne procitao sam ceo fajl i ceo fajl se nalazi u promenljivoj i iz promenljive ja to moram da uradim...

offline
  • Pridružio: 25 Feb 2004
  • Poruke: 35
  • Gde živiš: BiH-RS

Probaj ovako:

Private Sub Command1_Click()
Dim A As Long
Dim B As Integer
Dim C As Integer
Dim D As String
Dim E As String

D = "ana voli milovana, milovana voli ana" 'Tekst koji se pretrazuje
E = "ana" 'Rijec koju zelis da izbrojis koliko se puta ponavlja
B = Len(E)

For A = 0 To Len(D)
C = InStr(D, E)
If C = 0 Then
Exit For
End If
Mid(D, C, B) = " "
Next A
Text1.Text = A

End Sub

Ovaj kod ce izbrojati koliko puta se string "ana" ponavlja u datoj
recenici. Namijerno sam ti naveo ovaj primjer da vidis da ce u ovom
slucaju brojati i string "ana" koji se nalazi u stringu "milovana"
znaci da se ponavlja 4 puta.
Valjda ces uspjeti ovo primijeniti na svoj primjer.
_________________________________
Sove

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

hvala Sove probacu pa cu javiti... mada je u mom slucaju poveci string, ali nema veze... samo da mu ne treba ko zna koliko vremema Wink

Ko je trenutno na forumu
 

Ukupno su 1007 korisnika na forumu :: 49 registrovanih, 11 sakrivenih i 947 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: A.R.Chafee.Jr., airsuba, bojank, Brana01, cemix, CrazyDiablo, damirZR, Dannyboy, Darko8, Denaya, Dežurni pod palubom, Djokkinen, Dorcolac, DPera, draganl, dule10savic, Georgius, Hans Gajger, ivica976, kikisp, Koja79, Krusarac, kunktator, mercedesamg, milenko crazy north, milimoj, Millennium, mkukoleca, MrNo, nextyamb, ObicanUser, operniki, ostoja, Panter, predragc, Prometeus, raketaš, raykan, Ripanjac, Saratoga, sasa87, srbijaiznadsvega, styg, vathra, virked, Vlad000, Volkhov-M, Wrangler, yrraf