如何在文本框每行字符之间加个逗号?
在文本框每行字符之间加个逗号
如图:
谢谢啊
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编辑过]
