在文本框每行字符之间加个逗号

如图:

谢谢啊

Private Sub Command1_Click()
Dim i As Integer, OrgStr As String, OutStr As String
OrgStr = Text1
For i = 1 To Len(OrgStr)
If Mid(OrgStr, i, 1) = vbCr Then OutStr = OutStr & vbCrLf: i = i + 2
OutStr = OutStr & Mid(OrgStr, i, 1) & ","
Next
Text2 = OutStr
End Sub

[此贴子已经被作者于2007-2-7 20:00:43编辑过]