导航:首页 > 文件教程 > 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读写配置文件相关的资料

热点内容
约克af和利兹数据哪个好 浏览:691
文件夹和标签系统 浏览:559
光明日报图文数据库在哪里 浏览:940
photoshop临时文件夹 浏览:250
手机里为何找不到微信文件夹 浏览:220
cad块文件另存为dwg 浏览:787
photoshop合成两个pdf文件 浏览:354
保密文件如何外借 浏览:763
手机无线密码怎么查看 浏览:821
如何删除己下载未安装的文件 浏览:806
招商银行app怎么登陆二类卡 浏览:508
谷歌浏览器的debug调试工具 浏览:163
哪个数控编程是免费的 浏览:368
苹果7plus玫瑰金报价 浏览:800
杭州自行车系统微信号 浏览:352
网络语偷猪是什么意思 浏览:309
三星i9300线刷教程图解 浏览:248
编程竞赛特训哪里好 浏览:28
提取驱动文件 浏览:102
如何压缩wps文件 浏览:314

友情链接