① 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.NET怎麼刪除INI文件里的一個欄位或鍵值
1，對於INI文件，可以當做像TXT文件一樣來進行讀取和寫入。
2，先把整個文件度出來，然後找到相應行刪除（拋棄）以後，再重新寫入文件。
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimMyStrAsString=""
DimAllStrAsString=""
'獲取一個可用的文件號
DimMyFileNumAsInteger=FreeFile()
'打開指定的文件，進行讀取操作
FileOpen(MyFileNum,"C:My.ini",OpenMode.Input)
DoWhileNotEOF(MyFileNum)
'讀取一行
MyStr=LineInput(MyFileNum)
IfMyStr<>"b=2"Then
IfAllStr=""Then
AllStr=AllStr&MyStr
Else
AllStr=AllStr&vbCrLf&MyStr
EndIf
EndIf
Loop
FileClose(MyFileNum)'關閉文件
'寫文件
DimMyStreamAsNewSystem.IO.FileStream("C:My.ini",IO.FileMode.Create)
DimMyWriterAsNewSystem.IO.StreamWriter(MyStream,System.Text.Encoding.UTF8)
MyWriter.WriteLine(AllStr)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()
EndSub
EndClass