关于配置文件 ------------------- 在线等待

redwrite 2003-12-23 11:21:35
请问配置文件中项目行的表示备注是什么字符?相当于VB中的"'"
比如a.ini
[option]
key1=value1 (这里我想加入备注,用什么字符呢?)
key2=value2
......
......
...全文
46 点赞 收藏 11
写回复
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
constantine 2003-12-23
;用来注释,没有错的。
回复
redwrite 2003-12-23
可是我也试了用分号( 以及所有键盘上能输入的字符),却都没有效果...
[option]
key1=value1 ;(这里我想加入备注,用什么字符呢?我试着用";"分号,却不行)
key2=value2
......
......
回复
echo20003 2003-12-23
就是啊!分号啊!
回复
liuyanghe111 2003-12-23
我查过了,是用";",就是分号
回复
echo20003 2003-12-23
应该是“;”表示备注
你可以试一试!
回复
liuyanghe111 2003-12-23
用rem试试
回复
jone999 2003-12-23
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
你是怎么用这个Api的??我想取值时以一标志分隔注释就ok了吧
如:
Public Function GetPrivateIni(ByVal ApName As String, ByVal KeyName As String, ByVal strDefault As String, _
ByVal strFileName As String) As String
Dim lnLength As Long
Dim strBuff As String

strBuff = String(256, 0)

lnLength = GetPrivateProfileString(ApName, KeyName, strDefault, strBuff, _
Len(strBuff), strFileName)

strBuff = Left(strBuff, InStr(strBuff, ";") - 1)
If strBuff = Chr(0) Then
GetPrivateIni = strDefault
Else
GetPrivateIni = strBuff
End If
End Function

回复
redwrite 2003-12-23
我用的是半角呀";"
回复
redwrite 2003-12-23
比如说:
[option]
key1=value1 ;备注1
key2=value2 ;备注2

我在读列表key1值的时候,需要的值是:
value1
但是结果却是:
value1 ;备注1

大家能告诉我是为什么吗?
回复
liuyanghe111 2003-12-23
是不是全角问题,应该用半角字符
回复
redwrite 2003-12-23
大家都说是";",为什么我这里不行呀,为什么呀
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告