vb.net ini操作

名字有規(guī)律，就可以for循環(huán)。

創(chuàng)新互聯(lián)建站-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比官渡網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式官渡網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋官渡地區(qū)。費(fèi)用合理售后完善，10多年實(shí)體公司更值得信賴。

名字沒有規(guī)律，可以想辦法讓他有規(guī)律，一種方法是設(shè)置包含所有節(jié)名稱的string數(shù)組，再循環(huán)。

VB.NET2010讀取INI配置文件問題？

設(shè)計(jì)功能

說明：第一個(gè)參考頁導(dǎo)入了System.IO

功能sdGetIniInfo（字符串的BYVAL iniSection的字符串，BYVAL INIFILE），如果該字符串/ File.Exists （INIFILE返回的“文件”INIFILE的的）

，而“未找到，以確保路徑和文件名是否正確！”如果

黑暗iniRead

昏暗的iniStr新的StreamReader（INIFILE），的字符串iniRead.ReadToEnd

朦朧朦朧的整數(shù)

最后的出口，克萊因整數(shù)

昏暗的NOSEC布爾=假

作為一個(gè)字符的字符串昏暗的getValue“

黑暗的壁櫥

衣柜iniStr.Split（CHR（13 ））CLINE = UBOUND功能的（CLST）

= 0 CLINE

衣柜（I）的indexOf（“=”） 0，

衣柜（I）分裂（“=”） （0）TRIM（）= iniSection

NOSEC =

的getValue = CLST（I）分裂（“=”;)（1）修剪（）

BR /退出

最后，如果

如果NOSEC = TRUE

返回的getValue BR /

的安裝信息沒有找到“iniSection！”

功能

====如果=================== ===================

TEXT1 = sdGetIniInfo（路徑，“名稱”）

事實(shí)上，無論是ini文本文件XML只使用一定的格式，或所謂的數(shù)據(jù)結(jié)構(gòu)，在最后的分析中，實(shí)現(xiàn)的文件操作的功能只是一個(gè)包文件的讀取和寫入操作。

是不是寫一個(gè)函數(shù)的API！

求大神指點(diǎn) 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("配置設(shè)置已經(jīng)成功?。。?！")

Catch ex As Exception

MsgBox("錯(cuò)誤?。。?！")

End Try

End Sub

VB中配置文件怎么用

vb讀寫ini 這個(gè)方法在vb.net自帶都有 你可以在vb.net創(chuàng)建一個(gè)ini 在.net叫config 主要方法 思想和 讀寫 .txt文件一樣 對字符串操作。

vb.net 關(guān)于ini的問題

這和ini文件有什么關(guān)系？要保存運(yùn)行時(shí)數(shù)據(jù)，可使用app.config或xml文件或注冊表或數(shù)據(jù)庫，ini文件已經(jīng)被淘汰

名稱欄目：vb.net配置ini vbnet web
地址分享：http://jinyejixie.com/article10/dochjdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、企業(yè)網(wǎng)站制作、營銷型網(wǎng)站建設(shè)、域名注冊、網(wǎng)站制作、動態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)