如何判定在文本框中输入的文件的行数,并把每一行的文本赋给一个字符串变量呀?????????

Question

一个Textbox控件,我设置它可以输入多行文本,当我输入文本后,我想判定我输入的文本有多少行,并且把每一行都赋给一个字符串变量,应该怎么写程序呀??????

Answer 1

Private Sub Command1_Click()
Dim ls_Content() As String
Dim LogCount As Long
Dim i As Longls_Content = Split(Text1.Text, vbCrLf)
LogCount = UBound(ls_Content, 1) - 1'得到总行数For i = 0 To LogCount
    Debug.Print ls_Content(i)'分别得到每一行
Next i
End Sub

Answer 2

问题已经很好的解决了
如果只是在TextBox中输入文本的话

Answer 3

MsgBox "当前的行数为:" & UBound(Split(RTxt.Text, vbCrLf)) + 1