求将一段数字字符串转换

zzbtlc

需要把1301110,1360213转换成1301110,130111020131110;1360213,136021320131110
请问代码需要怎么写啊？

user3000

回复 1# zzbtlc

不就是加上年月日吗？可以自己动点脑子的。

如果是固定两组数字，可以直接用正则替换。
不然老实的用循环一个一个替换吧。

Local $str = '1301110,1360213'
Local $a = StringSplit($str, ',')
If Not IsArray($a) Then Exit
Local $str2 = ''
For $i = 1 To $a[0]
    $str2 &= $a[$i] & ',' & $a[$i] & @YEAR & @MON & @MDAY & ','
Next
$str2 = StringTrimRight($str2, 1)
MsgBox(0, $str, $str2)

duxing47

$text = "1301110,1360213"
$Out =""
$text = StringSplit($text,",")

For $i = 1 To $text[0]
        $Out &= $text[$i]&","&$text[$i]&"20131110"
        If $i <> $text[0] Then $Out &= ";"
Next
MsgBox(0,"",$Out)

mbdnmt

So easy。后缀加固定日期看3楼的，后缀加当日日期看2楼的。

netsmu

用字符串，后面加上日期就是了啊。