vb.net补零 vba 补零

vb.net 字节数组补0

'写入

成都创新互联专注于企业全网营销推广、网站重做改版、洪湖网站定制设计、自适应品牌网站建设、H5页面制作、商城网站开发、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为洪湖等各大城市提供网站开发制作服务。

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())

Dim a As String = "011"

Dim b As String = "1"

Dim c As String

c = (CInt(a) + CInt(b)).ToString.PadLeft(3, "0")

Label1.Text = c

-----------

将a,b转换为整型之后计算，再转换为string型，之后可以用PadLeft(3, "0")这个来左补零，3表示限定为三位，后面那个“0”就是限定不足3位补0。

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)

网站栏目：vb.net补零 vba 补零
文章转载：http://pwwzsj.com/article/dohdgip.html