miro35 |
31.08.2012 08:12 |
Predmet:Re: Iz Å kole VB-a
Ovo sam ja postavio dio te funkcije jer nije mogla čitava stat. |
miro35 |
31.08.2012 08:15 |
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): Function Art(Naziv_Art As String) As String
Dim I As Integer
Dim DuzStr As Integer
Dim Temp As String
Dim Znak As String
Const Znak1 = "
"
Const Znak2 = ""
DuzStr = Len(Naziv_Art)
Temp = Naziv_Art
For I = 1 To DuzStr
Znak = Mid(Naziv_Art, I, 1)
If Znak = Znak1 Or Znak = Znak2 Then
Temp = Left(Temp, I - 1) & "c" & Mid(Temp, I + 1)
End If
Next I
Art = Temp
End Function
|
zxz |
31.08.2012 12:09 |
Predmet:Re: Iz Å kole VB-a
Evo procedura i istestiraj malo.
PreuzmiIzvorni kôd (Visual Basic):Function Art1(Naziv_Art As String) As String
Dim I As Integer
Dim N As Integer
Dim Temp As String
Dim Znak1 As String
Dim Znak2 As String
Dim DuzStr As Integer
Dim Poz As Integer
Const Znaci1 = "
ŽžŠš"
Const Znaci2 = "CcCcDdZzSs"
Temp = Naziv_Art
DuzStr = Len(Naziv_Art)
For N = 1 To 10
Znak1 = Mid(Znaci1, N, 1)
Znak2 = Mid(Znaci2, N, 1)
If Znak1 = "" Then
Znak2 = Znak2 & "j"
End If
For I = 1 To DuzStr
Poz = InStr(I, Naziv_Art, Znak1, vbBinaryCompare)
If Poz = I Then
If Len(Znak2) = 2 And I > 1 Then
I = I + 1
DuzStr = DuzStr + 1
End If
Temp = Left(Temp, I - 1) & Znak2 & Mid(Temp, I + 1)
End If
Next I
Next N
Art1 = Temp
End Function
NAPOMENA:
Procedura bi trebala da ispravlja nasa slova č,ć,Å¡đ,ž u c,c,dj,z |