Split a string and get certain character

[dastr]

Hi all,

I have the following text string 30.CHARACTER.XXX and I would like to have only the CHARACTER, the text in between dots (.) dows anyone know how I may split it up?

Thanks

 

[pr2-eugin]

You have to use the combination of Mid() and InStr() might also need InStrRev(), to get what you are trying to achieve..

Or also use Split(), that will return a String array..

 

[nanscombe]

You could use this.

Public Function getStringBetweenDots(Byval theString as variant)
  Dim lngDot as Long

  theString = theString & vbNullString ' Deals with empty strings

  lngDot = Instr(theString, ".")
  If lngDot > 0 Then theString = Mid(theString, lngDot +1) ' Gets rid of stuff before 1st Dot

  lngDot = Instr(theString, ".")
  If lngDot > 0 Then theString = Mid(theString, 1 , lngDot -1)  ' Gets rid of stuff after 2nd Dot

  getStringBetweenDots = theString
End Function

 

[pr2-eugin]

This is how you use Split()

Public Function getStringBetweenDots(ByVal theString As Variant)
    Dim strArr() As String
    strArr = Split(theString, ".")
    getStringBetweenDots = strArr(1)
End Function