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

        '将字符串转化为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年"

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

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