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

返回值：

如果正确获得了键值，那么返回键值的长度。否则返回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,Rvalue)
        End If
        ComboBox1.Text = keyValue
    End Sub