登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>NET教程>>VB.Net语言>>VB如何使用INI文件
VB如何使用INI文件
来源: ‖ 作者: ‖ 点击: ‖ 时间:12-09-25 15:50:02 ‖ 【 】‖ 我要投稿
  • 为了方便用户使用和使系统具有灵活性,大多数Win-dows应用程序将用户所做的选择以及各种变化的系统信息记录在初始化(INI)文件中。因此,当系统的环境发生变化时,可以直接修改INI文件,而无需修改程序。由此可见,INI文件对系统功能是至关重要的。本文将介绍采用VisualBasicforWindows(下称VB)开发Windows应用程序时如何读写INI文件。 
      INI文件是文本文件,由若干部分(section)组成,在每个带括号的标题下面,是若干个以单个单词开头的关键词(keyword)和一个等号,每个关键词会控制应用程序某个功能的工作方式,等号右边的值(value)指定关键词的操作方式。其一般形式如下:

      [Section1]
      KeyWord1=Valuel
      KeyWord2=Value2
       ……
      [Section2]
      KeyWord1=Value1
      KeyWord2=Value2
       ……

      其中,如果等号右边无任何内容(即Value为空),那就表示Windows应用程序已为该关键词指定了缺省值,如果在整个文件中找不到某个关键词(或整个一部分),那同样表示为它们指定了缺省值。各个部分所出现的顺序是无关紧要的,在每一个部分里,各个关键词的顺序同样也无关紧要。

      读写INI文件通常有两种方式:一是在Windows中用“记事本”(Notepad)对其进行编辑,比较简单,无需赘述;二是由Windows应用程序读写INI文件,通常是应用程序运行时读取INI文件中的信息,退出应用程序时保存用户对运行环境的某些修改。

      关键词的值的类型多为字符串或整数型,应分两种情况读写。为了使程序具有可维护性和可移植性,最好把对INI文件的读写封装在一个模块(RWINI.BAS)中,在RWI-NI.BAS中构造GetIniS和GetIniN函数以及SetIniS和Se-tIniN过程,在这些函数和过程中需要使用WindowsAPI的“GetPrivateprofileString”、“GetPrivateProfileInt”和“WritePrivateProfileString”函数。

      RWINI.BAS模块的程序代码如下:

      在General-Declearation部分中声明使用到的WindowsAPI函数:

    Public Declare Function GetprivateprofileString Lib“Kernel”(ByVal lpAppName As String,ByVal lpKeyName As _
      String,ByVal lpDefault As String,ByVal lpRetrm-String As String,ByVal cbReturnString As Integer, _
      ByVal Filename As String)As Integer
    Public Declare Function GetPrivatePfileInt Lib“Kernel”(ByVal lpAppName As String,ByVal lpKeyName As String, _
      ByVal lpDefault As Integer,ByVal Filename As String)As Integer
    Public Declare Funciton WritePrivateprofileString Lib“Kernel”(ByVal lpApplicationName As String, _
      ByVal lpKeyName As String,ByVal lpString As String,ByVal lplFileName As String)As Integer
    Public Function GetIniS(ByVal SectionName As String,ByValKeyWord As String,ByVal DefString As String)As String
      Dim ResultString As String*144,Temp As Integer
      Dim s As String,i As Integer
      Temp%=GetPrivateProfileString(SectionName,KeyWord,"",ResultString,144,AppProfileName())
      ’检索关键词的值
      If Temp%>0 Then ’关键词的值不为空 
      s=""
      For i=1 To 144
       If 

    |<< << < 1 2 > >> >>|
  • 加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
    责任编辑:admin
    相关文章列表
    请文明参与讨论,禁止漫骂攻击。  
    网友评论