vb 获取Text1的第二行至第五行内容

显示全部楼层 · 2013-1-28 11:38:33

一个金币没有啊？Private Sub Command1_Click()
Dim a() As String
a = Split(Text1, vbCrLf)
For I = 1 To 4
Debug.Print a(I)
Next IEnd Sub...

千问 · 2013-1-28 11:38:33

open "D:\123.TXT" for input as #1for i=1 to 5
line input #1,S1
if i>1 then S=S & S1nextclose #1S里面就是第二到第五行...

千问 · 2013-1-28 11:38:33

Dim str() As String '定义动态文本数组str = Split(Text1.Text, vbCrLf) '以vbcrlf(换行符)分割文本，贮存到str里If UBound(str) >= 4 Then '如果str有5个成员再取For i = 1 To 4 '取1到4的成员，即二到五行Text2.Text = Text2....