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

2025-04-06 17:13:11
推荐回答(1个)
回答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用来保存运行结果。