Dim MyString, FirstWord, LastWord, MidWords MyString = "Mid Function Demo" ' Create text string. FirstWord =Mid(
MyString,
1,
3)
' Returns "Mid". LastWord =Mid(
MyString,
14,
4)
' Returns "Demo". MidWords =Mid(
MyString,
5)
' Returns "Function Demo".
The second example use MidB and a user-defined function (MidMbcs) to also return characters from string. The difference here is that the input string is ANSI and the length is in bytes.
Function MidMbcs(ByVal str as String, start, length) MidMbcs = StrConv(MidB(
StrConv(str, vbFromUnicode), start, length), vbUnicode) End Function Dim MyString MyString = "AbCdEfG" ' Where "A", "C", "E", and "G" are DBCS and "b", "d", ' and "f" are SBCS. MyNewString = Mid(MyString, 3, 4) ' Returns ""CdEf" MyNewString =MidB(
MyString, 3, 4)
' Returns ""bC" MyNewString = MidMbcs(MyString, 3, 4) ' Returns "bCd"