UC知道WritePrivateProfileString的郁闷问题
来源：百度知道 编辑：UC知道 时间：2024/06/01 09:36:23
dim s1,s2
s1=as
s2=df
WritePrivateProfileString "data", s1, s2, App.Path "c:\test.ini"
提示类型不匹配，哪错了？
最后一行打错了，应为
WritePrivateProfileString "data", s1, s2, "c:\test.ini"
s1=as
s2=df
WritePrivateProfileString "data", s1, s2, App.Path "c:\test.ini"
提示类型不匹配，哪错了？
最后一行打错了，应为
WritePrivateProfileString "data", s1, s2, "c:\test.ini"
dim s1 as string,s2 as string
s1="data"
s2="as" & vbnullchar & "df" & vbnullchar
WritePrivateProfileString s1, s2, "c:\test.ini"
S1=“as”试一试！
修改一下，s1,s2在没有指明变量类型的时候默认为Variant类型，WritePrivateProfileString的第二和第三个参数需要传递String类变量，你传递使用Variant类型当然就不兼容啦
提供一个我使用多年的函数
其中lpFileName 参数传递一次以后可以省略，就和dir函数那样
用法：
WPPFS "a1", "b1", "v1", "E:\1.ini"
WPPFS "a2", "b2", "v2"
WPPFS "a3", "b3", "v3"
Public Static Function WPPFS(AppName As String, KeyName As String, Value As String, Optional ByVal lpFileName As String) As String
Dim f As String
If lpFileName <> "" Then f = lpFileName
WPPFS = WritePrivateProfileString(AppName, KeyName, Value, f)
End Function
觉得回答得好就再加点分吧，谢谢！