vbnet操作ini vbnet操作GetAsOneRange

求大神指點 vb.net 怎么讀 ini 配置呢

VB.NET讀寫INI配置文件

成都創(chuàng)新互聯(lián)致力于互聯(lián)網網站建設與網站營銷，提供成都網站設計、成都網站制作、外貿網站建設、網站開發(fā)、seo優(yōu)化、網站排名、互聯(lián)網營銷、微信小程序定制開發(fā)、公眾號商城、等建站開發(fā)，成都創(chuàng)新互聯(lián)網站建設策劃專家，為不同類型的客戶提供良好的互聯(lián)網應用定制解決方案，幫助客戶在新的全球化互聯(lián)網環(huán)境中保持優(yōu)勢。

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.net2005中到底怎么讀取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 WriteString As String, ByVal FileName As String) As Long

WriteINI = WritePrivateProfileString(Section, AppName, WriteString, FileName)

End Function

其中，Section是像[ip]那樣的（填里面的就可以了），AppName是“=”前面的項名稱，lpDefault是如果沒有可用的值，就返回lpDefault，F(xiàn)ileName是文件名，WriteString是要寫入的值

你所希望的：

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

MsgBox(GetINI("ip", "user_id", "", "D:\DataBase.ini"))

'返回sa

End Sub

VB.NET怎么刪除INI文件里的一個字段或鍵值？

1，對于INI文件，可以當做像TXT文件一樣來進行讀取和寫入。

2，先把整個文件度出來，然后找到相應行刪除（拋棄）以后，再重新寫入文件。

Public?Class?Form1

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

Dim?MyStr?As?String?=?""

Dim?AllStr?As?String?=?""

'獲取一個可用的文件號

Dim?MyFileNum?As?Integer?=?FreeFile()

'打開指定的文件，進行讀取操作

FileOpen(MyFileNum,?"C:\My.ini",?OpenMode.Input)

Do?While?Not?EOF(MyFileNum)

'讀取一行

MyStr?=?LineInput(MyFileNum)

If?MyStr??"b=2"?Then

If?AllStr?=?""?Then

AllStr?=?AllStr??MyStr

Else

AllStr?=?AllStr??vbCrLf??MyStr

End?If

End?If

Loop

FileClose(MyFileNum)???'關閉文件

'寫文件

Dim?MyStream?As?New?System.IO.FileStream("C:\My.ini",?IO.FileMode.Create)

Dim?MyWriter?As?New?System.IO.StreamWriter(MyStream,?System.Text.Encoding.UTF8)

MyWriter.WriteLine(AllStr)

MyWriter.Flush()

MyWriter.Close()

MyStream.Close()

End?Sub

End?Class

vb.net ini操作

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

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

新聞標題：vbnet操作ini vbnet操作GetAsOneRange
URL鏈接：http://muchs.cn/article8/dohdsip.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供網站收錄、云服務器、面包屑導航、商城網站、域名注冊、網站改版

廣告

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