13518219792
VB.NET 整型 i 转化为字符串 s , 字符串 s 转化为字符数组 CharArr :
创新互联科技有限公司专业互联网基础服务商，为您提供雅安移动机房，高防服务器租用，成都IDC机房托管，成都主机托管等互联网服务。
Dim i As Integer = 12345
Dim s As String
Dim CharArr As Char()
s = i.ToString()
CharArr = s.ToCharArray()
将 CharArr 数组反转:
Array.Reverse(CharArr)
最近我说明了用VB NET将字符串转换成字节数组的方法 如果你需要将一个字节数组转换成字符串 可以使用BitConverter ToString或Covert ToBase String方法 下面我提供实例说明如何用上两种方法进行转换
字节数组用法
如果你准备恢复用二进制格式保存的文本 在System Text命名空间中调用适当编码对象的GetString方法
使用System BitConverter类是将一个字节数组转换成字符串的最快捷的方法 这个类为基本数据类型和字节数组之间的转换提供方法 要使用这个方法 使用超载的ToString方法接受一个字节数组为参数 在这种情况下 字符串中包括字节数组的每一个十六进制格式的值 数值间用破折号隔开 使用字符串没有办法自动撤销转换 恢复原始的字节数组 查看列表A中的例子
Listing A
Private Sub ConvertByteArrayToString() Dim btText() As Byte = { } Dim strText As String strText = BitConverter ToString(btText) MessageBox Show(strText) End Sub 通过System Convert类的ToBase String和FromBase Stirng方法 利用Base 编码 也可以把字节数组转换成字符串 在Base 编码中 每个三字节的序列被转换为四个字节 每个Base 编码字符为值域中 个可能值中的一个 查看列表B中的例子
Listing B
Private Sub ConvertByteArrayToString() Dim btText() As Byte = { } Dim strText As String strText = Convert ToBase String(btText) MessageBox Show(strText) End Sub 以上两种方法都可以用来建立一个二进制数据表示法 记住 为了将一个字节数组恢复成真实的文本信息 你必须使用正确的编码类
lishixinzhi/Article/program/net/201311/11708
在VB NET中 当你需要在控制台显示数据或准备好打印数据时 可能需要调整列宽以显示固定长度的数据 本文介绍了使用String对象的PadLeft方法和PadRight方法扩充字符串以进行固定宽度显示
PadLeft和PadRight方法
PadLeft和PadRight是字符串类的两个方法 可以分别使用它们在字符串的左边和右边填充空格 这两个方法多接受一个代表总长度的整型数 添加的空格数等于填充总长度减去字符串的当前长度
注意 在完成将字符串格式化为固定宽度显示的工作时 应该使用固定宽度的字体 例如Courier等 因为固定宽度的字符占有相同的宽度 否则 填充将会无效
程序员经常使用的另一个替代方法是使用tab字符来获得近似固定宽度显示格式 使用tabs的一个问题是 当某行长度比能够显示的长度长时 将会对tab进行扩展 这将导致各行不能很好对齐
列表A中 我们为大家介绍了如何使用PadLeft和PadRight方法显示字符串 （为了运行该例子 我们添加了一个下拉列表ListBox 并将它的字体设置为固定宽度的字体）图 显示了运行列表A中的代码后的结果
在本例中 我们定义了一个整型变量i和两个字符串数组 strArrSeasons和strArrWeather 每个数组赋初值为预定义好的值 然后 我们将每个数组传递给函数PadArray 并指定在字符串的左侧扩充
列表A
lishixinzhi/Article/program/net/201311/11703
没有这种函数，自己做一个函数，效率不会低，因为都是简单运算：
Function FillString(ByVal a As String, ByVal b As String, ByVal c As Integer) As String
If a.Length c Then
Return a + StrDup(c - a.Length, b)
Else
Return Mid(a, 1, c)
End If
End Function
