vb 如何读取txt文件最后一行结束
我编写了一个读txt的程序 但是不知道怎么结束，当结束的时候都出错，qc之前已经定义为1
Private Sub Command2_Click()
Select Case qc
Case 1
Open "bzjh.txt" For Input As #1
Input #1, a, b, c, f, d
中间执行一部分程序
qc=qc+1
case2
中间执行一部分程序后
Input #1, a, b, c, f, d
再执行一部分程序
qc=qc+1
case3
这次点击按钮时没有Input #1, a, b, c, f, d
在执行命令的中间 如果 在case2 的时候已经到最后一项则停止
qc=qc-1
End Select
End Sub
这样怎么停止啊？？我用Do While Not EOF(1)直接就没响应，用if eof（1）也不起作用，有什么办法吗？？ 急啊，最好是留个qq 谢谢
能给个例子吗？谢谢
你试试返回值，看True还是False表示到达末尾……
While用法应该是：
While
[Statement]
[Exit While]
[Statement]
Wend
还有
Do
...
Loop
没有"Do While"……
VB获取文本文件的最后一行怎么做到?
VB获取文本文件的最后一行，可以在循环中使用Line Input # 语句一行读文本文件，直到到达文件的结尾。Line Input # 语句，从已打开的顺序文件中读出一行并将它分配给 String变量。EOF 函数，返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。具体代码：Pr...
用VB如何找到数据库里的最后一条记录或txt文件里的最后一行数据?
Line Input #1, TXTCon i = i + 1 Loop Close #1 以上是读取txt文件的方法，当close后i的值就是txt文件的总行数。然后再运行下面的方法 Open StrPath For Input As #1 Do While Not EOF(1)Line Input #1, TXTCon If j= iThen msgbox TXTCon '这个就是最后一行记录 Close #1 Exit Sub...
vb 如何把txt文件的最后一行内容删除?
方法一 readline 读取我就不说了,我只说你读取的时候可以把读取的行数,放入一个全局变量中line_n,在按按钮操作的时候只要,重新打开该文本,并依次 writeline 前 line_n-1到文件即可 方法2 'split函数 arrs=split(text1.text,vbcrlf)'然后 ubound(arrs)获得行数 l_n=ubolund(arrs)'最后写入 ...
请问VB中如何读取txt文件的数据
1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。2、双击Command1添加如下代码 Private Sub Command1_Click()Dim strFile As String Dim intFile As Integer Dim strData As String strFile = "c:\\学生成绩.txt"intFile = FreeFile Open strFile Fo...
VB 读取 TXT一段文字的下一行
c() As String a = FreeFile Open "c:\\a.txt" For Binary As #a '读取txt文件 b = Space$(LOF(a))Get #a, , b Close #a c() = Split(b, vbCrLf)For i = LBound(c) To UBound(c)if lcase(c(i))=lcase(find) then Msgbox c(i+1):exit for Next i End Sub ...
VB打开TXT,输出超出文件尾,请高手指教
首先，你的文本文件中每行只有4个数据，但你却用5个变量去读，这样读到最后一行的时候就会出现有些变量没有对应数据的情况，VB就会提示“输入超出文件尾”（注意哦，只有“输入超出文件尾”的，没有“输出超出文件尾”的）；其次，建议你最好不要用多个变量去读取文本数据，因为这对文本数据的格式是有...
怎么把text中的信息保存到txt文本中的最后一行 VB
你是说总把textbox内的内容保存在txt文档的最后一行？OK这个问题可以用Append解决 该文件函数是向指定输出文件写入数据，并且加载在文件内已有数据的尾后。若文件内不存在数据，则从首位开始录入 下面举例：Private Sub Command1_Click()var=Text1.Text Open "E:\\123.Txt" For Append As #1 print #1...
vb读取txt一行数据
Private Sub Form_Click()Dim MyLine Open App.Path & "\\MyFile.txt" For Input As #1 ' 打开文件。Do While Not EOF(1) ' 循环至文件尾。Line Input #1, MyLine ' 读入一行数据并将其赋予某变量。Print MyLine ' 在立即窗口中显示数据。Loop Close #1 ' 关闭文件。End ...
vb 如何读取txt文件最后一行结束
绝对是EOF，我用过，你试试返回值，看True还是False表示到达末尾……While用法应该是：While [Statement][Exit While][Statement]Wend 还有 Do ...Loop 没有"Do While"……
vb,如何用text控件显示txt文件,每单击一次按钮,在text控件中显示txt...
正常的打开文件，然后单击事件中 用line Input 读取文件一行，每读取一行文件指针就自动移到下一行。当然要用Eof 函数来判断文件已是否读到尾了。比如在load 事件中打开文件，或在另一个按钮事件中打开文件 Dim fileNumber As IntegerConst Filename = "c:\\123.txt" '文件名及地址自己改一下 Private...
