VB6 读取txt 指定行

假设给A1赋的值为2，逗宽这个数可以随便改，然后在窗体中添加如下代码陵祥测试即可Private Sub Form_Load()

Dim A1 As Integer

Dim i As Integer

Dim A2 As String

Dim S As String

A1 = 2A2 = ""'把A2的值赋为空

Open "c:\a.txt" For Input As #1 '以文本文件的方式打开"c:\a.txt"，给它编号为#1,以后#1就表示这个文件了

For i = 1 To A1 + 2 '因为要读A1+2行，尺指搏所以要用循环，一次读一行

Input #1, S'从#1文件中读一行赋给S

A2 = A2 &S &vbCrLf'A2的值再原来的基础上加一行

Next

Close #1 '读完文件关闭文件

MsgBox "A2=" &A2 '输出A2的值

End Sub

3个TextBox，点击Command1可以d出对话框，显示三个文本框的内容并显示厅肆总和。注意：内容必须为数字。

代码如下：

Private Sub Command1_Click()

MsgBox "第一个文本框内容" &Text1.Text &"扮纳轿，第二个文本框内容" &Text2.Text &"第三个文本框内容" &Text3.Text &总和 Text1.Text + Text2.Text + Text3.Text &"。"

End Sub

读取文件的话，用下面的代码：

Private Sub Command1_Click()

Dim txt1 As String, txt2 As String, txt3 As String

Open "d:\123\1.txt" For Input As #1

txt1 = Input(LOF(1), 1)

Close #1

Open "d:\123\茄厅2.txt" For Input As #1

txt2 = Input(LOF(1), 1)

Close #1

Open "d:\123\3.txt" For Input As #1

txt3 = Input(LOF(1), 1)

Close #1

MsgBox "第一个文件内容" &txt1 &" 第二个文件内容" &txt2 &" 第三个文件内容" &txt3 &"总和" &txt1 + txt2 + txt3 &"。"

End Sub

希望能帮助到你！

1、vb6示例：

Option Explicit

Private Sub Command1_Click()

Dim iStr() As String, i As Long, c

Open "d:\test.txt" For Input As #1

While 拿大樱Not EOF(1)

   ReDim Preserve iStr(i)

   Line Input #1, iStr(i)

   i = i + 1

Wend

Close #1

For Each c In iStr

    Debug.Print c

Next

   

End Sub

2、以上例程从文本文件读，把读出来的每一行文本装入一个字符串动态数组，数组每个成员即一行仿陵。

3、如果是想读textbox的每一行，假如每一行都有回车，按回车截取。如果是自动换消丛行没有回车符，需要使用windows API来读每一行。

---