以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请求简化代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60392)
--  作者：dqlgood
--  发布时间：2014/11/24 11:16:00
--  [求助]请求简化代码

请求简化代码：

\'\'\'
Dim dts() As String = "项目1、项目2、项目3、项目4、项目5、项目6".split("、")
Dim dt1 As String = "项目3"
Dim dts1 As String
Dim dt2 As String = "3.1%"
For i As Integer = 0 To dts.Length - 1
    If i = Array.IndexOf(dts, dt1) Then
        dts1 = dts1 & "、" & dt1 & "=" & dt2
    Else
        dts1 = dts1 & "、"  & dts(i)
    End If
Next
dts1 = dts1.Trim("、")
msgbox(dts1)


是否要简化一下，直接修改指定项？
--  作者：Bin
--  发布时间：2014/11/24 11:21:00
--  
Dim dts As String = "项目1、项目2、项目3、项目4、项目5、项目6"
msgbox(dts.Replace("项目3","项目3=3.1%"))

这个意思?
--  作者：有点甜
--  发布时间：2014/11/24 11:22:00
--  

\'\'\'
Dim dts1 As String = "项目1、项目2、项目3、项目4、项目5、项目6"
Dim dt1 As String = "项目3"
Dim dt2 As String = "3.1%"

dts1 = dts1.Replace(dt1, dt1 & "=" & dt2)
msgbox(dts1)
--  作者：dqlgood
--  发布时间：2014/11/24 11:25:00
--  
是的，即每一个项目完成后就将结果标注到汇总表数组，数组顺序不变仅将内容标注其后
--  作者：dqlgood
--  发布时间：2014/11/24 11:29:00
--  

是的，太好了，谢谢！