189 8069 5689
1，对于INI文件，可以当做像TXT文件一样来进行读取和写入。
创新互联于2013年创立，是专业互联网技术服务公司，拥有项目成都网站设计、成都网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元河津做网站,已为上家服务,为河津各地企业和个人服务,联系电话:18980820575
2，先把整个文件度出来，然后找到相应行删除（抛弃）以后，再重新写入文件。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyStr As String = ""
Dim AllStr As String = ""
'获取一个可用的文件号
Dim MyFileNum As Integer = FreeFile()
'打开指定的文件，进行读取操作
FileOpen(MyFileNum, "C:\My.ini", OpenMode.Input)
Do While Not EOF(MyFileNum)
'读取一行
MyStr = LineInput(MyFileNum)
If MyStr "b=2" Then
If AllStr = "" Then
AllStr = AllStr MyStr
Else
AllStr = AllStr vbCrLf MyStr
End If
End If
Loop
FileClose(MyFileNum) '关闭文件
'写文件
Dim MyStream As New System.IO.FileStream("C:\My.ini", IO.FileMode.Create)
Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.UTF8)
MyWriter.WriteLine(AllStr)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()
End Sub
End Class
设计功能
说明：第一个参考页导入了System.IO
功能sdGetIniInfo（字符串的BYVAL iniSection的字符串，BYVAL INIFILE），如果该字符串/ File.Exists （INIFILE返回的“文件”INIFILE的的）
，而“未找到，以确保路径和文件名是否正确！”如果
黑暗iniRead
昏暗的iniStr新的StreamReader（INIFILE），的字符串iniRead.ReadToEnd
朦胧朦胧的整数
最后的出口，克莱因整数
昏暗的NOSEC布尔=假
作为一个字符的字符串昏暗的getValue“
黑暗的壁橱
衣柜iniStr.Split（CHR（13 ））CLINE = UBOUND功能的（CLST）
= 0 CLINE
衣柜（I）的indexOf（“=”） 0，
衣柜（I）分裂（“=”） （0）TRIM（）= iniSection
NOSEC =
的getValue = CLST（I）分裂（“=”;)（1）修剪（）
BR /退出
最后，如果
如果NOSEC = TRUE
返回的getValue BR /
的安装信息没有找到“iniSection！”
功能
====如果=================== ===================
TEXT1 = sdGetIniInfo（路径，“名称”）
事实上，无论是ini文本文件XML只使用一定的格式，或所谓的数据结构，在最后的分析中，实现的文件操作的功能只是一个包文件的读取和写入操作。
是不是写一个函数的API！
缓冲区是存放字符串的，防止字符串过大把内存溢出，引起异常。是中间的一个缓冲地带。这个是原理。你用那个函数就行了。