vb.net中输入项补0 vb format 补0

vb.net 字节数组补0

'写入

创新互联是专业的老城网站建设公司，老城接单;提供成都网站设计、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行老城网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

Dim bytes() As Byte = {34, 23, 43, 43, 55, 3}

Dim items = (From item In bytes Select item.ToString("000")).ToArray()

System.IO.File.WriteAllLines("c:\test.txt", items)

'读取

Dim items2 = System.IO.File.ReadAllLines("c:\test.txt")

Dim bytes2 = (From item In items2 Select Byte.Parse(item)).ToArray()

For Each item In bytes2

Console.WriteLine(item.ToString())

vb判断变量里的字符个数不够两个自动在前面补0，提供两种常用的方法;

1、根据长度判断;

a = 5 '注意这里a如果定义为数字类型（Integer、long等），补零后的变量尽量换一个其他变量值，比如b

If Len(a) 2 Then b = "0" a else b=a ‘如果a长度小于2，就前面补零

2、先补零，再取后2位

a=5

b = "0" a

b= Right(b, 2)

没那么麻烦啦！用Format()函数就可以啦！

Private Sub CmdNumber_Click()

TextNumber= Format(TextNumber, "000000")

TextNumber.Locked=True'锁定文本框

End Sub

text1.text = format(txthuor.text,"000")'其中000为多少位，txthour为文本框的数值

标题名称：vb.net中输入项补0 vb format 补0
文章路径：http://myzitong.com/article/doesgjo.html