【原创】全角、半角混合字符串截取方法（VB.NET版）

''' <summary>
''' 全角、半角混合字符串截取方法
''' </summary>
''' <param name="strSrc">需要截取的字符串</param>
''' <param name="intStart">要截取字符串的起始位置</param>
''' <param name="intLenth">要截取字符串的长度</param>
''' <returns>
''' 返回的字符串
''' </returns>
''' <remarks>
''' 飘过的浮云 2011年01月15日
''' </remarks>
Private Function getStringCount(ByVal strSrc As String, ByVal intStart As Integer, ByVal intLenth As Integer) As String
Dim strResult As String = String.Empty
Dim byeTemp As Byte()

'将字符串转化为Byte
byeTemp = Encoding.Default.GetBytes(strSrc.ToCharArray())

Try
strResult = New String(Encoding.Default.GetChars(byeTemp, intStart, intLenth))
Catch ex As Exception
strResult = String.Empty
End Try

Return strResult
End Function

测试

Dim strSrc As String = "飘过的浮云2011年01月15日"
Dim strTest1 As String = getStringCount(strSrc, 0, 2)
Dim strTest2 As String = getStringCount(strSrc, 2, 9)
Dim strTest3 As String = getStringCount(strSrc, 11, 5)

测试结果

strTest1="飘"

strTest2="过的浮云2"

strTest3="011年"

----------------------------------------------------

以上为本人自己写的方法，仅供参考。