导航:首页 > 文件教程 > vbnet读写配置文件

vbnet读写配置文件

发布时间:2023-02-14 03:49:26

『壹』 vb.net 配置文件怎么写

简单的办法就是:文本文件或者数据库文件。

『贰』 vb.net都可以读取哪些格式的文件

基本都能读取,文本类型的完全没问题,高级文本比如DOC等文档需要一些控件、算法支持。理论上来说全都支持,但是如何访问就要看技术。参数等信息一般保存在配置文件、XML文件、注册表中 追问: 配置文件是什么格式的文件 回答: 是以INI为后缀名,但是是TXT 文件格式 ,文 本格 式,可以用记事本打开。于普通文本格式不同的是,INI里面的信息都是有一定规律的存放。便于再次读写

『叁』 VB.NET2010读取INI配置文件问题

设计一个读取函数
说明:在引用的面页中要先引用 Imports System.IO

Function sdGetIniInfo(ByVal iniFile As String, ByVal iniSection As String) As String
If Not File.Exists(iniFile) Then
Return "文件 " & iniFile & " 未找到,请确认路径和文件名是否正确!"
Exit Function
End If

Dim iniRead As New StreamReader(iniFile) Dim iniStr As String = iniRead.ReadToEnd
Dim i As Integer
Dim cLine As Integer
Dim noSec As Boolean = False
Dim getValue As String = ""
Dim cLst

cLst = iniStr.Split(Chr(13)) cLine = UBound(cLst)
For i = 0 To cLine
If cLst(i).indexof("=") > 0 Then
If cLst(i).split("=")(0).trim() = iniSection Then
noSec = True
getValue = cLst(i).split("=")(1).trim()
Exit For
End If
End If
Next

If noSec = True Then
Return getValue
Else
Return "没有找到 " & iniSection & " 的设置信息!"
End If
End Function

==========================================
TEXT1=sdGetIniInfo(路径,“Name”)
其他类似
其实,无论ini和xml都是文本文件,只是带了一些格式,或者叫数据结构吧,归根到底都是用文件操作来实现,一些函数也只不过是封装好了的文件读写操作而已!

这不是api,就是自己写个函数!

『肆』 vb.net2008读取INT配置文件

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

『伍』 VB中配置文件怎么用

vb读写ini 这个方法在vb.net自带都有 你可以在vb.net创建一个ini 在.net叫config 主要方法 思想和 读写 .txt文件一样 对字符串操作。

『陆』 求大神指点 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 读取配置文件,求大神帮忙!急急急!!!!!

element.value

『玖』 请教在VB.net中如何将数据写入txt文件、再从txt文件读出

写入:
Open "D:\123.txt" For Output As #1 '打开XXX路径的XXX文件(双引号里表示文件位置和文件名)
Print #1, Text1.Text '写入Text1的Text内容
Close #1 '关闭版
读取:权
Open "D:\123.txt" For Input As #1 '打开打开XXX路径的XXX文件(双引号里表示文件位置和文件名)
Do While Not EOF(1)
Line Input #1, s
Text1.Text = s
Loop 'Do...Loop表示循环读取文件的内容,并让Text1.Text=内容
Close #1 '关闭

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

使用ConfigurationSettings.AppSetting读取,如下例
Imports System.Configuration
Private ReadOnly db As String = ConfigurationSettings.AppSettings("DB")

阅读全文

与vbnet读写配置文件相关的资料

热点内容
java高低字节 浏览:105
win10安全模式也死机 浏览:159
最简单的数据库开发软件 浏览:718
迅雷下载网络断开 浏览:792
考勤系统数据库在哪个文件夹 浏览:134
creo30绘图配置文件设置 浏览:624
苹果ID被锁要交600元交不交 浏览:29
实例化module配置文件失败 浏览:872
网站源码是什么东西 浏览:90
怎样打开桌面隐藏文件 浏览:904
拯救者的颜色配置文件 浏览:860
微信转发朋友圈送礼品 浏览:905
新电脑装win10教程 浏览:130
linux文件执行授权 浏览:618
微信文件如何删除重新打开 浏览:897
删了他微信他又来加 浏览:283
苹果备忘录文件夹备份 浏览:233
手机查看db文件 浏览:248
银卡app密码怎么改 浏览:995
winxp无线网络显示红叉 浏览:71

友情链接