版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
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 教程 目录