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 1069 korisnika na forumu :: 40 registrovanih, 6 sakrivenih i 1023 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: 8u47, A.R.Chafee.Jr., Apok, bladesu, bufanje, DonRumataEstorski, draganl, Duh sa sekirom, Fabius, FileFinder, Frunze, goxin, GveX, Istman, kinez88, Kubovac, kybonacci, mackenzie, mean_machine, menges, milos.cbr, mkukoleca, naki011, Papadubi, Parker, pavlo, raptorsi, ruma, sevenino, Sirius, slonic_tonic, sombrero, Srle993, Steeeefan, styg, uruk, vlada035, YU-UKI, zdrebac, zillbg