HOW TO:操作定长字符串

Author:水如烟

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

 

 

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。