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)是值
vb.net 关于ini的问题
INI文件不便于操作，使用Settings跟简单、高效！
先添加一个Settings设置
再调用这个参数
就算重新启动 这个参数还是可以保留
没听懂？
两句说不清楚，可以远程协助。
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)
vb.net ini操作
名字有规律，就可以for循环。
名字没有规律，可以想办法让他有规律，一种方法是设置包含所有节名称的string数组，再循环。
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
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
网站栏目：vb.netini的简单介绍
网页地址：http://azwzsj.com/article/dsesjgi.html
