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

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

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版权协议，转载请附上原文出处链接及本声明。