vb.netini的简单介绍

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)是值

相关问答

Q1: vb.net 关于ini的问题

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

先添加一个Settings设置

再调用这个参数

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

没听懂？

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

Q2: vb.net 读取ini问题

Dim Str As String

Str = ""

Str = LSet(Str, 256)

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

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

Q3: vb.net ini操作

名字有规律，就可以for循环。

名字没有规律，可以想办法让他有规律，一种方法是设置包含所有节名称的string数组，再循环。

Q4: 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

Q5: vb.net读写ini文件问题

以下是我的办法:OK!

Public 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

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

写:

WritePrivateProfileString("存储", "账号", textbox1, Application.StartupPath "\song.ini")

读:

dim s as string

s = string(255," ")

GetPrivateProfileString("存储", "账号", s, s.Length, Application.StartupPath + "\song.ini")

textbox1 =s