Question

vb6.0多个文本框按照要求合并成一个txt文档

有三个文本框text0 .text1.tex2. 分别输入1、2、（A、B、C........ ），其中text2是多行显示形成一列A、B、C........，要求保存的文本为1 A 2 下一行1 B 2 下一行1 C 2 依次类推

Answer 1

Private Sub Command1_Click()
Dim AA
AA = Split(Text3, Chr(13))
If UBound(AA) > 0 Then
For i = 0 To UBound(AA)
Text4 = Text4 & Text1 & AA(i) & Text2 & vbCrLf
Next
End If
End Sub
加了一个文本框text4用来保存运行结果。

追问

text3输入完多行，最后一行多打两个换行符请问怎么处理，最后到text4的时候就会变成
1A2
1B2
1C2
1
2
1
2
怎么办？

大神帮个忙

追答

1.手工把换行符去掉。
2.验证text3的内容，过滤换行符，用replace函数替换。