读书人

生成序列化的字符串有关问题

发布时间: 2012-08-27 21:21:57 作者: rapoo

生成序列化的字符串问题
str="0123456789ABCDEFGHJKLMNPQRSTUVWXYZ" 这里自定义这个字符窜
需要生成N位字符,如0000,这样的字符串,若要100个,如何写vb6,谢谢
0000
0001
...
0009
000A
...
000Z
0010
...
00ZZ


[解决办法]
不懂楼主的意思咯

是不是把数值用36进制来表示?


[解决办法]

VB code
Option ExplicitPrivate Sub Command1_Click()    Dim strP As String    Dim strA() As String    Dim intP As Integer    strP = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ"    ReDim strA(1 To Len(strP))    For intP = 1 To Len(strP)        strA(intP) = Right("0000" & Mid(strP, intP, 1), 4)        Debug.Print strA(intP)    Next intPEnd Sub 

读书人网 >VB

热点推荐