估计应该和vb的选项有关系,
这句有问题 Open App.Path & "c:\vb.txt" For Input As #fileno
app.path 是指工程所在的路径,比如"D:\程序"
那么 App.Path & "c:\vb.txt"就得到"D:\程序c:\vb.txt"
这样的路径肯定是找不到文件的.
如果你的文件保存在c盘根目录下,就改为Open "c:\vb.txt" For Input As #fileno
如果你的文件保存在工程所在的目录下,就改为
Open App.Path & "\vb.txt" For Input As #fileno
其次,只能将一行读取到一个变量中
要改成 Input #fileno, mystr
第三,文本文件的内容都是字符串,不能直接赋值给Single 变量
你看一下d盘下面有没有result.dat文件
没有in.txt,可以再Open "F:\vb\in.txt" For Input As #1前加个判断
Private Sub C1_Click()
Dim number(1 To 10) As Integer
Dim i As Integer
If Dir("F:\vb\in.txt", 7) <> "" Then
Open "F:\vb\in.txt" For Input As #1
For i = 1 To 10
Input #1, number(i)
Next
Close #1
a$ = a$ ◆ Str(number(i)) ◆ " "
Text1.Text = a$
Else
Open "F:\vb\in.txt" For Output As #1 '没有的话,创建一个
Print #1, "aaa"
End If
End Sub
在vbp文件上右单击,选择用记事本打印,
然后找到类似以下的行并删除行,然后保存并关闭,
然后再用vb6打开就可以了.
module=module1;
module1.bas如果你删除的文件是这个就删除这一行.
class=class1;
class1.cls如果你删除的文件是这个就删除这一行.
①建议你在调用这个"GetTxt"函数的时候把传递参数TxtPath写成完整的路径,如"C:\Users\Public\Documents\data.txt".
②建议你将要打开的文件与工程文件放在同一目录下,调用这个"GetTxt"函数的时候把传递参数TxtPath写成
:
app.path
&
"data.txt"
.app.path代表工程文件所在存储路径.
希望能帮到你
以上就是土嘎嘎小编大虾米为大家整理的相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用，就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！