版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 

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 教程 目录

 

 

 

 

————————————————

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

原文链接：https://blog.csdn.net/uruseibest/article/details/79307276