如何使用正则在某个字符串中插入字符[已解决]

kk_lee69 · 发表于 2017-3-30 01:44:01

本帖最后由 kk_lee69 于 2017-3-31 01:48 编辑

如何使用正则在某个字符串中插入字符

字符串如下: B006,B005,,B005,,BA06,B5,,B005,B006

如何变成: 1101011011

,跟, 中間有字全部變成1 沒有字就變成0

Alam · 发表于 2017-3-30 06:43:27

只会一步步来.

Local $str = 'B006,B005,,B005,,BA06,B5,,B005,B006'
Local $re = StringRegExpReplace($str, '\w+', '1')
$re = StringReplace($re, ',,', '0')
$re = StringReplace($re, ',', '')
MsgBox(0, '',  1101011011 & @CRLF & $re)

kk_lee69 · 发表于 2017-3-30 11:02:08

回复 2# Alam

不過這樣會有個小問題當資料是

B001,,,,

這樣就無法變成 10000

haijie1223 · 发表于 2017-3-30 15:27:35

回复 3# kk_lee69

Local $sStr = 'B006,B005,,,B5,,B005,,'
Local $aArray = StringSplit($sStr, ',')
Local $sRet = ''
For $i = 1 To $aArray[0]
        $sRet &= $aArray[$i] ? 1 : 0
Next
MsgBox(0, $sStr, $sRet)

haijie1223 · 发表于 2017-3-30 15:41:08

回复 3# kk_lee69

Local $sStr = 'B006,B005,,,B5,,B005,,'
Local $sRet = StringRegExpReplace(StringRegExpReplace(StringRegExpReplace(StringRegExpReplace($sStr & ',', '[^,]+?,', '1,'), ',', '0,'), '10,', '1'), ',', '')
MsgBox(0, $sStr, $sRet)

afan · 发表于 2017-3-30 17:15:28

Local $sS = 'B006,B005,,B005,,BA06,B5,,B005,B006'
MsgBox(0, $sS, StringReplace(StringRegExpReplace($sS, '\w+,?', '1'), ',', 0))

zhouzc88 · 发表于 2017-3-30 21:01:51

小白学习了，谢谢

kk_lee69 · 发表于 2017-3-31 01:47:58

回复 6# afan

感謝各位的回覆小弟學習了

kk_lee69 · 发表于 2017-3-31 01:48:07

回复 5# haijie1223

感謝各位的回覆小弟學習了

229989799 · 发表于 2017-3-31 11:16:39

为什么那么多神。。人类膜拜中

zghwelcome · 发表于 2017-4-5 14:52:09

学习了，各位大佬真厉害

jingzhinvr · 发表于 2017-4-5 19:49:17

楼上非常不错的方法

		自动登录	找回密码
密码			加入

[AU3基础] 如何使用正则在某个字符串中插入字符[已解决]

相关帖子

评分

评分

评分

[AU3基础] 如何使用正则 在某个字符串中 插入字符[已解决]

相关帖子

评分

评分

评分

[AU3基础] 如何使用正则在某个字符串中插入字符[已解决]