知识大全 VB.netini文件操作

Posted 2022-07-21 文件

篇首语：在劳力上劳心，是一切发明之母。事事在劳力上劳心，变可得事物之真理。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 VB.netini文件操作相关的知识，希望对你有一定的参考价值。

VB.netini文件操作 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　以下内容放到vb net中直接调用 Public Class ReadWriteIniClassPrivate Declare Function GetPrivateProfileString Lib kernel Alias GetPrivateProfileStringA (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpDefault As String ByVal lpReturnedString As String ByVal nSize As Int ByVal lpFileName As String) As Int Private Declare Function WritePrivateProfileString Lib kernel Alias WritePrivateProfileStringA (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpString As String ByVal lpFileName As String) As Int

　　Private Declare Function GetPrivateProfileStringW Lib kernel Alias GetPrivateProfileStringW (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpDefault As String ByVal lpReturnedString As String ByVal nSize As Int ByVal lpFileName As String) As Int Private Declare Function WritePrivateProfileStringW Lib kernel Alias WritePrivateProfileStringW (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpString As String ByVal lpFileName As String) As Int mbcsPublic Shared Function GetINI(ByVal Section As String ByVal AppName As String ByVal lpDefault As String ByVal FileName As String) As StringDim MyEncoder As System Text Encoding = System Text Encoding DefaultDim chars( ) As CharDim strResult As String = New String(chars)Dim length As Integer = GetPrivateProfileString(Section AppName lpDefault strResult Len(strResult) FileName) 编码的转换Dim rByte() As Byte = System Text Encoding Default GetBytes(strResult ToCharArray)strResult = New String(MyEncoder GetChars(rByte))Return Microsoft VisualBasic Left(strResult InStr(strResult Chr( )) )End Function 写文件Public Shared Function WriteINI(ByVal Section As String ByVal AppName As String ByVal lpDefault As String ByVal FileName As String) As LongWriteINI = WritePrivateProfileString(Section AppName lpDefault FileName)End Function

　　 unicodePublic Shared Function GetINIW(ByVal Section As String ByVal AppName As String ByVal lpDefault As String ByVal FileName As String) As StringDim MyEncoder As System Text Encoding = System Text Encoding DefaultDim strResult As StringDim chars( ) As CharstrResult = CStr(chars)GetPrivateProfileStringW(Section AppName lpDefault strResult Len(strResult) FileName)

cha138/Article/program/ASP/201311/21763