'写入
成都创新互联专注于企业全网营销推广、网站重做改版、洪湖网站定制设计、自适应品牌网站建设、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())
Next
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)