[函數]截取固定長的字串(雙位元組的計2位)

    '截取固定長的字串(雙位元組的計2位)

    '(字串,ASC碼長度,是否顯示點號)

    Function mySubString()Function mySubString(ByVal stringToSub As String, ByVal length As Integer, Optional ByVal isShowingDot As Integer = True)

        Dim regex As Regex = New Regex("[^\x00-\xff]", RegexOptions.Compiled)

        Dim stringChar As Char() = stringToSub.ToCharArray()

        Dim sb As StringBuilder = New StringBuilder


        Dim nLength As Integer = 0

        Dim i As Integer

        For i = 0 To stringChar.Length - 1

            If (regex.IsMatch((stringChar(i)).ToString())) Then

                sb.Append(stringChar(i))

                nLength += 2

            Else

                sb.Append(stringChar(i))

                nLength = nLength + 1

            End If


            If (nLength > length) Then

                Exit For

            End If

        Next i


        If isShowingDot = True And Trim(stringToSub) <> Trim(sb.ToString) Then

            Return sb.ToString() + " "

        Else

            Return sb.ToString()

        End If


    End Function