vb.net 讀取ini的所有值

Dim?s?As?String()?=?System.IO.File.ReadAllLines("t.ini")?'文件

站在用戶的角度思考問題，與客戶深入溝通，找到句容網(wǎng)站設(shè)計(jì)與句容網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：做網(wǎng)站、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名申請、網(wǎng)絡(luò)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋句容地區(qū)。

For?i?As?Integer?=?0?To?s.Length?-?1

Dim?si?As?Integer?=?s(i).IndexOf("=")

If?si??-1?Then

ListBox1.Items.Add(s(i).Substring(0,?si)??"?=?"??s(i).Substring(si?+?1))

End?If

Next

's(i).Substring(0,?si)是變量名，s(i).Substring(si?+?1)是值

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

INI文件不便于操作，使用Settings跟簡單、高效！

先添加一個(gè)Settings設(shè)置

再調(diào)用這個(gè)參數(shù)

就算重新啟動 這個(gè)參數(shù)還是可以保留

沒聽懂？

兩句說不清楚，可以遠(yuǎn)程協(xié)助。

vb.net 讀取ini問題

Dim Str As String

Str = ""

Str = LSet(Str, 256)

GetPrivateProfileString(bookto, AppName, lpDefault, Str, Len(Str), FileName)

Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)

vb.net ini操作

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

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

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

1，對于INI文件，可以當(dāng)做像TXT文件一樣來進(jìn)行讀取和寫入。

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

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?=?""

'獲取一個(gè)可用的文件號

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

'打開指定的文件，進(jìn)行讀取操作

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)???'關(guān)閉文件

'寫文件

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文件問題

以下是我的辦法:OK!

Public 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 Integer, ByVal lpFileName As String) As Integer

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer

寫:

WritePrivateProfileString("存儲", "賬號", textbox1, Application.StartupPath "\song.ini")

讀:

dim s as string

s = string(255," ")

GetPrivateProfileString("存儲", "賬號", s, s.Length, Application.StartupPath + "\song.ini")

textbox1 =s

標(biāo)題名稱：vb.netini的簡單介紹
URL標(biāo)題：http://chinadenli.net/article15/dsesjgi.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供自適應(yīng)網(wǎng)站、網(wǎng)站導(dǎo)航、關(guān)鍵詞優(yōu)化、標(biāo)簽優(yōu)化、網(wǎng)站收錄、網(wǎng)站設(shè)計(jì)

廣告

聲明：本網(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)