以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  字符串变更的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63183)
--  作者：supwork
--  发布时间：2015/1/15 15:44:00
--  字符串变更的问题

有一字符串形如：VB234234^257899933^1501001

其中^是分隔符，现在要重新组合，组合规则是如果^后面是1或2或3或4时，前面的一个^变成^^

即上面的变成 VB234234^^257899933^^1501001

求最简代码

 
--  作者：有点甜
--  发布时间：2015/1/15 15:49:00
--  

Dim str = "VB234234^257899933^1501001".Replace("^", "^^")
msgbox(str)
--  作者：有点甜
--  发布时间：2015/1/15 15:49:00
--  

或者

 

Dim str = "VB234234^257899933^1501001".Replace("^1", "^^1").Replace("^2", "^^2")
msgbox(str)
--  作者：Bin
--  发布时间：2015/1/15 15:51:00
--  
Dim str As String = "VB234234^257899933^1501001"
Dim strs() As String = str.Split("^")
Dim str2 As String = strs(0)
For i As Integer = 1 To strs.length-1
   If val(strs(i)(0)) <=4 AndAlso val(strs(i)(0))>0 Then
     str2=str2 & "^^" & strs(i)
   Else
     str2=str2 & "^" & strs(i)
   End If
Next
MessageBox.show(str2)
--  作者：Bin
--  发布时间：2015/1/15 15:53:00
--  
或者
Dim str As String = "VB234234^257899933^1501001"
For i As Integer=1 To 4
    str=str.Replace("^"& i,"^^" & i)
Next
MessageBox.show(str)
--  作者：supwork
--  发布时间：2015/1/15 16:56:00
--  
以下是引用Bin在2015-1-15 15:53:00的发言：
或者
Dim str As String = "VB234234^257899933^1501001"
For i As Integer=1 To 4
    str=str.Replace("^"& i,"^^" & i)
Next
MessageBox.show(str)

不错，解决问题