剔除INI文件中的注释部分-操作系统-网站设计-人才家园--中国人才库
您所在的位置：中国人才库--人才家园--网站设计--操作系统
剔除INI文件中的注释部分
来源： 编辑：duliying 更新日期：2008-5-7 15:56:37 浏览：861 次
Windows对待INI文件中的注释部分可不象VB对待代码中的注释部分。如果INI文件的某一项目中包含注释，为避免混淆，必须有一段代码将注释部分剔除。如下：

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal _
lpApplicationName As Any, ByVal lpKeyName As  Any, ByVal lpDefault As String, ByVal _
lpReturnedString As String, ByVal nSize As  Long, ByVal lpFileName As String) As Long

Private Sub Form_Click()
Dim IniString As String
Dim sDefault As String
Dim lReturn As Long

sDefault = "n/a"
‘ allocate sufficient buffer
IniString = String$(260, 0)
lReturn = GetPrivateProfileString("DB",  "Path", sDefault, IniString, Len(IniString), "c:\test.ini")
If lReturn > 0 Then
IniString = Left$(IniString, lReturn)
Debug.Print IniString

‘ 下面的代码用来剔除注释部分
If InStr(IniString, ";") > 0 Then
IniString = Trim$(Left$(IniString, InStr(IniString, ";") - 1))
If InStr(IniString, vbTab) > 0 Then
IniString = Trim$(Left$(IniString, InStr(IniString, vbTab) - 1))
End If
End If
Else
IniString = sDefault
End If
Debug.Print IniString
End Sub
　第1页/总1页　 第一页 上一页 下一页 最后一页     【发表评论】
昵   称：  (不填写则显示为匿名)
标   题：
内   容：
 
免责声明：网友对此资源信息的评论仅代表个人观点，中国人才库有权删除违乱评论信息！
石家庄广通印刷学校