首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

就是有若干行数据转换格式?如图,该怎么处理

2012-01-23 
就是有若干行数据转换格式?如图就是转换数字的格式01020305060709...(省略)转换为010203...(省略)如图(百

就是有若干行数据转换格式?如图
就是转换数字的格式  

01
02
03
05
06
07
09
.
.
.(省略)

转换为
01
02
03
.
.
.(省略)


如图(百度相册):  
http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/a8ed24d1c4132a399b50272e.jpg

[解决办法]
Format(Int(01), "00 ")
Format(Int(02), "00 ")
..
..
..
[解决办法]
Dim i As Integer
For i = 0 To List1.ListCount - 1
List2.List(i) = Format(Int(List1.List(i)), "00 ")
Next i
[解决办法]
Text2 = StrConv(Text1, vbNarrow)

[解决办法]
用Dictionary,把0~9与数字的0~9建立一一对应的关系,到时候出来什么中文字符就用相应的数字对上去,这样应该比较通用。

热点排行