论坛 › 『 提问交流 』 › 求将一段数字字符串转换

zzbtlc 发表于 2013-11-10 14:29:03

求将一段数字字符串转换

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

user3000 发表于 2013-11-10 18:12:09

回复 1# zzbtlc

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

如果是固定两组数字，可以直接用正则替换。
不然老实的用循环一个一个替换吧。Local $str = '1301110,1360213'
Local $a = StringSplit($str, ',')
If Not IsArray($a) Then Exit
Local $str2 = ''
For $i = 1 To $a
    $str2 &= $a[$i] & ',' & $a[$i] & @YEAR & @MON & @MDAY & ','
Next
$str2 = StringTrimRight($str2, 1)
MsgBox(0, $str, $str2)

duxing47 发表于 2013-11-10 18:34:52

本帖最后由 duxing47 于 2013-11-10 18:36 编辑


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

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

mbdnmt 发表于 2013-11-10 22:01:46

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

netsmu 发表于 2013-11-11 08:18:38

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

查看完整版本: 求将一段数字字符串转换