现在不用区分大小写。
从Domino6.0开败逗始,查找notes.ini参数的方式被修改了,所有的notes.ini参数辩裤不再大小写察灶卖敏感。
1,对于INI文件,可以当做像TXT文件一样来进行读取和写入。
2,先把整个文件度出来,然后找到相应行删除(抛弃)以后,再重新写入文件。
Public Class Form1Private 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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)