扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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!
缓冲区是存放字符串的,防止字符串过大把内存溢出,引起异常。是中间的一个缓冲地带。这个是原理。你用那个函数就行了。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流