vb.net 读写ini文件示例

概述Imports System.Collections.GenericImports System.TextImports System.Runtime.InteropServicesPublic Class IniFile Public filePath As String <DllImport("kernel32")> _ Private Sha

imports System.Collections.Genericimports System.Textimports System.Runtime.InteropServicesPublic Class Inifile    Public filePath As String    <Dllimport("kernel32")> _    Private Shared Function WritePrivateProfileString(ByVal section As String,ByVal key As String,ByVal val As String,ByVal filePath As String) As Long    End Function    <Dllimport("kernel32")> _    Private Shared Function GetPrivateProfileString(ByVal section As String,ByVal def As String,ByVal retVal As StringBuilder,ByVal size As Integer,ByVal filePath As String) As Integer    End Function    Public Sub New(ByVal iniPath As String)        filePath = iniPath    End Sub    Public Sub WriteIniValue(ByVal Section As String,ByVal Key As String,ByVal value As String)        WritePrivateProfileString(Section,Key,value,Me.filePath)    End Sub    Public Function ReadIniValue(ByVal Section As String,ByVal Key As String) As String        Dim temp As New StringBuilder(255)        Dim i As Integer = GetPrivateProfileString(Section,"",temp,255,Me.filePath)        Return temp.ToString()    End FunctionEnd Class

　　

 

 

    Private Sub bt_read_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles bt_read.Click        OpenfileDialog.Filter = "ini文件(*.ini)|*.ini"        If OpenfileDialog.ShowDialog = DialogResult.OK Then            Dim filePath As String = OpenfileDialog.filename            If Not filePath.EndsWith(".ini") Then                MsgBox("请选择以INI结尾的文件")            End If            ‘读取配置文件            fileIni = New Inifile(filePath)            cmb_ID.Text = fileIni.ReadIniValue("Implants","ID")            cmb_use.Text = fileIni.ReadIniValue("Implants","use")            cmb_chnum.Text = fileIni.ReadIniValue("Implants","Chnum")            tb_mark.Text = fileIni.ReadIniValue("Implants","Mark")            tb_devID.Text = fileIni.ReadIniValue("Implants","DevID")            tb_modID.Text = fileIni.ReadIniValue("Implants","ModID")            cmb_timenum.Text = fileIni.ReadIniValue("Implants","Timenum")            Dim section As String = "CH"            ‘   (this.Controls["label1" + s.ToString()] as Label).xxx            For i As Integer = 1 To fileIni.ReadIniValue("Implants","Chnum")                Me.Controls("gb_implantsChannleSetting" & i).Controls("cmb_gain" & i).Text = fileIni.ReadIniValue(section & i,"gain")                Me.Controls("gb_implantsChannleSetting" & i).Controls("cmb_pole" & i).Text = fileIni.ReadIniValue(section & i,"pole")                Me.Controls("gb_implantsChannleSetting" & i).Controls("tb_zero" & i).Text = fileIni.ReadIniValue(section & i,"Zero")                Me.Controls("gb_implantsChannleSetting" & i).Controls("tb_range" & i).Text = fileIni.ReadIniValue(section & i,"Range")                Me.Controls("gb_implantsChannleSetting" & i).Controls("tb_clear" & i).Text = fileIni.ReadIniValue(section & i,"Clear")                Me.Controls("gb_implantsChannleSetting" & i).Controls("tb_v_u" & i).Text = fileIni.ReadIniValue(section & i,"V/U")            Next        End If    End Sub

　　

 Private Sub bt_save_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles bt_save.Click        ‘保存配置文件        Dim filePath As String = "setting.ini"        If FolderbrowserDialog.ShowDialog = DialogResult.OK Then            filePath = FolderbrowserDialog.Selectedpath & "\" & filePath            fileIni = New Inifile(filePath)            fileIni.WriteIniValue("Implants","ID",cmb_ID.Text)            fileIni.WriteIniValue("Implants","use",cmb_use.Text)            fileIni.WriteIniValue("Implants","Chnum",cmb_chnum.Text)            fileIni.WriteIniValue("Implants","Mark","ox55")            fileIni.WriteIniValue("Implants","DevID",tb_devID.Text)            fileIni.WriteIniValue("Implants","ModID",tb_modID.Text)            fileIni.WriteIniValue("Implants","Timenum",cmb_timenum.Text)            fileIni.WriteIniValue("CH1","gain",cmb_gain1.Text)            fileIni.WriteIniValue("CH1","pole",cmb_pole1.Text)            fileIni.WriteIniValue("CH1","Zero",tb_zero1.Text)            fileIni.WriteIniValue("CH1","Range",tb_range1.Text)            fileIni.WriteIniValue("CH1","Clear",tb_clear1.Text)            fileIni.WriteIniValue("CH1","V/U",tb_v_u1.Text)            fileIni.WriteIniValue("CH2",cmb_gain2.Text)            fileIni.WriteIniValue("CH2",cmb_pole2.Text)            fileIni.WriteIniValue("CH2",tb_zero2.Text)            fileIni.WriteIniValue("CH2",tb_range2.Text)            fileIni.WriteIniValue("CH2",tb_clear2.Text)            fileIni.WriteIniValue("CH2",tb_v_u2.Text)            fileIni.WriteIniValue("CH3",cmb_gain3.Text)            fileIni.WriteIniValue("CH3",cmb_pole3.Text)            fileIni.WriteIniValue("CH3",tb_zero3.Text)            fileIni.WriteIniValue("CH3",tb_range3.Text)            fileIni.WriteIniValue("CH3",tb_clear3.Text)            fileIni.WriteIniValue("CH3",tb_v_u3.Text)            fileIni.WriteIniValue("CH4",cmb_gain4.Text)            fileIni.WriteIniValue("CH4",cmb_pole4.Text)            fileIni.WriteIniValue("CH4",tb_zero4.Text)            fileIni.WriteIniValue("CH4",tb_range4.Text)            fileIni.WriteIniValue("CH4",tb_clear4.Text)            fileIni.WriteIniValue("CH4",tb_v_u4.Text)        End If

总结

以上是内存溢出为你收集整理的vb.net 读写ini文件示例全部内容，希望文章能够帮你解决vb.net 读写ini文件示例所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。