• 所有问题

    • vb6 调用TXT的问题

    Dim b As String
    Open App.Path & "\程序文件.txt" For Input As #1
    Line Input #1, b
    Label1.Caption = b '第一累计
    Line Input #1, b
    Label2.Caption = b
    Line Input #1, b
    Label3.Caption = b '第二累计
    Line Input #1, b
    Label4.Caption = b
    Close #1
    上面的代码是调用txt里的第1至4行，为label 1至4的caption，可如果txt里没有第4行的话，就会出现错误，怎样实现：txt里没有第4行，会出现提示“文件里没有名字”的msg

    举报该问题
    推荐答案   2011-12-12
    在前面加上on error resume next追问

    在哪加啊，我是个笨蛋

    追答

    on error resume next
    Dim b As String
    Open App.Path & "\程序文件.txt" For Input As #1
    Line Input #1, b
    Label1.Caption = b '第一累计
    Line Input #1, b
    Label2.Caption = b
    Line Input #1, b
    Label3.Caption = b '第二累计
    Line Input #1, b
    Label4.Caption = b
    Close #1

    温馨提示：答案为网友推荐，仅供参考
    相似回答
    VB6.0读取TXT的问题答：Open "TESTFILE" For Input As #1' 打开文件。Do While Not EOF(1)' 循环至文件尾。Line Input #1, TextLine' 读入一行数据并将其赋予某变量。Debug.Print TextLine' 在调试窗口中显示数据。Loop Close #1' 关闭文件。他是自动读过第一行，指向第二行的，所以顺序读下去就可以了 ...
    VB6.0 读取文本文件(*.txt)的问题答：Close #i s = StrConv(BB, vbUnicode)GetFile = s End Function '调用举例：dim s as string s=GetFile("c:\1.txt")
    我用vb6做了一个工程,代码全部写在txt文件里,请问如何调用执行答：很难，关键不是TXT的代码，而是事件无法响应TXT中的事件，所以必须为每个可能的事件去搜索TXT文件，同样如果有自定义事件、过程或函数，都要去搜索！不是区区一个Microsoft Script Control 就能解决的！
    在VB6.0中读取txt文件内容出现的问题 一下是我的程序,请帮忙指点一下...答：Line Input #1, oDaB Line Input #1, oDaC Line Input #1, oDaD 改为 Do Line Input #1, Wenti Loop While Wenti = ""Do Line Input #1, oDaA Loop While oDaA = ""Do Line Input #1, oDaB Loop While oDaB = ""Do Line Input #1, oDaC Loop While oDaC = ""Do Line Input #1...
    vb6 调用TXT的问题答：在前面加上on error resume next
    大家正在搜
    vb调用其他应用vb中调用另一个窗体的代码vb过程的定义和调用vb程序经常遇到的问题vb 如何调用其它软件vb调用vb如何调用函数vb调用函数vb调用数据库