VB.NET中怎么讀取INI文件

這篇文章給大家介紹VB.NET中怎么讀取INI文件，內容非常詳細，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

VB.NET讀取INI文件的相關代碼示例：

1. '聲明INI配置文件讀寫API函數  

2. Private Declare Function GetPrivateProfileString()
   Function GetPrivateProfileString Lib "kernel32" 
   Alias "GetPrivateProfileStringA" (ByVal 
   lpApplicationName As String, ByVal lpKeyName As 
   String, ByVal lpDefault As String, ByVal lpReturned
   String As String, ByVal nSize As Int32, ByVal 
   lpFileName As String) As Int32  

3. Private Declare Function WritePrivateProfileString()
   Function WritePrivateProfileString Lib "kernel32" 
   Alias "WritePrivateProfileStringA" (ByVal 
   lpApplicationName As String, ByVal lpKeyName As 
   String, ByVal lpString As String, ByVal lpFileName 
   As String) As Int32  

4. '定義讀取配置文件函數  

5. Public Function GetINI()Function GetINI(ByVal 
   Section As String, ByVal AppName As String, ByVal 
   lpDefault As String, ByVal FileName As String) 
   As String  

6. Dim Str As String = LSet(Str, 256)  

7. GetPrivateProfileString(Section, AppName, 
   lpDefault, Str, Len(Str), FileName)  

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

9. End Function  

10. '定義寫入配置文件函數  

11. Public Function WriteINI()Function WriteINI
    (ByVal Section As String, ByVal AppName As 
    String, ByVal lpDefault As String, ByVal 
    FileName As String) As Long  

12. WriteINI = WritePrivateProfileString(Section, 
    AppName, lpDefault, FileName)  

13. End Function  

14. Private Sub Form1_Load()Sub Form1_Load(ByVal 
    sender As System.Object, ByVal e As System.
    EventArgs) Handles MyBase.Load  

15. Dim path As String  

16. path = Application.StartupPath + "\server.ini"  

17. TextBox1.Text = GetINI("Server", "IP", "", path)  

18. TextBox2.Text = GetINI("Server", "port", "", path)  

19. End Sub  

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

21. Try  

22. Dim path As String  

23. path = Application.StartupPath + "\server.ini"  

24. WriteINI("Server", "IP", TextBox1.Text, path)  

25. WriteINI("Server", "port", TextBox2.Text, path)  

26. MsgBox("配置設置已經成功！！！！")  

27. Me.Close()  

28. Catch ex As Exception  

29. MsgBox("錯誤！！！！")  

30. End Try  

31. End Sub 

關于VB.NET中怎么讀取INI文件就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。