实例说明
在本实例中，我们将应用VB.NET制作一个能够实现读写INI文件的应用程序。程序运行结果如图67-1所示。
图67-1 运行结果
技术要点
l INI文件的格式
l GetPrivateProfileInt()和GetPrivateProfileString()函数
l WritePrivateProfileString()函数
实现步骤
■ 新建项目
打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中，选择"Windows应用程序"，在名称域中输入"RWIni"，然后选择保存路径。单击"确认"。
向当前窗体上添加两个Button控件，用于控制读写INI文件；一个Group控件和两个RadioButton控件，用于控制读写整型数据还是字符串型；三个Label控件和三个TextBox控件，用于标注和输入节名、键名和值；其余两个Label控件，一个表示当前打开的文件名，另一个表示读写的状态。最后添加一个MainMenu控件，生成菜单"文件"、"退出"，其中"文件"下有一个子菜单"打开INI文件"。
■ 设置属性
切换到"属性栏"，对窗体上的控件设置属性。详细情况见表67-1。
表67-1 窗体各控件的属性值
窗体/控件 属性 值
optInt value True
Lablel5 Name Lblfilename
Autosize true
BackSytle 0-Transparent
Button1 Text 读取
BackColor &H0080C0FF
Style 1-Graphic
TextBox1 Name txtSection
Text （空）
知识点：一个INI文件由若干节（Section）组成，每个节中又由若干个关键字（Keyword）和值组成。关键字是用来保存独立的程序设置和那些重要信息的，用于控制应用程序的某个功能；值可以是整型数或字符串。如果值为空，则表示应用程序已经为该关键字指定了缺省值。
INI文件的一般形式如下：
…………
[Section]
keyword=value
…………
INI文件有严格的格式要求：
（1）节名必须加"["和"]"。
（2）对文件做注释，要以"；"开头。
（3）关键字后必须有"="。
keywordinfo = txtkeyword.Text
Valueinfo = txtvalue.Text
' 检查输入是否合法，不合法时，提示警告信息。
Private Sub Button1_Click(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles Button1.Click
Dim readinfo As String
Dim buffer As VB6.FixedLengthString = New VB6.FixedLengthString(255)
Dim Sectioninfo As String
Dim Valueinfo As String
Dim keywordinfo As String
Sectioninfo = txtsection.Text
If Trim(Sectioninfo) = "" Then ' 在此可以用len(Sectioninfo)=0来代替
MsgBox("请输入节名（Section）",MsgBoxStyle.OKOnly,"错误信息")
Exit Sub
End If
If Trim(keywordinfo) = "" Then
MsgBox("请输入关键字(Keyword)","错误信息")
Exit Sub
End If
' 判断读取的是数字还是字符串
If optint.Checked Then
' 使用 GetPrivateProfileInt函数取回一个关键字的整型数值
readinfo = CStr(GetPrivateProfileInt(Sectioninfo,keywordinfo,-1,AXCommonDialog1.FileName))
' GetPrivateProfileInt函数返回取得的值，如果键没有找到，则返回由nDefault参数指定的值
If CDbl(readinfo) = -1 Then
txtvalue.Text = "读取失败！"
Else
txtvalue.Text = readinfo
End If
Else
' 使用 GetPrivateProfileString函数取回一个关键字的字符串数值
readinfo = CStr(GetPrivateProfileString(Sectioninfo,"没有找到相对应的键值",buffer.Value,255,AXCommonDialog1.FileName))
' GetPrivateProfileString函数返回放入lpReturnedString缓冲区的字节数，
' 键值放在由参数lpReturnedString指定的缓冲区中。该缓冲区是一个由nSize字节大小的固定字符串
If readinfo = "没有找到相对应的键值" Then
txtvalue.Text = "读取失败！"
Else
txtvalue.Text = VB.Left(buffer.Value,CInt(readinfo))
End If
End If
End Sub
' 写入INI文件
Private Sub Button2_Click(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles Button2.Click
Dim writeinfo As Boolean
Dim buffer As VB6.FixedLengthString = New VB6.FixedLengthString(255)
Dim Sectioninfo As Object
Dim Valueinfo As String
Dim keywordinfo As String
Sectioninfo = txtsection.Text
keywordinfo = txtkeyword.Text
Valueinfo = txtvalue.Text
' 使用更新给定节中的新键值，或创建一个新键值，
' 或用来删除一个节或键值
writeinfo = WritePrivateProfileString(Sectioninfo,Valueinfo,AXCommonDialog1.FileName)
' 注意，WritePrivateProfileString函数设置成功，返回值为True，否则返回False
If writeinfo = True Then
Label4.Text = "写入INI文件成功！"
Else
End If
End Sub
' 打开INI文件
Public Sub mnuOpenINIFile_Popup(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles mnuOpenINIFile.Popup
mnuOpenINIFile_Click(eventSender,eventArgs)
End Sub
Public Sub mnuOpenINIFile_Click(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles mnuOpenINIFile.Click
' 设置过滤器
AXCommonDialog1.Filter = "*.INI|*.ini"
AXCommonDialog1.ShowOpen()
If Len(AXCommonDialog1.FileName) = 0 Then Exit Sub
' 打开有效文件后，按钮可用
Button1.Enabled = True
Button2.Enabled = True
lblfilename.Text = "现在打开的文件是：" & AXCommonDialog1.FileName
End Sub
■ 运行程序
单击菜单"调试|启动"或单击 图标运行程序。
小结
INI文件是包含了应用程序特定信息的文本文件。比如将用户所作的选择以及各种变化的系统信息记录在INI文件中，通常是在应用程序运行时读取INI文件中的信息，退出应用程序时保存用户对运行环境的某些修改。
原文链接：https://www.f2er.com/vb/264318.html