vb.net 教程 4-12 ini文件操作 1 ini文件的读取

港控/mmm° 2022-09-10 12:15 195阅读 0赞

ini文件（Initialization File）常用作windows的系统配置文件，主要用于早期Windows系统（如win98）保存配置使用，由于后来Windows配置大量使用注册表保存，现在一般的配置文件常用xml文件保存，因此到现在此类文件用的越来越少，不过还是有必要介绍一下它的读写。

ini文件的结构：  
ini文件由节（section）、键（Key）、键值（Value）构成。  
通常情况节包含在中括号里面，键等于键值。如下：

;分号表示的是注释内容  
\[section\]  
KeyName=KeyValue

本节文件用到的样例：

;这是一个ini文件的样例  
\[control\]  
appname=ini文件读写  
port=COM4

保存于d盘 setting.ini。

设计窗体：

使用到的API函数 GetPrivateProfileString ,定义如下：

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 Integer,  
        ByVal lpFileName As String) As Integer  
参数说明：  
lpApplicationName：ini文件节名称  
lpKeyName：ini文件，lpApplicationName节下的键名称  
lpDefault：如果lpKeyName不存在时，返回的值  
lpReturnedString ：放置返回值的缓冲区，我们在使用此api函数前，应该先分配此缓冲区。  
nSize ：缓冲区的大小  
lpFileName ：ini文件全路径，如果不是全路径，那么程序将使用Windows系统的路径。

返回值：

如果正确获得了键值，那么返回键值的长度。否则返回0。

注意，该Api函数的定义，应当包含在Public Class Form1 内

定义窗体级变量：

Dim filename As String

窗体载入时候：

Private Sub Form1\_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
        filename = "d:\\setting.ini"  
        Dim comPort As String  
        For i As Integer = 1 To 10  
            ComboBox1.Items.Add("COM" & i)  
        Next  
    End Sub  
当按钮按下时，读取ini中的数据：

Private Sub Button1\_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        Dim Rvalue As Integer  
        Dim BufferSize As Integer  
        BufferSize = 255  
        Dim keyValue As String  
        keyValue = Space(BufferSize)  
        Dim sectionName As String  
        sectionName = "control"  
        Dim keyName As String  
        keyName = "appname"  
        Rvalue = GetPrivateProfileString(sectionName, keyName, "", keyValue, BufferSize, filename)  
        If Rvalue = 0 Then  
            keyValue = "(没有获得相应的值)"  
        Else  
            keyValue = keyValue.Substring(0, Rvalue)  
        End If  
        TextBox1.Text = keyValue  
        keyName = "port"  
        keyValue = Space(BufferSize)  
        Rvalue = GetPrivateProfileString(sectionName, keyName, "", keyValue, BufferSize, filename)  
        If Rvalue = 0 Then  
            keyValue = "(没有获得相应的值)"  
        Else  
            keyValue = keyValue.Substring(0, Rvalue)  
        End If  
        ComboBox1.Text = keyValue  
    End Sub

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参看[vb.net教程][vb.net]目录

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721