小弟是个编程白痴，有下面问题请高手帮忙。小弟不胜感激

1.待替换字符串 B 少于原字符串 A 时 = B 加 空格 (A如：,111,)
2.待替换字符串 B 多于原字符串 A 时 = B (字节多少决定 A )
现在，我想只将原字符串 B完全替换成待替换字符串 A 。
例如以下格式：
,12,458,2,56,845,3,45,87,444,666,351,69,236,35,1,8,6,145,3, 替换成
,12 ,458,2 ,56 ,845,3 ,45 ,87 ,444,666,351,69 ,236,35 ,1 ,8 ,6 ,145,3 ,


另祝大家新年快乐
小弟在线等

,,之间的放到字符串组里，然后len他们，不够的补space

能具体一点么。谢谢

语文现在不及格了
楼主的问题都没看懂什么意思？

不好意思补充一下：
,C,共5位(C为1到3位不规则数字)
不足五位的在数字后面加空格，逗号不变

Private Sub Command1_Click()
Dim Str() As String, OutStr As String
Str = Split(Text1, ",")
For i = 1 To Ubound(Str) - 1
OutStr = OutStr & Str(i) & Space(3 - Len(Str(i))) & ","
Next
Text2 = OutStr
End Sub

Private Sub Command1_Click()
Dim Str() As String, OutStr As String
Str = Split(Text1, ",")
For i = 1 To Ubound(Str) - 1
OutStr = OutStr & Str(i) & Space(3 - Len(Str(i))) & ","
Next
Text2 = OutStr
End Sub


提示USERFORM

Private Sub Command1_Click()

Dim Str() As String, OutStr As String, i As Integer
Str = Split(Text1, ",")
For i = 0 To UBound(Str)-1
OutStr = OutStr & Str(i) & Space(3 - Len(Str(i))) & ","
Next i
Text2 = OutStr

End Sub

借鉴的slore
我试了下可以

[此贴子已经被作者于2006-12-31 17:35:02编辑过]

str(0)和最后的是空的不要加……

i从1开始到倒数第2个就可以了……

上面的一句可以
后面一句试了下，有点问题
我的下标下界是从0开始的，默认的
UBound上界也就不用-1了，不然就会少输出

[此贴子已经被作者于2006-12-31 16:21:16编辑过]