textbox指定行内容部分选取问题求教

Question

如下有个txt文件,有10行,内容如下
81
28
13
45
54
61
71
84
91
10求当在textbox1中输入行号时,在textbox2中得到该行号对应内容以上的全部内容并保留行的格式,举例如下如在textbox1中输入5的时候,textbox2中显示第5行以上所有内容
81
28
13
45
54
在textbox1中输入8的时候,textbox2中显示第8行以上所有内容
81
28
13
45
54
61
71
84
以此类推,谢谢各位前辈大侠!

Answer 1

参见下面地址5楼方法：
http://topic.csdn.net/u/20080105/13/8e169fc4-c61a-466d-9c26-d375f02fafbe.html

Answer 2

画3个控件，text1  text2 Command1 text2的MultiLine属性为true
把代码的 thefile变量改成 你想要的路径
同目录下用 thefile= app.path & "\1.txt"Private Sub Command1_Click()
thefile = "d:\1.txt" '改成你想要要的路径Open thefile For Input As #1
Text2.Text = ""
For a = 1 To Val(Text1.Text)
   If Not EOF(1) Then
      Line Input #1, b
      Text2.Text = Text2.Text & b & Chr(13) + Chr(10)
   Else
      Exit Sub
   End If
Next
Close #1
End Sub

Answer 3

在Text1中查找vbCrLf个数，记住第五个位置，直接取出即可

Answer 4

n为行数Dim p1 As Integer, p2 As Integer, i As Integer
p1 = 1
For i = 1 To n
    p2 = InStr(p1, Text1, vbCrLf)
    p1 = p2 + 2
Next i
text2 = Left(Text1, p1)