请教字符串替换的问题

ictest

例如一个字符串“1,2,3,4,5,6,7,8,9,0,11,12,13,14,15,16,17,18,19,20,1,2,3,4,5,6,7,8,9,0,11,12,13,14,15,16,17,18,19,20,1,2,3,4,5,6,7,8,9,0,11,12,13,14,15,16,17,18,19,20,”，我想Split后将第5个和第15个替换成0后生成新的字符串，我写的程序如下：

程序代码：

1. Dim a As String
   
2. Dim b() As String
   
3. Dim temp1 As String
   
4. Dim temp2 As String
   
5. Dim i As Integer
   
6. Dim c As String
   
7. 
   
8. 
   
9. Private Sub Command1_Click()
   
10. temp1 = ""
    
11. b = Split(a, ",")
    
12. b(5) = 0
    
13. b(15) = 0
    
14. For i = 0 To UBound(b) - 1
    
15. temp1 = temp1 & b(i) & ","
    
16. Next i
    
17. Text1.Text = temp1
    
18. End Sub
    
19. 
    
20. Private Sub Command2_Click()
    
21. temp2 = ""
    
22. b = Split(a, ",")
    
23. c = 0
    
24. temp2 = Replace(a, b(5), c)
    
25. Text2.Text = temp2
    
26. End Sub
    
27. 
    
28. Private Sub Form_Load()
    
29. Text1.Text = ""
    
30. Text2.Text = ""
    
31. a = "1,2,3,4,5,6,7,8,9,0,11,12,13,14,15,16,17,18,19,20,1,2,3,4,5,6,7,8,9,0,11,12,13,14,15,16,17,18,19,20,1,2,3,4,5,6,7,8,9,0,11,12,13,14,15,16,17,18,19,20,"
    
32. End Sub

复制代码

Command1用循环方式生成新的字符串（结果正确），Command2用Replace替换（结果不对）。

想请教一下，生成新的字符串一定要用Command1方式循环得出吗？我的每个文件中类似的字符串有数万行，每行的UBound(b)没有规律且不一致，同时想处理数十到数百个文件，每行都做个循环生成新字符串然后重新写成新文件，似乎效率太低，有什么好办法吗？

cwa9958

Replace函数

返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串

因为你的字符串a里的子字符串b(5)不只是一个，所有符合的都会被替换的，所以结果不对。
Private Sub Command1_Click()
temp1 = ""
b = Split(a, ",")
b(5) = 0
b(15) = 0
'For i = 0 To UBound(b) - 1
'temp1 = temp1 & b(i) & ","
'Next i
temp1 = Join(b, ",")
Text1.Text = temp1
End Sub

ps:你的这个好像是替换了第6个和第16个的。

也可以用replace函数做，但是有点繁琐，特别是要替换的相同字符串有多个，而且要求替换的是在后面的。

Private Sub Command3_Click()
    Dim n As Integer, m As Integer, m1 As Integer
    Dim a1 As String
   
    n = 5
    For i = 1 To n - 1
        m = InStr(m + 1, a, ",")
    Next
    m1 = InStr(m + 1, a, ",")
    a1 = Mid(a, m, m1 - m + 1)
   
    Text2 = Left(a, m) & Replace(a, a1, "0,", m, 1)
   
End Sub