vb.net.ini的简单介绍

求大神指点 vb.net 怎么读 ini 配置呢

VB.NET读写INI配置文件

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim path As String

        path = Application.StartupPath + "\Send.ini"

        TextBox1.Text = GetINI("Send", "Send1", "", path)

        TextBox2.Text = GetINI("Send", "Send2", "", path)

        Dim IsSms As Integer = GetINI("Send", "IsSms", "", path)

        If (IsSms = 1) Then

            Me.RadioButton1.Checked = True

        ElseIf (IsSms = 0) Then

            Me.RadioButton2.Checked = True

        End If

    End Sub

    Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String

        Dim Str As String = LSet(Str, 256)

        GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)

        Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)

    End Function

    Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long

        WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)

    End Function

    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 Int32, ByVal lpFileName As String) As Int32

    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim path As String

            path = Application.StartupPath + "\Send.ini"

            WriteINI("Send", "Send1", TextBox1.Text, path)

            WriteINI("Send", "Send2", TextBox2.Text, path)

            If (Me.RadioButton1.Checked = True) Then

                WriteINI("Send", "IsSms", 1, path)

            ElseIf (Me.RadioButton2.Checked = True) Then

                WriteINI("Send", "IsSms", 0, path)

            End If

            MsgBox("配置设置已经成功！！！！")

        Catch ex As Exception

            MsgBox("错误！！！！")

        End Try

    End Sub

相关问答

Q1: VB.NET怎么删除INI文件里的一个字段或键值？

1，对于INI文件，可以当做像TXT文件一样来进行读取和写入。

2，先把整个文件度出来，然后找到相应行删除（抛弃）以后，再重新写入文件。

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim MyStr As String = ""

        Dim AllStr As String = ""

        '获取一个可用的文件号

        Dim MyFileNum As Integer = FreeFile()

        '打开指定的文件，进行读取操作

        FileOpen(MyFileNum, "C:\My.ini", OpenMode.Input)

        Do While Not EOF(MyFileNum)

            '读取一行

            MyStr = LineInput(MyFileNum)

            If MyStr  "b=2" Then

                If AllStr = "" Then

                    AllStr = AllStr  MyStr

                Else

                    AllStr = AllStr  vbCrLf  MyStr

                End If

            End If

        Loop

        FileClose(MyFileNum)   '关闭文件

        '写文件

        Dim MyStream As New System.IO.FileStream("C:\My.ini", IO.FileMode.Create)

        Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.UTF8)

        MyWriter.WriteLine(AllStr)

        MyWriter.Flush()

        MyWriter.Close()

        MyStream.Close()

    End Sub

End Class

Q2: vb.net 读取ini的所有值

Dim s As String() = System.IO.File.ReadAllLines("t.ini") '文件

For i As Integer = 0 To s.Length - 1

    Dim si As Integer = s(i).IndexOf("=")

    If si  -1 Then

        ListBox1.Items.Add(s(i).Substring(0, si)  " = "  s(i).Substring(si + 1))

    End If

Next

's(i).Substring(0, si)是变量名，s(i).Substring(si + 1)是值

Q3: vb.net 关于ini的问题

INI文件不便于操作，使用Settings跟简单、高效！

先添加一个Settings设置

再调用这个参数

就算重新启动 这个参数还是可以保留

没听懂？

两句说不清楚，可以远程协助。