求助，怎么把001，002变成1，2

lsq726

有个001，002，003，004，005,006,007,008,009,010,011......200的序列 怎么把 他们变成1,2,3,4,5,6,7,8,9,10,11,12...200

pusofalse

#include <Array.au3>

Dim $aNumSeq[10] = ["001", "002", "003", "004", "005", "006", "007", "008", "009", "010"], $aNewSeq[10]

For $i = 0 to 9
        $aNewSeq[$i] = StringRegExpReplace($aNumSeq[$i], "^0+", "")
Next

_ArrayDisplay($aNumSeq)
_ArrayDisplay($aNewSeq)


Dim $aNumSeq[10] = ["001", "002", "003", "004", "005", "006", "007", "008", "009", "010"], $aNewSeq[10]

For $i = 0 to 9
        $aNewSeq[$i] = Mod(1000000 & $aNumSeq[$i], 1000000)
Next

_ArrayDisplay($aNumSeq)
_ArrayDisplay($aNewSeq)

lsq726

谢谢，，~~~~~~~~~~~~~~~~~~`

即即

3# lsq726

用格式化来得简单。
dim $v = '008'
MsgBox(0,"测试",StringFormat ('%u', $v ))

make2855

MsgBox(0,'',Number(001))

即即

楼上的更简单，不错，学习了。

lsq726

谢谢，，  的确很方便了。。

bing614

MsgBox(0,'',Number(001))


支持，....

javarike

good!>..
...........

kn007

留名学习。。。

lsq726

MsgBox(0,'',Number(001))
make2855 发表于 2009-6-18 23:00

   如果是字母数字混合的要怎么处理
比如A001 ，B002，DDD003，AA004
变成1， 2， 3 ，4 要怎么做？NUMBER会把字母开头的都变成零蛋

dajun

StringRight ( "string", 3 )

superflq

5楼的方法很简洁

dajun

$array=StringRegExp('adcffg009', '\d{3}', 1)

for $i=0 to UBound($array)-1

        MsgBox(0,0,$array[$i],2)

Next