VB點虐 2005中到底怎么讀取ini文件

用API吧

創新互聯建站專業為企業提供固始網站建設、固始做網站、固始網站設計、固始網站制作等企業網站建設、網頁設計與制作、固始企業網站模板建站服務，10多年固始做網站經驗，不只是建網站，更提供有價值的思路和整體網絡服務。

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，FileName是文件名，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點虐 如何讀取ini文件定義的ForeColor顏色值

你好，我不知道你是用什么方法保存的，不過點虐 里的color有一個方法是Color.FromArgb 你可以這么做，dim

c

as

color=richtextbox1.ForeColor dim

colorstring

as

string=c.ToArgb().ToString

colorstring就是顏色的值（字符串）再把colorstring保存到ini文件加載顏色的時候，從ini里讀取colorstring 具體是：dim

RtextColor

as

color=Color.FromArgb（cint(colorstring))richtextbox1.ForeColor

=RtextColor

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點虐 ini操作

名字有規律，就可以for循環。

名字沒有規律，可以想辦法讓他有規律，一種方法是設置包含所有節名稱的string數組，再循環。

當前題目：vb點虐 操作ini vbnet lib
鏈接分享：http://m.newbst.com/article40/ddshseo.html

成都網站建設公司_創新互聯，為您提供建站公司、服務器托管、網站導航、微信公眾號、外貿建站、用戶體驗

廣告

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