Public Class uStringClass uString
Private Shared gEncoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("GB2312")

Public Shared Property Encoding()Property Encoding() As System.Text.Encoding
Get
Return gEncoding
End Get
Set(ByVal value As System.Text.Encoding)
gEncoding = value
End Set
End Property

Public Shared Function Length()Function Length(ByVal s As String) As Integer
Return gEncoding.GetByteCount(s)
End Function

Public Shared Function PadLeft()Function PadLeft(ByVal s As String, ByVal totalWidth As Integer, ByVal paddingChar As Char) As String
Return s.PadLeft(totalWidth + s.Length - Length(s), paddingChar)
End Function

Public Shared Function PadLeft()Function PadLeft(ByVal s As String, ByVal totalWidth As Integer) As String
Return s.PadLeft(totalWidth + s.Length - Length(s))
End Function

Public Shared Function PadRight()Function PadRight(ByVal s As String, ByVal totalWidth As Integer, ByVal paddingChar As Char) As String
Return s.PadRight(totalWidth + s.Length - Length(s), paddingChar)
End Function

Public Shared Function PadRight()Function PadRight(ByVal s As String, ByVal totalWidth As Integer) As String
Return s.PadRight(totalWidth + s.Length - Length(s))
End Function

Public Shared Function SubString()Function SubString(ByVal Line As String, ByVal Index As Integer, ByVal Length As Integer) As String
Return gEncoding.GetString(gEncoding.GetBytes(Line), Index, Length)
End Function

End Class

测试对比:

Private Sub ToolStripButton6_Click()Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
Dim tmp As String = "中国China"
Console.WriteLine(LzmTW.uString.Encoding.EncodingName)

Console.WriteLine(LzmTW.uString.Length(tmp))
Console.WriteLine(tmp.Length)

Console.WriteLine(tmp.Substring(0, 2))
Console.WriteLine(LzmTW.uString.SubString(tmp, 0, 2))

Console.WriteLine(New String("*"c, 20))

Console.WriteLine(LzmTW.uString.PadLeft(tmp, 20, "*"c))
Console.WriteLine(tmp.PadLeft(20, "*"c))

Console.WriteLine(LzmTW.uString.PadRight(tmp, 20, "*"c))
Console.WriteLine(tmp.PadRight(20, "*"c))

Console.WriteLine(LzmTW.uString.PadLeft(tmp, 20))
Console.WriteLine(tmp.PadLeft(20))

Console.WriteLine(LzmTW.uString.PadRight(tmp, 20))
Console.WriteLine(tmp.PadRight(20))

End Sub