VB funkcija potrebna u JavaScriptu...Znači imam neki string od jednog reda.
U tom stringu postoji levi i desni deo, logički.
Dva dela razdvojena su nekim karakterom.
Ako je desni deo, to jest, ostatak stringa posle tog karaktera manji od ... neke vrednosti... onda izmeni desni deo. Ako nije manji, ne diraj ništa i vrati nazad netaknuto.
E sad, to bi u VB-u izgledalo ovako:
Code:
Private Sub Command1_Click()
MsgBox DajString("levo od karaktera koji se trazi > ovde je neki spam", ">", 20)
End Sub
Private Function DajString(ByVal sUlaz As String, ByVal sCharInUlaz As String, ByVal iMinLengthRightFromChar As Integer) As String
Dim iPosOfCharInUlaz As Integer
Dim iLengthRightFromChar As Integer
sUlaz = Trim(sUlaz)
iPosOfCharInUlaz = InStr(1, sUlaz, sCharInUlaz)
iLengthRightFromChar = Len(Mid$(sUlaz, iPosOfCharInUlaz + 1))
If iLengthRightFromChar < iMinLengthRightFromChar Then
DajString = Mid$(sUlaz, 1, iPosOfCharInUlaz) & "NEKA KONSTANTA"
Else
DajString = sUlaz
End If
End Function
Private Sub Command1_Click()
MsgBox DajString("levo od karaktera koji se trazi > ovde je neki spam", ">", 20)
End Sub
Private Function DajString(ByVal sUlaz As String, ByVal sCharInUlaz As String, ByVal iMinLengthRightFromChar As Integer) As String
Dim iPosOfCharInUlaz As Integer
Dim iLengthRightFromChar As Integer
sUlaz = Trim(sUlaz)
iPosOfCharInUlaz = InStr(1, sUlaz, sCharInUlaz)
iLengthRightFromChar = Len(Mid$(sUlaz, iPosOfCharInUlaz + 1))
If iLengthRightFromChar < iMinLengthRightFromChar Then
DajString = Mid$(sUlaz, 1, iPosOfCharInUlaz) & "NEKA KONSTANTA"
Else
DajString = sUlaz
End If
End Function
Kako da napišem tu funkciju u Javascriptu, da se izvršava i u IE i FF?
