今日得分最低问题:FileStream的运用

2066 2003-12-30 08:33:30
以下是代码,请解释
Module Module1

Sub Main()
Dim FS As IO.FileStream
Dim FReader As IO.StreamReader
Dim FWriter As IO.StreamWriter
Dim LineContex As String = "a"
FS = New IO.FileStream("H:\test.txt", IO.FileMode.Create, IO.FileAccess.Write)
FWriter = New IO.StreamWriter(FS)
Console.WriteLine("输入文件内容:")
While LineContex.Length > 0
LineContex = Console.ReadLine
FWriter.WriteLine(LineContex)
End While
FWriter.Close()
FS = New IO.FileStream("H:\test.txt", IO.FileMode.Open, IO.FileAccess.Read)
FReader = New IO.StreamReader(FS)
LineContex = FReader.ReadToEnd()
Console.WriteLine(LineContex)
FS.Seek(0, IO.SeekOrigin.Begin)
While FReader.Peek > -1
LineContex = FReader.ReadLine
Console.WriteLine(LineContex)
End While
FReader.Close()
Console.Read()
End Sub

End Module
...全文
49 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
8620 2004-01-10
  • 打赏
  • 举报
回复
up
2066 2003-12-30
  • 打赏
  • 举报
回复
Module Module1

Sub Main()
Dim TextLine As String = ""
Dim Flag As Boolean = True
Dim Fs As IO.FileStream
Dim Sr As IO.StreamReader
Dim Sw As IO.StreamWriter
Fs = New IO.FileStream("h:\test.txt", IO.FileMode.Create, IO.FileAccess.Write)
Sw = New IO.StreamWriter(Fs)
Dim iCount As Integer
While Flag
TextLine = InputBox("请输入一行文字,这行文字将保存到文件中")
If TextLine = "" Then
Flag = False
Else
Sw.WriteLine(TextLine)
End If
End While
Sw.Close()
Fs = New IO.FileStream("h:\test.txt", IO.FileMode.Open, IO.FileAccess.Read)
Sr = New IO.StreamReader(Fs)
Flag = True
While Flag
If Sr.Peek = -1 Then '如果文件读取完毕,peek 返因值为-1
Flag = False
Else
TextLine = Sr.ReadLine()
Console.WriteLine(TextLine)
End If
End While
Sr.Close()
MsgBox("Ok")
End Sub

End Module

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧