用VB.NET打开文本文件
我用VB.NET打开文本文件用纯代码方式实现。
以前在6.0下用OPEN……
我看书上介绍的是
dim myfile as new file("c:\a.txt")……
但DIM语句定义NEW FILE都不认。我对那个命名空间还是不太理解，在哪里查看和添加这些东西。
有谁能告诉我。该设置些什么，读取，保存等对文件内容的操作代码如何写？
以前那种
open filename for random as #1 len=196
for append,for input,for binary……
在.net里都规范成怎么个写法了？
问题点数：80、回复次数：6Top
1 楼Latitude（Henry[MS MVP]）回复于 2002-09-19 02:15:22 得分 10
在类模块前面加上
imports system.IO
Top
2 楼ftb（伏特道人）回复于 2002-09-19 03:28:50 得分 0
不明白，加什么地方，全句是什么？对于顺序文件和定长的随机存储如何写操作，或对二进制读取怎么做，以前不过是改改OPEN的参数，现在完整的代码是什么！请举例，谢谢Top
3 楼ftb（伏特道人）回复于 2002-09-19 03:30:32 得分 0
对了，在类模块前加只加一次还是每个定义的地方都加，能在整个程序环境的什么地方一次加好，全部通用吗？Top
4 楼ftb（伏特道人）回复于 2002-09-19 04:02:54 得分 0
我找到了一个 zhangshunshi(宇轩）的答复
注意引用命名空间：
imports system.io
Sub writedata()
If Not File.Exists("c:\myfile.txt") Then
Dim mystream As FileStream
mystream = New System.IO.FileStream("c:\myfile.txt", FileMode.Create)
Dim writer As StreamWriter
writer = New System.IO.StreamWriter(mystream)
Try
writer.WriteLine("Hello World!")
Catch exp As Exception
MsgBox(exp.Message)
Finally
writer.Close()
mystream.Close()
End Try
Else
Dim mystream As FileStream
mystream = New IO.FileStream("c:\myfile.txt", FileMode.Append)
Dim mywriter As StreamWriter
mywriter = New IO.StreamWriter(mystream)
Try
mywriter.WriteLine("How are you！")
Catch exp As Exception
MsgBox(exp.Message)
Finally
mywriter.Close()
mystream.Close()
End Try
End If
End Sub
但对与定长的顺序文件，用那个len的参数时怎么办啊！Top
5 楼Montaque（每天回答两个问题）回复于 2002-09-19 08:32:28 得分 40
http://www.csdn.net/develop/read_article.asp?id=15023Top
6 楼superspeed123（悠哉游哉）回复于 2002-09-19 10:41:34 得分 30
Structure person
Public id As String
Public name As String
End Structure
Sub writedata()
Dim myrecord As person
Dim recordnum As Integer
If Not File.Exists("c:\txtname.txt") Then
Try
File.Create("c:\txtname.txt")
FileOpen(1, "c:\txtname.txt", OpenMode.Binary)
For recordnum = 1 To 5
myrecord.id = recordnum.ToString
myrecord.name = "myname" & recordnum.ToString
FilePut(1, myrecord)
Next
FileClose(1)
Catch exp As Exception
MsgBox(exp.Message)
End Try
Else
Try
FileOpen(1, "c:\txtname.txt", OpenMode.Binary)
For recordnum = 1 To 5
myrecord.id = recordnum
myrecord.name = "myname" & recordnum
FilePut(1, myrecord)
Next
FileClose(1)
Catch exp As Exception
MsgBox(exp.Message)
End Try
End If
End Sub
Top
