迅速掌握VB.NET读取INI文件操作方法

开发 后端
VB.NET读取INI文件的相关操作方法对于初学者来说应该还是比较容易掌握的。我们可以通过本文介绍的具体代码编写来具体了解其中的操作技巧。

VB.NET做为一款***的开发平台,为开发人员带来了很大的帮助。因为对XML前不了解,所以对XML方式来做配置文件我都不能很好的实现,但为了应行,只有先使用INI的文来记录了,也就沿用了VB6里的INI文读取方法。#t#

下面请看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文件的相关操作就为大家介绍到这里。

责任编辑:曹凯 来源: 博客园
相关推荐

2010-01-11 10:34:41

VB.NET图像操作

2010-01-12 10:19:02

VB.NET操作GDI

2010-01-11 14:28:14

VB.NET操作Exc

2009-10-15 16:39:00

VB.NET读取INI

2009-10-29 13:38:05

VB.NET Shar

2010-01-11 15:43:06

VB.NET类属性

2010-01-07 10:28:04

VB.NET实现接口

2010-01-20 13:42:10

VB.NET访问INIGetPrivateP

2010-01-21 15:56:31

VB.NET文本框

2010-01-07 10:46:27

VB.NET Sock

2009-11-02 10:53:34

VB.NET INI文

2010-01-15 17:51:51

VB.NET创建临时文

2010-01-07 15:37:35

VB.NET ForNext循环

2009-10-30 16:40:04

VB.NET Inte

2009-10-29 14:16:32

VB.NET读写文本文

2010-01-08 18:10:44

VB.NET实现任务栏

2010-01-13 17:47:59

VB.NET拖放

2010-01-11 15:54:48

VB.NET操作缩放图

2009-10-21 10:05:48

VB.NET Read

2010-01-14 10:07:08

VB.NET文件名排序
点赞
收藏

51CTO技术栈公众号