求大神指点 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

vb.net中，读取和写入文件

写入：Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")

sr.WriteLine("写入的内容") sr.Close()读取：If (File.Exists(Application.StartupPath "/msg.txt")) Then

Dim fm As New IO.FileStream(Application.StartupPath "/读取的文本.txt", FileMode.Open)

Dim sr As IO.StreamReader = New IO.StreamReader(fm)

Do While sr.Peek() = 0

TextBox1.Text = sr.ReadLine() （读取文本到文本框）

Loop end if

vb.net 2.0 如何用Configuration.ConfigurationSettings.AppSettings读取配置文件中的内容？

使用ConfigurationSettings.AppSetting读取，如下例

Imports System.Configuration

Private ReadOnly db As String = ConfigurationSettings.AppSettings("DB")

vb.net 中如何进行文件的读写

一般来讲asp.net的服务器运行应用所用的账号只有对应用所在目录(放网页的目录)的访问权限，你可以把文件存储在应用所在目录或者子目录试试。

My.Computer.FileSystem.WriteAllText(Server.MapPath("") “\" Now.toString("yyyyMMdd") ".txt", "URL：XXXXXX查询完成，匹配成功！" vbCrLf, true, System.Text.Encoding.Default)

vb.net2008读取INT配置文件

总体思路，当文本文件读，system中有一个io.file对象，可以用readalltext读取txt文件，读完了过后再用string.split函数一个个进行解析，赋值。不过真没听说过INT配置文件，不是INI吗？

vb.net读写txt文件的问题

这个用读写TXT的话比较繁琐，建议题主使用读写INI的方式，参考：

'声明INI配置文件读写API函数

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

'定义读取配置文件函数

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

'定义INI文件位置

Dim path As String

path = "C:\t861239263.ini" '假设是这个文件

那么读取的时候：

TextBox1.Text = GetINI("main","v1","", path)

TextBox2.Text = GetINI("main","v2","", path)

TextBox3.Text = GetINI("main","v3","", path)

写入的时候：

WriteINI("main","v1", TextBox1.Text, path)

WriteINI("main","v2", TextBox2.Text, path)

WriteINI("main","v3", TextBox3.Text, path)

【附】INI文件的格式，范例：

[main]

v1=133233

v2=132387

v3=322333

[aaa]

abc=1

bcd=2

[bbb]

ni=wo

wo=ta

网站名称：vb.net读写配置 vb读写配置文件
文章转载：http://scyanting.com/article/hihpps.html