注册 登录
编程论坛 VB.NET论坛

streamreader 未定义

qq340080698 发布于 2008-12-09 14:24, 2328 次点击
Imports System
        Imports
        Public Class filedemotext
        Dim myfilename As String = "c:\file.txt"
        If file.exists(myfilename) Then
            file.delete(myfilename)
        End If
        Dim sw As streamwriter = file.createtext(myfilename) '创建FILE.txt用于写数据
        sw.writeline("file ")
        sw.writeline("write ")
        sw.writeline("string!")
        sw.flush()     '将缓冲的数据写入基础流
        sw.close()
        Try
            Dim sr As streamreader = file.opentext(myfilename) '打开FILE.TXT用于读数据
            Dim inputstring As String
            inputstring = sr.readline()
            While Not inputstring Is Nothing '检测不到文件尾时打印读出的结果
                Console.WriteLine(inputstring)
                inputstring = sr.readline()
            End While
            sr.close()
        Catch error_info As Exception
            Console.WriteLine("文件操作错误!" & error_info.ToString())
        End Try

我运行后,有7处出错(下划线)Imports语法错误,streamreader未定义类型,class关键字作为标识符无效,file 未声明名称  请问怎么解决????????????
4 回复
#2
ggvboy2008-12-09 16:07
看不出来,不一定是代码的原因,看看是不是建错文件了
#3
bygg2008-12-09 17:17
streamwriter ==> StreamWriter
#4
hlytuopu2008-12-10 12:42
为什么没有end class?
你的代码好像都是写在方法体之外的,if语句不应该写在class下面吧,应该要写在sub下面吧。
#5
fairy42008-12-13 14:45
Imports System
Imports

Public Class Class1

    Private Sub YourFunction()
        Dim myfilename As String = "c:\file.txt"
        If File.Exists(myfilename) Then
            File.Delete(myfilename)
        End If
        Dim sw As StreamWriter = File.CreateText(myfilename) '创建FILE.txt用于写数据
        sw.WriteLine("file ")
        sw.WriteLine("write ")
        sw.WriteLine("string!")
        sw.Flush()     '将缓冲的数据写入基础流
        sw.Close()
        Try
            Dim sr As StreamReader = File.OpenText(myfilename) '打开FILE.TXT用于读数据
            Dim inputstring As String
            inputstring = sr.ReadLine()
            While Not inputstring Is Nothing '检测不到文件尾时打印读出的结果
                Console.WriteLine(inputstring)
                inputstring = sr.ReadLine()
            End While
            sr.Close()
        Catch error_info As Exception
            Console.WriteLine("文件操作错误!" & error_info.ToString())
        End Try
    End Sub
   
End Class
1