[已解决]问个很奇怪的问题`以前的代码好好的`现在拿出来怎么出错了呢
本帖最后由 410521a 于 2010-6-12 02:34 编辑问个很奇怪的问题`以前的代码好好的`现在拿出来怎么出错了呢我看看哪里都没问题```真郁闷都读取不到dir dir1以前好好的呀`
$g_szVersion = "shouyinfuzhu"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
;~ ======================================================
Dim $Dll, $udata, $Path, $uconfig, $config, $var, $var1, $pifu, $dir, $dir1
$uconfig = @ScriptDir & '\data\config.ini'
$udata = @ScriptDir & '\data\data.ini'
$Path = @ScriptDir & '\data\'
$pifu = IniRead("data\config.ini", "收银助手配置QQ:36951881-此行勿删!-否则程序将无法正常运行!!", "皮肤文件", "")
$Dll = DllOpen($Path & "Skin.dll")
$config = IniRead("data\config.ini", "收银助手配置QQ:36951881-此行勿删!-否则程序将无法正常运行!!", "启用皮肤", "")
$var = FileExists($udata)
$var1 = FileExists($uconfig)
$dir = IniReadSectionNames($udata)
$dir1 = IniReadSectionNames($uconfig)
If $config = "是" Then
DllCall($Dll, "int", "SkinH_AttachEx", "str", $Path & $pifu, "str", "benkel")
DllCall($Dll, "int", "SkinH_SetAero", "int", 0)
EndIf
If $var = 0 Then
MsgBox(64, "错误", "未找到数据库文件\data\data.ini")
Exit
ElseIf $var1 = 0 Then
MsgBox(64, "", "未找到到配置文件\data\config.ini")
Exit
EndIf
If $dir <> "By:陈伟东 QQ:36951881-此行勿删!-否则程序将无法正常运行!!" Then
MsgBox(16, "警告", "请保留作者的信息！" & @CRLF & "否则，程序不能继续运行！")
MsgBox(0, "", $dir & @CRLF & $dir1)
Exit
EndIf
If $dir1 <> "收银助手配置QQ:36951881-此行勿删!-否则程序将无法正常运行!!" Then
MsgBox(16, "警告", "请保留作者的信息！" & @CRLF & "否则，程序不能继续运行！")
Exit
EndIf 新手，跟着学习学习 是不是 版本不一样了？ 回复 1# 410521a
我测试没有问题啊,不知道你测试的时候有什么问题 data.ini
config.ini
[收银助手配置QQ:36951881-此行勿删!-否则程序将无法正常运行!!]
启用皮肤=是
启用声音=
随系统启动=
皮肤之类的都能加载上```但就是提示
MsgBox(16, "警告", "请保留作者的信息！" & @CRLF & "否则，程序不能继续运行！")
然后我在中间加个了
MsgBox(0, "", $dir & @CRLF & $dir1)
就是获取不到数据!! 本帖最后由 410521a 于 2010-6-11 20:39 编辑
我都可郁闷这到底是怎么了``
$udata = @ScriptDir & '\data\data.ini'
$var = FileExists($udata)
$dir = IniReadSectionNames($udata)
If $var = 0 Then
MsgBox(64, "错误", "未找到数据库文件\data\data.ini")
Exit
EndIf
If $dir<>"By:陈伟东QQ:36951881此行勿删否则程序将无法正常运行" Then
;~ MsgBox(16, "警告", "请保留作者的信息！" & @CRLF & "否则，程序不能继续运行！")
MsgBox(0, "", $dir) ;为什么都获取不到数据？
Exit
EndIf
哎`` 我真服了 楼主只是没细看“IniReadSectionNames “的帮助吧，这个函数返回的是数组，不是........
下面是偶的代码：Dim $udata,$var,$dir
$udata = @ScriptDir & '\data\data.ini'
$var = FileExists($udata)
$dir = IniReadSectionNames($udata)
If $var = 0 Then
MsgBox(64, "错误", "未找到数据库文件\data\data.ini")
Exit
EndIf
If $dir<>"By:陈伟东QQ:36951881此行勿删否则程序将无法正常运行" Then
;~ MsgBox(16, "警告", "请保留作者的信息！" & @CRLF & "否则，程序不能继续运行！")
MsgBox(0, "", $dir) ;为什么都获取不到数据？
Exit
EndIf
偶只是在MsgBox(0, "", $dir) ;为什么都获取不到数据？改为MsgBox(0, "", $dir) ;为什么都获取不到数据？ 本帖最后由 afan 于 2010-6-11 21:53 编辑
IniReadSectionNames() 返回的是数组……
$dir = IniReadSectionNames($udata)
If $dir <> "By:陈伟东QQ:36951881此行勿删否则程序将无法正常运行" Then 本帖最后由 lchl0588 于 2010-6-12 00:11 编辑
楼上楼下让我无语................................ 回复 10# lchl0588
绕过头了
不太明白 我以前就这样的代码运行的好好的呀 楼主好好把数组温习一下 嘿嘿`` 说对 数这些都不了解的`都不知道啥东西``
说实话`` 本人小学毕业{:face (245):} 学习了－谢谢！！
页:
[1]