实例67：读写INI文件

实例67：读写INI文件   
  实例说明   
  在本实例中，我们将应用VB.NET制作一个能够实现读写INI文件的应用程序。程序运行结果如图67-1所示。   
      
  图67-1     运行结果   
  技术要点   
   INI文件的格式   
   GetPrivateProfileInt()和GetPrivateProfileString()函数   
   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   
  '   检查输入是否合法，不合法时，提示警告信息。   
  '   读取INI文件的内容   
  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)",   MsgBoxStyle.OKOnly,   "错误信息")   
  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,   keywordinfo,   "没有找到相对应的键值",   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,   keywordinfo,   Valueinfo,   AXCommonDialog1.FileName)   
  '   注意，WritePrivateProfileString函数设置成功，返回值为True，否则返回False   
  If   writeinfo   =   True   Then   
  Label4.Text   =   "写入INI文件成功！"   
  Else   
  Label4.Text   =   "错误！不能写入INI文件！"   
  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文件中的信息，退出应用程序时保存用户对运行环境的某些修改。