Centar za edukaciju-BiH



#11 22.02.2012 12:44
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Usporedba stringa
Ovim mozes povecati ili smanjiti kriterij.
a broj slicnih je ovo:
Slicni(1 To 5) As
Stavio sam pet.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#12 22.02.2012 14:35
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Usporedba stringa
Već sam eksperimentirao sa time jer mi je kod nekih pretraga dolazilo do greÅ¡ke pa sam stavio
Slicni(1 To 30)
Do malo prije mi je sve radilo ali sada mi javlja grešku
ako u pretragu napišem 'miro'

'Subscript out of range'
i zaustavi se na liniji
Slicni(X) = Podatak(2)

a ako napišem 'miroslav' bude sve u redu
Pozdrav
↑  ↓

#13 22.02.2012 19:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Usporedba stringa
Kod mene prolazi i jedno i drugo i kad stavim Slicni(1 to 30)
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 22.02.2012 20:24
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Usporedba stringa
I kod mene nije problem kada radim na ovom primjeru koji sam poslao i koji ima malo zapisa.
Ali kada importiram moju originalnu tablicu sa oko 800 zapisa onda imam problem koji sam naveo.
U primjeru je kompletna tablica

Prilozi:
Informacije o tipu datoteke za:rar  Kupci.rar
Preuzimanja:349
Velicina datoteke:38.65 KB


Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 22.02.2012 20:29 od strane pmiroslav. ↑  ↓

#15 22.02.2012 20:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Usporedba stringa
Evo ovaj kod ce raditi.
Zeza me redim sto ne radi ko u pravom vb-u

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub txtUpit_BeforeUpdate(Cancel As Integer)
  2. Dim Rs As Recordset
  3. Dim Db As Database
  4. Dim Podatak(1 To 2) As String, Znak As String, MsgSlicni As String
  5. Dim I As Integer, Duz As Integer, Poeni As Integer, Stanje As Single
  6. Dim Poz As Integer, StartP As Integer
  7.  
  8. If IsNull(Me.txtUpit) Then GoTo Kraj
  9. Podatak(1) = Me.txtUpit
  10. Duz = Len(Podatak(1))
  11. Set Db = CurrentDb
  12.  
  13. Set Rs = Db.OpenRecordset("SELECT Firma FROM TblPartneri")
  14.  
  15. Do While Not Rs.EOF
  16. Podatak(2) = Rs.Fields(0)
  17.     For I = 1 To Duz
  18.     If I = 1 Then
  19.     StartP = 1
  20.     Else
  21.     StartP = I - 1
  22.     End If
  23.     Znak = Mid(Podatak(1), I, 1)
  24.     Poz = InStr(StartP, Podatak(2), Znak)
  25.     If Poz = I + 1 Or Poz = I Or Poz = I - 1 Then
  26.     Poeni = Poeni + 1
  27.     End If
  28.     Next I
  29.     Stanje = Poeni / Duz
  30.     Poeni = 0
  31.     Poz = InStr(1, Podatak(2), Podatak(1))
  32.     If Poz > 0 Then Stanje = 1
  33.     If Stanje > 0.7 Then
  34.     MsgSlicni = MsgSlicni & vbCr & Podatak(2)
  35.     End If
  36. Rs.MoveNext
  37. Loop
  38. Rs.Close
  39. If MsgSlicni <> "" Then
  40. MsgBox "Slicni su :" & vbCr & MsgSlicni
  41. End If
  42. Kraj:
  43. End Sub

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 24 am.