怎么一行一行的读取vb中text.1的文件

怎么一行一行的读取vb中text.1的文件~

vb读取text中的每一行，首先读取出text的全部内容，然后分割出每行，再逐行输出。具体代码如下：
Private Sub Command1_Click()
Dim a as string,b as string,i as long
a=text1.text '第一步获取text全部内容
b = Split(a, vbCrLf) '第二部分割每一行
For i = 0 To UBound(a)
Print b(i) '输出每行的内容
Next
End Sub

Private Sub Command1_Click()
Open "C:\123.txt" For Input As #1
n = 0
Do While Not EOF(1)
Line Input #1, a
n = n + 1
If n = 3 Then
Text1.Text = a
Exit Do
End If
Loop
Close #1
End Sub

这样就可以了。用n来控制行数。当到达了第三行，就输出到文本框，然后退出循环。

Option Explicit

Private Sub Command1_Click()
    Dim fn1 As Integer, fn2 As Integer, st As String, gn As Integer
    fn1 = FreeFile()
    Open App.Path & "\替换前文件.txt" For Input As #fn1
    fn2 = FreeFile()
    Open App.Path & "\替换后文件.txt" For Output As #fn2
    gn = 0
    While (EOF(fn1) <> True)
        Line Input #fn1, st
        If Trim(st) = "G00" Then
            If gn = 0 Then
                gn = 1
                Print #fn2, "123"
            End If
        Else
            Print #fn2, st
        End If
    Wend
    Close fn1, fn2
    
    Label1.Caption = "替换完成！"
    
End Sub

vb读取text中的每一行，首先读取出text的全部内容，然后分割出每行，再逐行输出。具体代码如下：
Private Sub Command1_Click()
Dim a as string,b as string,i as long
a=text1.text '第一步获取text全部内容
b = Split(a, vbCrLf) '第二部分割每一行
For i = 0 To UBound(a)
Print b(i) '输出每行的内容
Next
End Sub

---

武江区17820693289： 怎么一行一行的读取vb中text.1的文件 - ？
党杰舒思： vb读取text中的每一行,首先读取出text的全部内容,然后分割出每行,再逐行输出.具体代码如下:Private Sub Command1_Click() Dim a as string,b as string,i as long a=text1.text '第一步获取text全部内容 b = Split(a, vbCrLf) '第二部分割每一行 For i = 0 To UBound(a) Print b(i) '输出每行的内容 Next End Sub

武江区17820693289： vb如何一行一行读取文本框 - ？
党杰舒思： VB6.0可以用一次读取文本框全部文本内容,然后使用Split函数来实现一行一行提取文本框行内容.Split函数,返回一个下标从零开始的一维数组,它包含指定数目的子字符串.实现代码:Private Sub Command1_Click() Dim strSj As String Dim strSjfh As Variant Dim i As Long strSj = Text1 strSjfh = Split(strSj, vbCrLf) Text2 = UBound(strSjfh) '总行数 i = InputBox(＂输入要读的行数＂, i) MsgBox (strSjfh(i - 1)) End Sub

武江区17820693289： VB 中如何逐行读取文本框的内容? - ？
党杰舒思： open ＂test.txt＂ for input as #1 do while not eof(1) line input #1,s '逐行读取文本框的内容并存入变量S里 str = str & s loop close #1

武江区17820693289： vb 一行一行读取文本 - ？
党杰舒思： Private Sub Command1_Click() Open ＂z:\1.txt＂ For Input As #1 Do While Not EOF(1) Line Input #1, temp Text1(i) = temp i = i + 1 Loop Close #1 End Sub text1为控件数组~

武江区17820693289： VB逐行读入文本内容 - ？
党杰舒思： 要用Line Input 来实现行读入 Open ＂c:\123.txt＂ For Input As #1 Line Input #1, nextline \'1行读入 Text1.Text = nextline Line Input #1, nextline \'2行读入 Text2.Text = nextline Close #1

武江区17820693289： VB 中怎么获取text1.text逐行查询多行文本字符?？
党杰舒思： 假如是text2获得,那么可以写成text2=mid(text1,3,6)即可!其实就是考得mid 函数应用!

武江区17820693289： vb 怎样逐行读取文本.. - ？
党杰舒思： dim data as string dim buffer as string open ＂c:\a.txt＂ for input as #1 while not eof(1) line input #1,buffer data=data+buffer loop close #1 data里是逐行读入的所有文本

武江区17820693289： 如何用VB把文本文件,一行一行的读出来?？
党杰舒思： Private Sub Command1_Click() Dim s As String Open ＂d:\text.txt＂ For Input As #1 Do Until EOF(1) Line Input #1, s List1.AddItem s Loop Close #1 End Sub

武江区17820693289： vb 6.0中怎么样让text读取text文件后一行一行计算 - ？
党杰舒思： 替换变量a;VBScript&quot,都如此替换, ＂b＂, Text4) 'ScriptControl＂) sc.Language = ＂表达式文件地址＂ For Input As #1 Do While Not EOF(1) Line Input #1, Bds(i) i = i + 1 Loop Close #1 If i > 1 Then ReDim Preserve Bds(i - 1) ReDim Jg(i - 1)...

武江区17820693289： vb如何读取多行txt文本? - ？
党杰舒思： 1、对于文件的操作vb提供了open语句、print #语句、input #语句等语句来处理文件.2、读取多行文本,可以使用Line input #语句,一行行读取,再连接在一起,这种方法对大一点txt文件效率不高.3、下面提供一个高效率、一次性读入所有文本的vb6示例:Private Sub Command1_Click() Dim r Open ＂d:\readme.txt＂ For Binary As #1 r = StrConv(InputB(LOF(1), 1), vbUnicode) Close #1 Debug.Print r End Sub