Question

按键精灵中分割字符串"123R321R21R3213R21" 用"R"分割

按键精灵中分割字符串"123R321R21R3213R21" 用"R"分割在记事本中用替换功能 替换分割出来的第三组字符串"21" 为XX 这时候第二组变为3XX 第四组为3XX3
第五组为XX
有什么好办法只替换第三组的"21"么

Answer 1

xxx = "123R321R21R3213R21"
mmm = split(xxx, "R")
mmm(3)=Replace(mmm(3),"21","XX")
For Each n In mmm
	TracePrint n
Next

如有不懂，可继续追问，看到会回答

追问

我只是举例 如果第第三组数据不是"21" 是随机变化的呢？

还有一个问题 我是想把所有的下标为奇数的数组内容换成空 也就是删除 然后再把他们重组

原字符串123R321R21R3213R21
处理完后
123RR21RR21 这是举例
我在实际分割文本时会得到很多数组

追答

回答第一个问题。21和XX都可以弄成变量  给相应的变量赋值就行了。

第二个问题奇数全部换成R得到的应该是"R123RR21RR21",1也是奇数吧?

Dim aa()
text = "123R321R21R3213R21"
tt = split(text, "R")
ReDim aa(UBound (tt) )
ReDim Preserve aa(UBound(tt))
For i =0  To UBound (tt)
    If (i mod 2) = 0 Then 
        tt(i) = "R" & tt(i)
        aa(i) = tt(i)
    Else 
        aa(i) ="R"
    End If
    mm=mm&aa(i)
Next
MessageBox mm

追问

谢谢 很有用 不过我纠正以下
分割出来的数组第一组数组下标是0 第二组下标是1 所以结果是
123RR21RR21

追答

嗯，是的 搞糊涂了。觉得有用麻烦采纳一下。谢谢

Answer 2

不好搞啊啊

追问

是啊 头痛中

我在想能不能用重组数组的方法来弄