科普：
.ini 文件，即Initialization File的缩写，是Windows系统配置文件所采用的存储格式，负责管理Windows的各种配置。通常，用户可以通过Windows提供的图形化管理界面来实现相同的配置，但在某些情况下，直接编辑.ini文件会更加方便。不过，这通常需要对Windows系统有较深入的了解。
.ini文件最初用于WIN3X系统，后来在WIN95中被注册表所取代。文件中的节相当于注册表中的键。
应用：
用户名记录：类似于QQ，可以记住用户名和密码，下次打开软件时直接加载，避免用户重复输入用户名和密码。
软件配置记录：可以记录软件自身的配置，下次打开时直接加载。
写入操作及文件展示：
标书对比王
标书对比王是一款标书查重工具，支持多份投标文件两两相互比对，重复内容高亮标记，可快速定位重复内容原文所在位置，并可导出比对报告。
58 查看详情
读取及展示：
用法示例：
Dim a As New cls_inia.insert_ini("vb小源码公众号", "vb小源码公众号作者", "巴西_prince")TextBox1.Text = a.getstr_ini("vb小源码公众号", "vb小源码公众号作者", "")
类文件源码：
Imports System.IOPublic Class cls_ini'''
''' 定义获取ini整数型的ini值''' ''' 节点名''' 配置项名''' 要获得的值''' 文件路径''' ''' Private Declare Function get_intini Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal node_ini As String, ByVal key_ini As String, ByVal getvalue As Integer, ByVal path_ini As String) As Integer'''''' 定义获取ini字符串类型的值''' ''' 节点名''' 配置项名''' 要获得的值''' 获得缓冲值''' 获得缓冲值长度''' 文件路径''' ''' Private Declare Function get_str_ini Lib "kernel32" Alias "GetPrivateProfileStringA" _ (ByVal node_ini As String, ByVal key_ini As String, ByVal get_value As String, ByVal _ buf_value As String, ByVal buf_length As Integer, ByVal path_ini As String) As Integer'''''' 定义向ini写入字符串值''' ''' 节点名''' 配置项名''' 要写入的值''' 文件路径''' ''' Private Declare Function insetr_value_ini Lib "kernel32" Alias "WritePrivateProfileStringA" _ (ByVal node_ini As String, ByVal key_ini As String, ByVal set_value As String, ByVal path_ini _ As String) As Integer'''''' 从INI配置文件中获取类型为Int的配置项的值''' ''' 节点名''' 配置项名''' 获取值''' ''' Public Function getint_ini(ByVal node_name As String, ByVal key_Name As String, ByVal get_Value As Integer) As Integer getint_ini = get_int_ini(node_name, key_Name, get_Value, create_ini)End Function'''''' 从INI配置文件中获取类型为string的配置项的值''' ''' 节点名''' 配置项名''' 获取值''' ''' Public Function getstr_ini(ByVal node_name As String, ByVal key_Name As String, ByVal get_Value As String) As String Dim buf_value As String Dim get_str As Integer buf_value = Space(256) get_str = get_str_ini(node_name, key_Name, get_Value, buf_value, buf_value.Length, create_ini) getstr_ini = Left(buf_value, InStr(buf_value, vbNullChar) - 1)End Function'''''' 向INI配置文件中写入类型为string的配置项的值''' ''' 节点名''' 配置项名''' 设置值''' ''' Public Function insert_ini(ByVal node_name As String, ByVal keyName As String, ByVal set_value As String) As Integer Dim get_str As Integer get_str = insetr_value_ini(node_name, keyName, set_value, create_ini) If get_str Then get_str = 1 End If insert_ini = get_strEnd FunctionPrivate Function create_ini() As String Dim path As String = "" Dim fd_path As String = "" fd_path = "C:Users" & Environment.UserName & "AppDataRoamingvb_小源码" path = "C:Users" & Environment.UserName & "AppDataRoamingvb_小源码vb_小源码.ini" If Directory.Exists(fd_path) = False Then Directory.CreateDirectory(fd_path) If Not File.Exists(path) Then File.Create(path) Return pathEnd FunctionEnd Class
以上就是VB.NET 对ini配置文件操作类的详细内容，更多请关注创想鸟其它相关文章！
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 chuangxiangniao@163.com 举报，一经查实，本站将立刻删除。
发布者：程序猿，转转请注明出处：https://www.chuangxiangniao.com/p/375328.html
微信扫一扫 
支付宝扫一扫 
