• Home
 · 
• String Manipulation
 · 
• exact copy of mircs $gettok function

exact copy of mircs $gettok function

the same as the mirc gettok function - very usefull

Rate exact copy of mircs $gettok function

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

' mIRC gettok func for vb
' (c) by diChter, www.diChtbox.de.vu
' usage: gettok(text, N, asciival char)
' example:
' MsgBox gettok(this-really-owns-yo-momma, "2-4", 45)
'  would return 'really-owns-yo'
' MsgBox gettok(this-really-owns-yo-momma, "3", 45)
'  would return 'owns'
Public Function gettok(t As String, n As String, c As Integer)
 On Error Resume Next             ' just in case..
 Dim splitted
 splitted = Split(t, Chr(c))          ' splits text by token
 If n = "0" Then                ' if n is 0 return num of tokens
  gettok = UBound(splitted) + 1
 ElseIf InStr(n, "-") Then           ' if '-' is in n..
  Dim x As Integer, r As String
  If Right(n, 1) = "-" Then          ' if n format = x-
   n = Left(n, Len(n) - 1)
   For x = Int(n) To UBound(splitted) + 1  ' all tokens started from x
    r = r & Chr(c) & splitted(x - 1)
   Next
   gettok = Mid(r, 2)
  ElseIf Not Left(n, 1) = "-" Then      ' if format not = x- and not -x it should be x-x
   Dim splittedN
   splittedN = Split(n, "-")         ' split n to get x1 'n x2
   For x = splittedN(0) To splittedN(1)   ' all tokens from x1 to x2
    r = r & Chr(c) & splitted(x - 1)
   Next
   gettok = Mid(r, 2)
  End If
 Else                     ' 1 token
  gettok = splitted(Int(n) - 1)
 End If
End Function