精华内容
下载资源
问答
  • NI文件的读取 INI文件是Windows系统最早采用的文本文件格式,在C:驱动器根目录中往往都会存在着一个隐藏的boot.ini文件,它用来定义计算机启动时显示的系统... 一个ini文件读写类的设计和实现 bichengguibichenggui ...
  • vb读写ini文件

    千次阅读 2017-01-24 10:28:04
    Public Sub WriteIni(appName As String, keyName As String, valueNew As String) '  Dim x As Long  Dim strIniFile As String    If Right(App.Path, 1) = "\" Then  strIniFile = App.Path & ...

    http://blog.csdn.net/laotou99/article/details/8574265

    http://ersong1.blog.163.com/blog/static/2327713720110203194176/


    代码最开头加入这个:

    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _
    "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
    "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
      
    Private Const mc_strIniFileName As String = "MyIni.ini"



    然后添加这个:



    Public Function GetIni(appName As String, keyName As String) As String


        Dim strDefault As String
        Dim lngBuffLen As Long
        Dim strResu As String
        Dim x As Long
        Dim strIniFile As String
          
        If Right(App.Path, 1) = "\" Then
            strIniFile = App.Path & mc_strIniFileName
        Else
            strIniFile = App.Path & "\" & mc_strIniFileName
        End If
          
        strResu = String(1025, vbNullChar): lngBuffLen = 1025
        strDefault = ""
        x = GetPrivateProfileString(appName, keyName, strDefault, strResu, lngBuffLen, strIniFile)
        Debug.Print x
        Debug.Print strResu
        GetIni = Left(strResu, x)
          
    End Function


    Public Sub WriteIni(appName As String, keyName As String, valueNew As String)
    '
        Dim x As Long
        Dim strIniFile As String
          
        If Right(App.Path, 1) = "\" Then
            strIniFile = App.Path & mc_strIniFileName
        Else
            strIniFile = App.Path & "\" & mc_strIniFileName
        End If
        x = WritePrivateProfileString(appName, keyName, valueNew, strIniFile)
        Debug.Print x
    End Sub




    然后一个button测试下:

    Private Sub Command3_Click()

        Dim strRet As String
        strRet = GetIni("AAA", "BBB")
        
        MsgBox "读出为:" & strRet


    End Sub

    展开全文
  • 内容索引:VB源码,文件操作,INI VB生成INI文件的一个例子,可按要求将内容写入到INI文件中,并读取这些内容。友情提示:测试文件test.ini放在C盘下,参数一: Section Name。  参数二: 于.ini中的项目。  参数三...
  • 速度比windows的API要快很多,数据量大的情况下对比更明显。代码中有两种方法的比较并记录。
  • VB6.0读写INI文件

    热门讨论 2011-03-03 12:03:55
    VB6.0读写INI文件 VB6.0读写INI文件 VB6.0读写INI文件
  • VB.NET]读写INI文件

    2014-01-18 18:00:28
    VB.NET]读写INI文件。在本实例中,我们将应用VB.NET制作一个能够实现读写INI文件的应用程序
  • VB读写INI文件

    2015-01-13 14:54:17
    VB读写INI配置文件,封装在dll里,含源码和详细注释,一个dll工程,一个调试工程,测试时,直接打开vb工程组测试即可,对学习INI配置文件的读写操作很有用。
  • GetPrivateProfileString "Setting", In_Key, "", GetStr, 256, App.Path & "\SourceDB.ini" GetStr = VBA.Replace(GetStr, VBA.Chr(0), "") If GetStr = "1" Then GetIniTF = True GetStr = "" Else GoTo ...
  • VB 读取INI文件

    2016-09-18 15:05:26
    R = GetPrivateProfileString("IMP", "IMP_PATH", "", sImpPath, Len(sImpPath), App.Path & "\Param.ini")  g_imp_path = Trim...读取Ini 文件时候,如果参数中有中文,读取的值后面有很多空格 如: param.ini: [IM
    R = GetPrivateProfileString("IMP", "IMP_PATH", "", sImpPath, Len(sImpPath), App.Path & "\Param.ini")
    

        g_imp_path = Trim(Left(sImpPath, R))


    读取Ini 文件时候,如果参数中有中文,读取的值后面有很多空格

    如:

    param.ini:

    [IMP]
    IMP_PATH=D:\ProjectManager\20160912_海关单一窗口\program\ImpAndExpForCust\in

    读取到的值:

    'imp
        R = GetPrivateProfileString("IMP", "IMP_PATH", "", sImpPath, Len(sImpPath), App.Path & "\Param.ini")
        g_imp_path = Trim(Left(sImpPath, R))


    g_imp_path =D:\ProjectManager\20160912_海关单一窗口\program\ImpAndExpForCust\in      

    后面的空格,用trim都无法去掉





    展开全文
  • VB读写INI文件的类

    2018-02-07 08:04:31
    使用VB读写INI文件,或其他文件其实都可以,非常方便。
  • VB读写配置文件ini

    千次阅读 2019-07-31 14:45:03
    .ini 文件是Initialization File的缩写,即初始化文件,是windows的系统配置文件所采用的存储格式,统管windows的各项配置,一般用户就用windows提供的各项图形化管理界面就可实现相同的配置了。但在某些情况,还是...

    前言
    .ini 文件是Initialization File的缩写,即初始化文件,是windows的系统配置文件所采用的存储格式,统管windows的各项配置,一般用户就用windows提供的各项图形化管理界面就可实现相同的配置了。但在某些情况,还是要直接编辑ini才方便。

    一、调用系统库函数

    '读配置文件(调用系统库函数)
    Public Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
     ByVal AppName As String, _
     ByVal KeyName As String, _
     ByVal lpDefault As String, _
     ByVal lpReturnString As String, _
     ByVal nSize As Long, _
     ByVal FileName As String) _
    '写配置文件(调用系统库函数)
    Public Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
    ByVal AppName$, _
    ByVal KeyName$, _
    ByVal keyDefault$, _
    ByVal FileName$)
    

    二、封装函数

    
    '读配置文件(简化函数调用)
    Public Function ReadIni(ByVal AppName As String, ByVal KeyName As String, ByVal DefaultValue As String, Optional IniPath As String) As String
        Dim Buf As String
        Dim ret As Integer
        Dim tmp As String
        Buf = String(1024, 0) 'buf=10240
        If IniPath = "" Then
            ret = GetPrivateProfileString(AppName, KeyName, DefaultValue, Buf, 1024, App.Path + "\config.ini")
        Else
            ret = GetPrivateProfileString(AppName, KeyName, DefaultValue, Buf, 1024, IniPath)
        End If
        tmp = Mid(Buf, 1, ret)
        If InStr(1, tmp, Chr(0)) > 0 Then tmp = Left(tmp, InStr(1, tmp, Chr(0)) - 1)
        ReadIni = tmp
    End Function
    '写配置文件(简化函数调用)
    Public Function WriteIni(ByVal AppName As String, ByVal KeyName As String, ByVal KeyValue As String, Optional IniPath As String = "") As Boolean
        If IniPath = "" Then
            WritePrivateProfileString& AppName, KeyName, KeyValue, App.Path + "\config.ini"
        Else
            WritePrivateProfileString& AppName, KeyName, KeyValue, IniPath
        End If
    End Function
    
    

    三、使用函数

       WriteIni "pronum", "num", 123 '写入ini
       num = ReadIni("pronum", "num", "0")  '读出ini
    
    展开全文
  • VB 读取INI文件通用类模块代码及说明,INI经常被用作配置文件,本类主要是方便用户对INI文件的各种操作,而编写的一个类模块,包括有很多函数和方法,并附有一个使用说明。
  • VB.NET中对INI文件进行读写操作
  • VB读写ini文件.rar

    2019-07-09 09:12:55
    VB读写ini文件
  • VB读写ini文件

    千次阅读 2007-08-20 18:44:00
    VB读写ini文件(1)自从注册表诞生以来ini文件正在逐渐失去其市场占有率,然而基于ini文件的独立性,致使其还没有到达退出历史舞台的地步,很多应用程序的初始化和一些界面参数的设置仍然很愿意从ini文件中读取,...

    VB读写ini文件(1)

    自从注册表诞生以来ini文件正在逐渐失去其市场占有率,然而基于ini文件的独立性,致使其还没有到达退出历史舞台的地步,很多应用程序的初始化和一些界面参数的设置仍然很愿意从ini文件中读取,为了保证操作需用参数对ini文件的读取的通明性,建议使用一个模块来完成此工作。注:所有操作调用标准的Win API函数来完成。
      Dim Ret As Long
      Dim Start As Long
      Public FileName As String
      Const BufSize = 10240
      Dim buf As String * BufSize
      Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
      
      Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
      
      Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
      
      Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
      
      Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
      
      Public Sub SetValue(ByVal clsName As String, ByVal key As String, ByVal V As String)
       Ret = WritePrivateProfileString(clsName, key, V, FileName)
      End Sub
      
      Public Function GetValue(ByVal clsName As String, ByVal key As String) As String
       Ret = GetPrivateProfileString(clsName, key, "", buf, BufSize, FileName)
       Start = 1
       GetValue = RetStr()
      End Function
      
      Private Function RetStr() As String
       Dim i As Long
       i = InStr(Start, buf, Chr(0))
       If i > Start Then
       RetStr = Mid(buf, Start, i - Start)
       End If
       Start = i + 1
      End Function
      
      至此已经完成了对一个完整的独立模块的封装,接下来就来看看怎么引用(其实看完上面程序就明了了)

    VB读写ini文件(2)

    INI 文件是什么样子?——不会吧,这都不知道。INI 文件就是 Windows 中常见的以 .ini 为扩展名的文件,其内部格式和各部分的名称如下:

       [Section1]
    Key1=Value1
    Key2=Value2
    Key3=Vlaue3

    [Section2]
    Key1=Value1
    Key2=Value5
    Key4=Value4
    Key5=...

    ...


      INI 文件中分若干个段 (Section),每个段中有若干个键 (Key) 值 (Value) 对。一个键值对保存一个信息;段则将属性类似的一些键值对组织在一起。同一个段中不能出现两次以上同样的键,但不同的段中可以出现相同的键。

      现在明白了吗?要是还不明白,就到 Windows 里找两个 INI 文件看看,文本编辑器就可以打开的。明白了 INI 文件就要开始学习怎样在 VB 中读写 INI 了。

      VB 读写 INI 文件,难吗?不难,因为 Windows 已经为我们做好了一切,我们只需要调用它的 API 函数就可以了。为了读写 INI 文件,我们可能用到以下 API 函数:

      GetPrivateProfileInt
      GetPrivateProfileString
      WritePrivateProfileString

      其中 WritePrivateProfileString 是用来向 INI 文件写信息的,而 GetPrivateProfileInt 和 GetPrivateProfileString 则是用来从 INI 文件中读信息的,前者用于读取整型数据,后者则用于读取字符串型数据。

      上述三个 API 函数在 VB 中的申明和说明如下:

       Private Declare Function GetPrivateProfileInt Lib "kernel32" _
    Alias "GetPrivateProfileIntA" ( _        ' 返回所读取的长整型值
         ByVal lpApplicationName As String, _     ' 要读取的段 (Section) 名称
         ByVal lpKeyName As String, _             ' 要读取的的键 (Key) 名称
         ByVal nDefault As Long, _                ' 指定默认值,如果读取时出错,则返回该值
         ByVal lpFileName As String) As Long      ' 指定要读的 INI 文件名

    Private Declare Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringA" ( _     ' 返回所读取的字符串值的真实长度
         ByVal lpApplicationName As String, _     ' 要读取的段 (Section) 名称
         ByVal lpKeyName As Any, _                ' 要读取的的键 (Key) 名称
         ByVal lpDefault As String, _             ' 指定默认值,如果读取时出错,则返回该值
         ByVal lpReturnedString As String, _      ' 指定接收返回值的字符串变量
         ByVal nSize As Long, _                   ' 指定允许字符串值的最大长度
         ByVal lpFileName As String) As Long      ' 指定要读的 INI 文件名

    Private Declare Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringA" ( _   ' 如果成功返回非 0 值,失败返回 0
         ByVal lpApplicationName As String, _     ' 要写入的段 (Section) 名称
         ByVal lpKeyName As Any, _                ' 要写入的的键 (Key) 名称
         ByVal lpString As Any, _                 ' 要写入的值 (Value),以字符串表示
         ByVal lpFileName As String) As Long      ' 指定要写的 INI 文件名


      我们的目的是要在 VB 中写一个读写 INI 文件的类,所以在 VB 中新建一个工程,并添加一个类模块 (Class Module),命令类为 CIniFile,并且将上面的申明添加到类模块中。然后开始为类添加属性和方法。

      从上面的注释中,我们可以知道,每次调三个 API 之一都需要指定 INI 文件名。而在我们的 CIniFile 的每一个实例中,应该始终访问同一个 INI 文件,所以属性之一就是文件名:

      Private IniFileName As String

      另外,调用 API 的过程中可能会出现错误,那么 CIniFile 应该能提供错误信息,所以定义一个保存错误信息的变量作为 CIniFile 的第二个属性

      Public ErrorMsg As String

      由于访问什么段、什么键以及写入什么值都可以通过参数的形式传递给方法,而获取的值也都可以通过方法的返回值得以,所以不再需要其它属性了。不过在定义方法之前还需要对属性进行初始化:

       Private Sub Class_Initialize()
         IniFileName = vbNullString
         ErrorMsg = vbNullString
    End Sub


      为了指定 INI 文件名给 CIniFile,需要定义一个方法:

       Public Sub SpecifyIni(FilePathName)
         IniFileName = Trim(FilePathName)
    End Sub


      在每次读写值之前还需要先判断是否已经指定了 INI 文件名,不然读什么写什么啊?

       Private Function NoIniFile() As Boolean
         NoIniFile = True
         If IniFileName = vbNullString Then
             ErrorMsg = "没有指定 INI 文件"
             Exit Function
         End If
         ErrorMsg = vbNullString
         NoIniFile = False
    End Function


      准备工作完成,现在才是重头戏,读写 INI 文件。似乎“写”要简单一些,就先“写”吧:

       Public Function WriteString(Section As String, key As String, Value As String) As Boolean
         WriteString = False
         If NoIniFile() Then
             Exit Function
         End If
         If WritePrivateProfileString(Section, key, Value, IniFileName) = 0 Then
             ErrorMsg = "写入失败"
             Exit Function
         End If
         WriteString = True
    End Function


      该方法在 INI 文件中写入一个键值,成功返回 True,失败返回 False。根据 WritePrivateProfileString 的需要,除了文件名这一参数不用提供之外,需要提供段名、键名和值三个参数,而且这三个参数当然来自用户。而 WritePrivateProfileString 是通过返回值是否为 0 来判断是否成功的,所以可以通过判断 WritePrivateProfileString 的返回值是否非 0 来返回 True 或 False。

      而读 INI 就要稍稍麻烦一点了,两个读取 INI 文件的的函数中,读取字符串那个虽然参数多些,但实现起来却更简单,所以,先写这个:

       Public Function ReadString(Section As String, key As String, Size As Long) As String
         Dim ReturnStr As String
         Dim ReturnLng As Long
         ReadString = vbNullString
         If NoIniFile() Then
             Exit Function
         End If
         ReturnStr = Space(Size)
         ReturnLng = GetPrivateProfileString(Section, key, vbNullString, ReturnStr, Size, IniFileName)
         ReadString = Left(ReturnStr, ReturnLng)
    End Function


      这个方法在 INI 文件中读取一个键值,作为字符串返回。如果参数 Size 给定的大小不够,将不能返回完整的值串,但不会有任何提示。

      写这个函数的关键在 ReturnStr 的初始化和取值上。VB 中是不需要对字符串进行初始化的,也不需要分配空间。但是这里如果不将它初始化为一个足够长的字符串,就不能正确返回结果。这和 C 语言的字符串有关,就不多说了。ReturnStr 的取值也需要有趣,要使用 Left() 函数将其截断。如果不截断,取得的结果字符串就会有 Size 那么长,除了取得的值以外,其余部分都是用空格填充的。其原因与前面一点相同,与 C 语言的字符串有关。当然 Left() 函数也可以使用 Trim() 代替,效果是一样的。

      最后我们不得不面对这个最麻烦的 ReadInt 方法了。它为什么麻烦呢?看看现在的函数定义就知道了:

       Public Function ReadInt(Section As String, key As String) As Long
         Dim ReturnLng As Long
         ReadInt = 0
         ReturnLng = GetPrivateProfileInt(Section, key, 0, IniFileName)
         If ReturnLng = 0 Then
             ReturnLng = GetPrivateProfileInt(Section, key, 1, IniFileName)
             If ReturnLng = 1 Then
                 ErrorMsg = "不能读取"
                 Exit Function
             End If
         End If
         ReadInt = ReturnLng
    End Function


      这个方法在 INI 文件中读取一个整数值,失败时返回 0。考虑到某些键的值也可能为 0,故应结合 ErrorMsg 判断是否成功。

      这个方法中调用了两次 GetPrivateProfileInt,为什么要这样呢?因为 GetPrivateProfileInt 如果成功则返回取得的值,如果不成功则返回给定的默认值。这样就会出现一种情况:如果我给的默认值是 0,GetPrivateProfileInt 函数取得的值也是 0,那么它是成功还是失败呢?同样,如果我给的默认值是 1,GetPrivateProfileInt 函数取得的值也是 1,那就是成功还是失败呢?既然一次取值无法判断,那就多取一次,第一次设定默认值为 0,第二次设定默认值为 1,INI 文件的中值不会跟着我的默认值变吧?!虽然这样麻烦一些,但毕竟把问题解决了。

      自此,我们终于把一个 CIniFile 写完了——现在读写 INI 文件再也不需要像写 CIniFile 一样考虑许多东西了,CIniFile 已经帮我们做了。

    VB读写ini文件(3)

    我们在制作应用程序时,经常要用到INI文件,INI文件是一种非常有用的文件,它由节、关键字和值组成。但是VB并没有给提供读取INI文件的函数。我们可以通过Windows API函数中有相应的函数,来实现读取INI文件,但每次使用都必须声明。

    1.读INI文件
    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
    lpApplicationName:   节的名字
    lpKeyName:      关键字
    lpReturnedString:    返回的字符串
    lpFileName:      ini文件的名称

    2.写INI文件
    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
    lpApplicationName:   节的名字
    lpKeyName:      关键字
    lpString:      要改变的值
    lpFileName:      ini文件的名称

    应用举例:
    '文件名SourceDB.ini文件
    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

    '以下两个函数,读/写ini文件,固定节点setting,in_key为写入/读取的主键
    '仅仅针对是非值
    'Y:yes,N:no,E:error
    Public Function GetIniTF(ByVal In_Key As String) As Boolean
    On Error GoTo GetIniTFErr
    GetIniTF = True
    Dim GetStr As String
    GetStr = VBA.String(128, 0)
    GetPrivateProfileString "Setting", In_Key, "", GetStr, 256, App.Path & "/SourceDB.ini"
    GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")
    If GetStr = "1" Then
    GetIniTF = True
    GetStr = ""
    Else
    GoTo GetIniTFErr
    End If
    Exit Function
    GetIniTFErr:
    Err.Clear
    GetIniTF = False
    GetStr = ""
    End Function

    Public Function WriteIniTF(ByVal In_Key As String, ByVal In_Data As Boolean) As Boolean
    On Error GoTo WriteIniTFErr
    WriteIniTF = True
    If In_Data = True Then
    WritePrivateProfileString "Setting", In_Key, "1", App.Path & "/SourceDB.ini"
    Else
    WritePrivateProfileString "Setting", In_Key, "0", App.Path & "/SourceDB.ini"
    End If
    Exit Function
    WriteIniTFErr:
    Err.Clear
    WriteIniTF = False
    End Function


    '以下两个函数,读/写ini文件,不固定节点,in_key为写入/读取的主键
    '针对字符串值
    '空值表示出错
    Public Function GetIniStr(ByVal AppName As String, ByVal In_Key As String) As String
    On Error GoTo GetIniStrErr
    If VBA.Trim(In_Key) = "" Then
    GoTo GetIniStrErr
    End If
    Dim GetStr As String
    GetStr = VBA.String(128, 0)
    GetPrivateProfileString AppName, In_Key, "", GetStr, 256, App.Path & "/SourceDB.ini"
    GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")
    If GetStr = "" Then
    GoTo GetIniStrErr
    Else
    GetIniStr = GetStr
    GetStr = ""
    End If
    Exit Function
    GetIniStrErr:
    Err.Clear
    GetIniStr = ""
    GetStr = ""
    End Function

    Public Function WriteIniStr(ByVal AppName As String, ByVal In_Key As String, ByVal In_Data As String) As Boolean
    On Error GoTo WriteIniStrErr
    WriteIniStr = True
    If VBA.Trim(In_Data) = "" Or VBA.Trim(In_Key) = "" Or VBA.Trim(AppName) = "" Then
    GoTo WriteIniStrErr
    Else
    WritePrivateProfileString AppName, In_Key, In_Data, App.Path & "/SourceDB.ini"
    End If
    Exit Function
    WriteIniStrErr:
    Err.Clear
    WriteIniStr = False
    End Function



    展开全文
  • 利用vb读取ini文件

    2009-06-08 17:15:32
    VB 读写 ini文件 相当使用的一个类,建议大家看以下
  • VB6读取INI文件

    千次阅读 2017-12-06 10:03:15
    程式版本更新, 读取INI文件做对比, 确认版本是否最新. 可用VB6的工具下的API检视员来自动生成API调用代码. INI文件内容: [Version] TEST=2017-11-20 00:00:00 调用API. Private Declare Function ...
  • VB读写ini文件的模块

    2012-03-19 15:43:59
    在进行程序开发时,经常要用到系统的参数配置,利用VB语言对INI文件进行读写,是我们经常要做的事。
  • vb读取ini文件 www.52yyg.com提供
  • VB读写ini文件 将当前时间写入ini文件中 从ini文件中读取刚才存储的时间
  • ini文件读、写、修改等都放在doc文档里,简单明了,分类很细
  • vb.net vs2008读取INI文件示例,ini文件名为 Send.ini,代码中包括了一个读ini API函数。  Ini文件说明:  [节名] []中的节名对应此API的第一参数  Name=内容 Name对应此API的第二参数  API的第三参数是没有取到...
  • 完美的VB读写INI文件模块,包含清晰注释,修改扩展名后可以直接使用。
  • VB实际读写INI文件

    2021-01-31 22:45:00
    txtBuff=Space(1000) '读取INI文件(主项名,子项名,空,读取子项名值,读取字符串长度,路径) Call GetPrivateProfileString(txtym1, txtym2, “”, txtBuff, Len(txtBuff), ULR) '显示实际字符串。取"txtBuff"左边的...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,166
精华内容 1,266
关键字:

vb读取ini文件