论坛 › 已解决问题区 › 求助，怎么把001，002变成1，2

lsq726 发表于 2009-6-18 21:12:53

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

本帖最后由 lsq726 于 2009-6-18 21:35 编辑

有个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 发表于 2009-6-18 21:24:59

#include <Array.au3>

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

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

_ArrayDisplay($aNumSeq)
_ArrayDisplay($aNewSeq)


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

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

_ArrayDisplay($aNumSeq)
_ArrayDisplay($aNewSeq)

lsq726 发表于 2009-6-18 21:36:09

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

即即 发表于 2009-6-18 22:41:30

3# lsq726

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

make2855 发表于 2009-6-18 23:00:06

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

即即 发表于 2009-6-18 23:09:02

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

lsq726 发表于 2009-6-18 23:09:47

谢谢，，的确很方便了。。{:2_75:}

bing614 发表于 2009-6-19 04:12:04

本帖最后由 bing614 于 2009-6-19 04:13 编辑

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


支持，....

javarike 发表于 2009-6-19 09:14:21

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

kn007 发表于 2009-6-19 10:29:01

留名学习。。。

lsq726 发表于 2010-4-2 04:41:34

MsgBox(0,'',Number(001))
make2855 发表于 2009-6-18 23:00 http://autoitx.com/images/common/back.gif


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

dajun 发表于 2010-5-5 08:50:27

StringRight ( "string", 3 )

superflq 发表于 2010-5-5 15:02:21

5楼的方法很简洁

dajun 发表于 2010-5-5 15:33:35

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

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

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

Next

查看完整版本: 求助，怎么把001，002变成1，2