请教高手，用代码如何实现。

zsy02111 发布于 2013-04-14 12:31， 462 次点击

请教高手，用代码如何实现。谢谢
有二个文本框，text1和text2，一个按钮 b1
在text1输入：
123
456
789
然后按钮后后，在text2呈现(注意：最后行是没有逗号的)：
'123',
'456',
'789'

2 回复

chen35232013-04-14 21:48

"'" & left$(text1.text,3) & "'," & crh(10) & crh(13) "'" & mid$(text1.text,3,3) & "'," & crh(10) & crh(13) "'" & right$(text1.text,3) & "'"
祝你好运！

lowxiong2013-04-14 22:37

Private Sub b1_Click()
  Dim b() As String, i As Integer
  b = Split(Text1, vbCrLf)
  Text2 = ""
  For i = 0 To UBound(b)
    If b(i) <> "" Then Text2 = Text2 & "'" & b(i) & "'," & vbCrLf
  Next
  Text2 = Left(Text2, Len(Text2) - 3)
End Sub
'本代码具有通用性，不管text1有多少行都能满足要求