Centar za edukaciju-BiH



#61 31.08.2012 07:12
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
Ovo sam ja postavio dio te funkcije jer nije mogla čitava stat.
Miro
↑  ↓

#62 31.08.2012 07:15
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Å kole VB-a
Ma niÅ¡ta bolje ne radit to sa dekoderom.LakÅ¡e je rjeÅ¡enje naprvit onu proceduru da mjenja naziv samo joÅ¡ dodati za ostala naÅ¡a slova:Å Å¡,Đđ,Ćć,Žž
PreuzmiIzvorni kôd (Text):
  1.     Function Art(Naziv_Art As String) As String
  2.     Dim I As Integer
  3.     Dim DuzStr As Integer
  4.     Dim Temp As String
  5.     Dim Znak As String
  6.     Const Znak1 = "
  7.     "
  8.     Const Znak2 = ""
  9.      
  10.     DuzStr = Len(Naziv_Art)
  11.     Temp = Naziv_Art
  12.     For I = 1 To DuzStr
  13.     Znak = Mid(Naziv_Art, I, 1)
  14.     If Znak = Znak1 Or Znak = Znak2 Then
  15.     Temp = Left(Temp, I - 1) & "c" & Mid(Temp, I + 1)
  16.     End If
  17.     Next I
  18.     Art = Temp
  19.     End Function

Miro
↑  ↓

#63 31.08.2012 11:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Iz Å kole VB-a
Evo procedura i istestiraj malo.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Art1(Naziv_Art As String) As String
  2. Dim I As Integer
  3. Dim N As Integer
  4. Dim Temp As String
  5. Dim Znak1 As String
  6. Dim Znak2 As String
  7. Dim DuzStr As Integer
  8. Dim Poz As Integer
  9. Const Znaci1 = "
  10. ŽžŠš"
  11. Const Znaci2 = "CcCcDdZzSs"
  12.  
  13. Temp = Naziv_Art
  14. DuzStr = Len(Naziv_Art)
  15. For N = 1 To 10
  16. Znak1 = Mid(Znaci1, N, 1)
  17. Znak2 = Mid(Znaci2, N, 1)
  18. If Znak1 = "" Then
  19. Znak2 = Znak2 & "j"
  20. End If
  21.   For I = 1 To DuzStr
  22.     Poz = InStr(I, Naziv_Art, Znak1, vbBinaryCompare)
  23.     If Poz = I Then
  24.       If Len(Znak2) = 2 And I > 1 Then
  25.       I = I + 1
  26.       DuzStr = DuzStr + 1
  27.       End If
  28.     Temp = Left(Temp, I - 1) & Znak2 & Mid(Temp, I + 1)
  29.     End If
  30.   Next I
  31. Next N
  32. Art1 = Temp
  33. End Function

NAPOMENA:
Procedura bi trebala da ispravlja nasa slova č,ć,Å¡đ,ž u c,c,dj,z
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (7):1,2,3,4,5,6,7

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