VB.net GetPrivateProfileString WritePrivateProfileString 读写INI
来源:互联网 发布:json解析天气预报 编辑:程序博客网 时间:2024/05/17 12:52
可以采用此方法,请参考用一下。希望对大家有用,可以读中文、日文、英文路径
Private 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 Int32, ByVal lpFileName As String) As Int32
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
Private Function GetPreviousInfo(ByRef sPreActNumber As String, ByRef sPreUserName As String) As Boolean
Try
Dim strPath As String
strPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments).ToString
sPreActNumber = Space(255)
sPreUserName = Space(255)
GetPrivateProfileString("SMS", "ActNumber", "", sPreActNumber, 128, strPath & iniFileName)
GetPrivateProfileString("SMS", "UserName", "", sPreUserName, 128, strPath & iniFileName)
GetPreviousInfo = True
Catch ex As Exception
MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
GetPreviousInfo = False
End Try
End Function
Private Function SaveDefaultValue() As Boolean
Try
Dim strPath As String
strPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments).ToString
Dim sPreActNumber As String
Dim sPreUserName As String
sPreActNumber = Mid(Me.Cmb_AccountList.Text, 1, InStr(Me.Cmb_AccountList.Text, "|") - 2)
sPreUserName = Me.Txt_UserName.Text
Dim fs As System.IO.FileStream
If System.IO.File.Exists(strPath & iniFileName) Then
System.IO.File.Delete(strPath & iniFileName)
End If
fs = System.IO.File.Create(strPath & iniFileName)
fs.Close()
WritePrivateProfileString("SMS", "ActNumber", sPreActNumber, strPath & iniFileName)
WritePrivateProfileString("SMS", "UserName", sPreUserName, strPath & iniFileName)
SaveDefaultValue = True
Catch ex As Exception
MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
SaveDefaultValue = False
End Try
End Function
- VB.net GetPrivateProfileString WritePrivateProfileString 读写INI
- 利用GetPrivateProfileString/WritePrivateProfileString读写配置文件(.ini)
- C++读写ini配置文件GetPrivateProfileString()&WritePrivateProfileString()
- WritePrivateProfileString和GetPrivateProfileString读写ini配置文件
- 利用WritePrivateProfileString和GetPrivateProfileString读写配置文件.ini
- MFC读写ini配置文件(WritePrivateProfileString,GetPrivateProfileString,GetPrivateProfileInt)
- c++配置文件ini---GetPrivateProfileString(...)\WritePrivateProfileString(...)
- GetPrivateProfileString &&WritePrivateProfileString 调用系统读写
- INI文件编程,WINAPI函数WritePrivateProfileString,GetPrivateProfileString
- INI文件编程,WINAPI函数WritePrivateProfileString,GetPrivateProfileString
- INI文件编程,WINAPI函数WritePrivateProfileString,GetPrivateProfileString
- INI文件编程,WINAPI函数WritePrivateProfileString,GetPrivateProfileString
- INI文件编程,WINAPI函数WritePrivateProfileString,GetPrivateProfileString
- INI文件编程,WINAPI函数WritePrivateProfileString,GetPrivateProfileString
- INI文件编程,WINAPI函数WritePrivateProfileString,GetPrivateProfileString
- INI文件编程,WINAPI函数WritePrivateProfileString,GetPrivateProfileString
- [VB.NET]读写ini
- WritePrivateProfileString等读写.ini配置文件
- android播放器(music player)源码分析5(在线播放功能)
- java中判断字符串是否为数字的三种方法
- 如何改变工程中缺省的公司名称。
- C语言编译全过程
- zend studio 8 构建工作空间慢的解决办法
- VB.net GetPrivateProfileString WritePrivateProfileString 读写INI
- 方法比知识更重要 独立成就未来
- 修改MySQL连接数与MySQL连接数超限原因分析
- 30分钟搞定BASH脚本编程
- 转载个常用的 Hibernate自关联关系
- C#4.0的新特性
- 动态加载动态库
- algo trading and kdb+
- 语音识别电脑控制