关于文本文件操作的问题，请指点
我想在文本文件中读取某一个键值所对应的值，然后进行更改，该如何进行？
例如,文本文件内容如下：
DBName=ntfs
User Id=sa
Password=aa
我想把其中的User ID读取出来，并且把它更改为zfc，然后保存回去，该如何进行？
(文件很长，遍历不方便)
问题点数：20、回复次数：8Top
1 楼noaskme（自在飞花）回复于 2005-12-10 11:31:08 得分 0
怎么没人来？Top
2 楼starring（漂流⊙一组）回复于 2005-12-11 09:07:05 得分 0
其实这个思路很简单的!你可以先打开这个文件,并读取出来,把读取出来的内容赋给一个变量,然后在查找你要更改的东西,最后把你更改完的内容再写如文本里面不就可以了吗!今天在亲戚家玩的,要不我就可以帮你做了,查查MSDN 看看读写文件的操作就可以了!Top
3 楼starring（漂流⊙一组）回复于 2005-12-11 12:35:12 得分 13
Dim FS As FileStream
Dim SW As StreamReader
Dim intI As Integer
Dim BW As StreamWriter
Dim FW As String
FS = New FileStream("g:\yu\2005\12\11\PB0001.txt", FileMode.OpenOrCreate, FileAccess.Read, FileShare.ReadWrite)
SW = New StreamReader(FS)
SW.BaseStream.Seek(0, SeekOrigin.Begin)
While sw.Peek() > -1
FW = FW & sw.ReadLine & vbCrLf
End While
SW.Close()
TextBox1.Text = FW
FW = Nothing
intI = InStr(1, TextBox1.Text, "1", CompareMethod.Binary)
If intI <> 0 Then
FW = "ABCDKJSKDJHSKDJFHSKJFHSKJF"
If File.Exists("g:\yu\2005\12\11\PB0001.txt") = True Then ''判断是否有该文件
File.Delete("g:\yu\2005\12\11\PB0001.txt") '删除文件
BW = File.CreateText("g:\yu\2005\12\11\PB0001.txt") ''建立一个新的文件
BW.WriteLine(FW) '写如文件
BW.Close() '关闭
TextBox2.Text = FW
End If
End IfTop
4 楼bakw（好好潜水,天天UP）回复于 2005-12-11 16:01:24 得分 5
如果是ini文件格式的话可以用ini的api来完成
GetPrivateProfileString
WritePrivateProfileStringTop
5 楼sz_lgp（longguoping）回复于 2005-12-12 11:45:18 得分 2
如果是在文本框中将其转化为字符串，用字符串的取代方法就可以了。Top
6 楼noaskme（自在飞花）回复于 2005-12-13 11:52:31 得分 0
多谢Top
7 楼wenl（kenshin）回复于 2006-01-31 12:16:54 得分 0
markTop
8 楼xiongyong（小熊）回复于 2006-02-02 21:50:33 得分 0
恩，文本文件操作!Top
