精华内容
下载资源
问答
  • NI文件的读取 INI文件是Windows系统最早采用的文本文件格式,在C:驱动器根目录中往往都会存在着一个隐藏的boot.ini文件,它用来定义计算机启动时显示的系统... 一个ini文件读写类的设计和实现 bichengguibichenggui ...
  • VB.NET中对INI文件进行读写操作
  • VB控件配置信息写入INI文件保存的例子,可看作是INI配置文件用法的例子,不仅可以保存控件的相关参数,还可作为应用程序的配置文件,在手机开发、WinForm程序和WEB开发中,INI文件都是使用非常频繁的。因此来说,这...
  • 内容索引:VB源码,界面编程,窗体控制,INI 有时候,我们需要将VB窗体控件中的值临时写入INI文件,给控件加入“记忆”功能,这样用户在输入的时候就保存了这些值,下次打开会自动显示出这些值,本程序就是实现这一功能...
  • vb ini文件读取与写入

    2014-12-18 15:51:42
    vb ini配置文件的读取与写入
  • 内容索引:VB源码,文件操作,INI VB生成INI文件的一个例子,可按要求将内容写入INI文件中,并读取这些内容。友情提示:测试文件test.ini放在C盘下,参数一: Section Name。  参数二: 于.ini中的项目。  参数三...
  • 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

    千次阅读 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
    
    展开全文
  • 通过一个设置数据库连接信息的例子,说明怎样利用VB6.0程序对.ini文件进行读写操作。
  • (密码:liehuo.net)VB 生成指定路径INI文件,并读取INI内容信息的一个例子,可按要求将内容写入INI文件中,并读取这些内容。友情提示:测试文件test.ini放在C盘下,参数一: Section Name。 参数二: 于.ini中的...
  • 利用vb读取ini文件,并写入excel
  • '这就是说,你可以赋值给iniFileName就可以写入记录,而且你可以随时写入不同的ini文件(不管这个文件是否已存在),通过修改这个公用变量。 '然后 DelInikey(ByVal SectionName As String, ByVal KeyWord As ...
  • vb读取和写入Windows的INI文件,例子。包含代码,可以直接使用
  • VB实际读写INI文件

    2021-01-31 22:45:00
    - 1) '把读取到的字符串传递到"STRYMINI"函数 STRYMINI = txtBuff Else '把字符串写入INI文件(主项名,子项名,值,保存INI文件的路径) Call WritePrivateProfileString(txtym1, txtym2, txtym3, ULR) End If End ...

    在窗体上画两个按钮(Command1、Command2),一个输入框(Text1),代码如下:
    Option Explicit
    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

    '注:写入与读取的[主项名]和[子项名]一定要相同!
    Private Function STRYMINI(txtym1 As String, txtym2 As String, txtym3 As String, ONOFF As Boolean) As String
    Dim ULR As String
    ULR = App.Path & “\1.ini” 'INI文件路径
    Dim txtBuff As String
    If ONOFF = True Then '读取
    '定义读取字符串的长度,“Space " 取 实 际 字 符 去 掉 字 符 后 面 多 余 的 空 格 。 t x t B u f f = S p a c e "取实际字符去掉字符后面多余的空格。 txtBuff = Space "txtBuff=Space(1000)
    '读取INI文件(主项名,子项名,空,读取子项名值,读取字符串长度,路径)
    Call GetPrivateProfileString(txtym1, txtym2, “”, txtBuff, Len(txtBuff), ULR)
    '显示实际字符串。取"txtBuff"左边的字符串(取得的字符串,字符串总长度(去掉字符串右边多余的空格字符(取得的字符串))得出字符串实际长度多一个,因此减1)
    txtBuff = Left ( t x t B u f f , L e n ( R T r i m (txtBuff, Len(RTrim (txtBuff,Len(RTrim(txtBuff)) - 1)
    '把读取到的字符串传递到"STRYMINI"函数
    STRYMINI = txtBuff
    Else
    '把字符串写入INI文件(主项名,子项名,值,保存INI文件的路径)
    Call WritePrivateProfileString(txtym1, txtym2, txtym3, ULR)
    End If
    End Function

    '写入数据:
    Private Sub Command1_Click()
    Call STRYMINI(“主项名”, “子项名”, Text1.Text, False)
    End Sub

    '读取数据
    Private Sub Command2_Click()
    Dim Txt As String
    Txt = STRYMINI(“主项名”, “子项名”, “”, True)
    If Txt <> “” Then Text1.Text = Txt
    End Sub

    展开全文
  • vb.net 读写ini文件

    千次阅读 2016-01-16 22:19:55
    '********************************* '****INIファイル操作クラス******** '********************************* Public Class INIOper  '[PATH]  'TempPath=C:\Temp\Temp.pdf  '[XXXX]  'xxxxPath=C:\

    '*********************************
    '****INIファイル操作クラス********
    '*********************************
    Public Class INIOper


        '[PATH]
        'TempPath=C:\Temp\Temp.pdf
        '[XXXX]
        'xxxxPath=C:\Temp\xxx.xls



        Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
        Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32


        'Ini Keyを読み込む
        Public Shared Function GetINI(ByVal Section As String, ByVal AppName As String) As String
            Dim Str As String = LSet(Str, 256)
            GetPrivateProfileString(Section, AppName, "", Str, Len(Str), System.Windows.Forms.Application.StartupPath + "\\Health.ini")
            Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)
        End Function


        'Iniファイルに書く
        Public Shared Function WriteINI(ByVal sectionName As String, ByVal keyName As String, ByVal setValue As String) As Integer
            Dim rc As Integer

            rc = WritePrivateProfileString(sectionName, keyName, setValue, System.Windows.Forms.Application.StartupPath + "\\Health.ini")

            If rc Then
                'ok
                rc = 1
            Else
                rc = 0
            End If
        End Function


    End Class

    ●呼び出し方法:

    Private fn As String = INIOper.GetINI("PATH", "TempPath")

    ●更新方法

    #Region "レジストリ読み込む"
        Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
              ByVal lpApplicationName As String, _
              ByVal lpKeyName As String, _
              ByVal lpDefault As String, _
              ByVal lpReturnedString As String, _
              ByVal nSize As Integer, _
              ByVal lpFileName As String) As Integer

        Public Shared Function GetINI(ByVal iniFileAllPath As String, ByVal sectionNM As String, ByVal keyNm As String) As String
            Const DEF_STR As String = ""
            Dim buffer As String = New String(" ", 1024) 'Spaceが1024文字
            'Dim iniFileAllPath As String = Application.StartupPath & "\test.ini" 'INIファイル名
            Dim ret As Integer = GetPrivateProfileString( _
                sectionNM, keyNm, DEF_STR, buffer, buffer.Length, iniFileAllPath _
                )
            Dim strVal As String = buffer.Substring(0, buffer.IndexOf(Microsoft.VisualBasic.vbNullChar))
            Return strVal
        End Function
    #End Region

    
    
    展开全文
  • Option Explicit On ...Module INI 'INICont.bas Ver 1.0+a INI '==================================================================== 'GetIntFromINI( sectionName , keyName , defaultValue, i...
  • VB操作ini文件的一个实例,包括了一个INI文件操作类,程序演示了读取和写入键值,包括以下功能:  可操作 Ini文件名和错误信息,对ini文件属性进行初始化、指定Ini文件名、向Ini文件写入一个键值,如果键和...
  • VB读写ini文件 将当前时间写入ini文件中 从ini文件中读取刚才存储的时间
  • VB读写ini文件

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

    2021-08-08 09:25:32
    [vb]代码库标准模块:=============================Option ExplicitPrivate Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ...
  • 摘要:VB源码,控件组件,INI 发一个VB INI文件操作模块类,写入INI格式:  Call 写入INI("类", "项", “值”)  读取INI格式:  读取INI("类", "项", "读取不到字符时返回的值")=“值”    读取INI返回值是String...
  • vb读取写入修改ini配置文件示例

    热门讨论 2008-12-30 16:14:39
    vb编写的对INI文件内容读取写入修改的例子.
  • 使用VB。NET创建ini文件写入

    千次阅读 2008-07-15 10:14:00
    一个创建ini文件写入Hello World!的过程需要导入imports system.io Sub writedata() If Not File.Exists("d:/myfile.ini") Then Dim mystream As FileStream mystream = New System.IO.FileStre
  • VB 简单记录ini文件

    2015-07-10 19:27:00
    VB 将信息记录在INI文件,进行读取与写入。代码简单易懂,而且有现成示例程序。方便别人打开程序后要配置设置等,能在本地存储读取。
  • 在我们写的程序当中,总有一些配置信息需要保存下来,以便完成程序的功能,最简单的办法就是将这些信息写入INI文件中,程序初始化时再读入。
  • VB6.0实现读写配置文件(*.ini文件)

    千次阅读 2016-11-04 16:19:02
    VB6.0实现读写配置文件(*.ini文件) 2013-11-08 HydroLIB  文章来源 '声明: Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ...
  • VB6.0基于API的INI文件操作类库,示例程序包括了对该类库的测试单元,可进入写入和读取测试,读写测试循环500次,最终结果为准,看上去要比Windows自带的API效率和速度更高,程序窗口上部主要是对INI文件的读写操作...
  • vb如何读写ini文件

    千次阅读 2007-11-28 08:24:00
    VB中有没有读取INI文件的函数,同样功能的API函数是什么? 回答: VB没有直接读写INI文件的语句,必须借助Windows API来操作INI文件。相应的Windows API函数有两类:一类是GetProfileInt、GetProfileString、...

空空如也

空空如也

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

vb写入ini文件