主题：字符串变换求助

如果有这样的的字符串：65/10,65/20,85/30,85/40,85/50,85/60,85/70

如何变换成这样的：65/10.20,85/30.40.50.60.70

 

不对哦

不好意思，是我搞错了，如果对单一行的字符串是对的，我现在按这个方法想将表中的一列“型号规格”字符批量进行变换，才发现没那么简单。比如列中的数据是这样的：

铜配件-胆壳
85/30
85/30
85/30,85/40,85/50,85/60,85/70
E20/10*45,E20/10*50,E20/10*60,E20/10*70,E30/30*100,E30/55*55,铜配件-有牙匙

 

现在要对这一列批量进行变换，变成这样的

 

铜配件-胆壳
85/30
85/30
85/30.40.50.60,85/70

E20/10*45.10*50.10*60.10*70,E30/30*100.55*55,铜配件-有牙匙

 

请问应该如何做才对呢？

我现在是这样的，但不对。

 

For Each dr As DataRow In DataTables("销售订单查询").DataRows
Dim s1() As String = dr("型号规格").Split(",")
Dim ss As new List(of String)
For Each s2 As String In s1
    If ss.count=0 Then
        ss.Add(s2)
    Else
        Dim str=ss(ss.count-1)
        Dim sss As String() =s2.Split("/")
        If sss(0)=str.split("/")(0) Then
            ss(ss.count-1)=str & "." & sss(1)
        Else
            ss.Add(s2)
        End If
    End If
Next
Dim result As String
For Each s3 As String In ss
    result=result & "," & s3
Next
dr("型号规格") = result.trim(",")

Next

请问是不是要清空数组呢？但我找不到清空数组的方法。

请问有那位知道原因吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:字符串转换.rar

 

现在将这个文件上传，请求大家帮忙看看，为什么在原列做转换不行，而在其他列做转换就行，真是想不明白！

 

在这个文件的表中，第一列为想转换的字符，窗口下有个转换按钮，如果用这个按钮直接在当前列转换是不行的，转换后会多出一些不想要的内容，需每二列会也用类似的语句进行转换，却可以正常转换。每三列的内容为第一列的原始内容，以方便复制测试用。

现在解决啦！