Question

vb通过按钮把text1的信息怎样填充到相应的文本框,不同的信息用一个回车或两个回车分隔

vb通过按钮把text1的信息怎样填充到相应的文本框,不同的信息用一个回车或两个回车分隔

text1.text的信息格式为:
张三

19
男

9.11

Answer 1

个是一定要固定，不然没法做

先把text1中回车换行全部去掉，再把多余的空字符去掉，然后直接读取即可

Option Explicit

Private Sub Command1_Click()
    Dim a As Variant, b As Variant, str As String, i As 谈郑桥Integer
    a = Split(Text1, vbCrLf)  '根据回车换行将字符串转化为数组
    For i = 0 To UBound(a)  '过滤掉空字符，格式就统一了。
        If a(i) <> "" Then str = str + a(i) + vbCrLf
    Next
    b = Split(str, vbCrLf) '将不含空字符的字符串转化为数组
    Text2 = b(0)
    Text3 = b(1)
 丛郑   含猛Text4 = b(2)
    Text5 = b(3)
End Sub