Re: ubacivanje razmaka
ali:
Code:
Private Sub Command1_Click()
test = fncInsertStr("Ovo string", "je ", 4)
Me.Caption = test
End Sub
Public Function fncInsertStr(ByVal str1 As String, ByVal str2 As String, ByVal int1 As Integer)
Dim Deo1 As String
Dim Deo2 As String
Deo1 = Left$(str1, int1)
Deo2 = Mid$(str1, int1+1, Len(str1))
fncInsertStr = Deo1 & str2 & Deo2
End Function
Private Sub Command1_Click()
test = fncInsertStr("Ovo string", "je ", 4)
Me.Caption = test
End Sub
Public Function fncInsertStr(ByVal str1 As String, ByVal str2 As String, ByVal int1 As Integer)
Dim Deo1 As String
Dim Deo2 As String
Deo1 = Left$(str1, int1)
Deo2 = Mid$(str1, int1+1, Len(str1))
fncInsertStr = Deo1 & str2 & Deo2
End Function
Ovim kodom ne pokusavam nista da dokazem, samo vi izgleda niste shvatili na sta sam ja od pocetka ciljao.
Kazem samo da bi mozda za ljude koji tek pocinju da uce VB ili bilo koji drugi prog. jezik mozda bolje bilo da neke ovako jednostavnije probleme resavaju sami, pre nego sto potegnu za nekom bibliotekom. Jer ako ikad budu migrirali na drugi OS i tamo te biblioteke nema onda ce im se DLL obiti o glavu.
Pozdrav svima.
[Ovu poruku je menjao stefanpn dana 17.02.2008. u 00:57 GMT+1]
