VB.NET中怎么读取INI文件

发布时间:2021-07-15 11:34:26 作者:Leah
来源:亿速云 阅读:319

这篇文章给大家介绍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文件就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。

推荐阅读:
  1. python读取/写入配置文件ini方法
  2. QT仿照MFC读取INI文件怎么实现

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

vb.net

上一篇:jquery中Ajax全局调用封装的示例分析

下一篇:C++如何处理中文符号

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》