vb.net读写配置

vb.net读写txt文件的问题

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

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

'定义读取配置文件函数

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

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)

'定义INI文件位置

Dim?path?As?String

那么读取的时候：

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

写入的时候：

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

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

[main]

[aaa]

abc=1

[bbb]

ni=wo

wo=ta

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用IO对C盘进行操作,很多都要权限,我只想保存写程序的配置信息,写到哪个位置比较好?

Windows 提供了专门的 UserData 目录用来存放程序需要读写的文件（你会发现很多游戏存档都在这个目录底下）,访问这个目录是不需要管理员权限的,你可以在这个目录下建一个你的程序专属的文件夹,往里面存放文件.

默认是在 C:\ProgramData（如果是 XP 的话是 C:\Documents and Settings）下.但一般不建议硬编码这个地址,一来你还得自行判断操作系统版本,二来用户是可以修改这个目录的路径的.

好在系统提供了一个环境变量 %ProgramData% 来指向这个地址,用它就可以了.

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

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

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

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

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

If (IsSms = 1) Then

Me.RadioButton1.Checked = True

ElseIf (IsSms = 0) Then

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

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)

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

Try

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

If (Me.RadioButton1.Checked = True) Then

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

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

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

Catch ex As Exception

MsgBox("错误！！！！")

End Try

以上就是土嘎嘎小编为大家整理的vb.net读写配置相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！