【VB技巧】VB 判断text行数 读取text第N行

VB判断text多少行：

Dim T() As String
T() = Split(Text1.Text, vbCrLf)
MsgBox "共" & UBound(T) + 1 & "行"

VB读取text第N行：

Dim T() As String, N
N = 1
T() = Split(Text1.Text, vbCrLf)
MsgBox "第" & N & "行的内容为: " + T(N - 1)

VB循环读取Text：

Dim T() As String, I
T() = Split(Text1.Text, vbCrLf)
For Each I In T() '枚举整个数组赋值给I
    Debug.Print I
Next