수다닷컴

여러분들의 지식으로 여기까지 해결 했는데요. 여기서 또 막히네요.
아래의 소스로 해서 Text1.Text에

[1]ㄱ
2ㄴ
(3)ㄷ
[1]ㄹ
2ㅁ
(3)ㅂ

라고 적으면
1
2
3
1
2
3
이라고 뜨게 하고 싶은데요.

1
1
2
2
3
3
이렇게 떠버리네요. 텍스트에 있는 순서 그대로 빼오고 싶은데 방법좀 알려주세요 !
명쾌한 답변 부탁 드리겠습니다 !

----- 폼 -----------------------------------------
Command1 : 버튼
Text1 : 텍스트박스1
Text2 : 텍스트박스2
----- 소스 ----------------------------------------
Private Sub Command1_Click()
Text2.Text =
a = Split(Replace(Text1, BR, vbCrLf), [)
For i = LBound(a) + 1 To UBound(a)
Text2 = Text2 & Split(a(i), ])(0) & vbCrLf
Next i

a = Split(Replace(Text1, BR, vbCrLf), )
For i = LBound(a) + 1 To UBound(a)
Text2 = Text2 & Split(a(i), )(0) & vbCrLf
Next i

a = Split(Replace(Text1, BR, vbCrLf), ()
For i = LBound(a) + 1 To UBound(a)
Text2 = Text2 & Split(a(i), ))(0) & vbCrLf
Next i
End Sub

신청하기