[已解决]问个很奇怪的问题`以前的代码好好的`现在拿出来怎么出错了呢

410521a · 发表于 2010-6-11 11:44:11

本帖最后由 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

yejier1983 · 发表于 2010-6-11 14:21:44

新手，跟着学习学习

t87564833 · 发表于 2010-6-11 14:51:44

是不是版本不一样了？

guland · 发表于 2010-6-11 14:59:48

回复 1# 410521a

我测试没有问题啊,不知道你测试的时候有什么问题

410521a · 发表于 2010-6-11 20:24:40

data.ini
[By:陈伟东 QQ:36951881-此行勿删!-否则程序将无法正常运行!!]
config.ini
[收银助手配置QQ:36951881-此行勿删!-否则程序将无法正常运行!!]

启用皮肤=是

启用声音=

随系统启动=

皮肤之类的都能加载上```但就是提示

MsgBox(16, "警告", "请保留作者的信息！" & @CRLF & "否则，程序不能继续运行！")

然后我在中间加个了
MsgBox(0, "", $dir & @CRLF & $dir1)

就是获取不到数据!!

410521a · 发表于 2010-6-11 20:38:27

本帖最后由 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

410521a · 发表于 2010-6-11 20:47:13

哎`` 我真服了

lchl0588 · 发表于 2010-6-11 21:40:25

楼主只是没细看“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[1])          ;为什么都获取不到数据？
        Exit
EndIf

偶只是在

MsgBox(0, "", $dir)          ;为什么都获取不到数据？

改为

MsgBox(0, "", $dir[1])          ;为什么都获取不到数据？

afan · 发表于 2010-6-11 21:47:32

本帖最后由 afan 于 2010-6-11 21:53 编辑

IniReadSectionNames() 返回的是数组……

$dir = IniReadSectionNames($udata)
If $dir[1] <> "By:陈伟东QQ:36951881此行勿删否则程序将无法正常运行" Then

lchl0588 · 发表于 2010-6-11 21:50:05

本帖最后由 lchl0588 于 2010-6-12 00:11 编辑

楼上楼下让我无语................................

410521a · 发表于 2010-6-11 23:12:17

回复 10# lchl0588

绕过头了

不太明白我以前就这样的代码运行的好好的呀

lynfr8 · 发表于 2010-6-12 00:22:49

楼主好好把数组温习一下

410521a · 发表于 2010-6-12 02:31:03

嘿嘿`` 说对数这些都不了解的`都不知道啥东西``

说实话`` 本人小学毕业

masterpcc · 发表于 2010-6-12 11:12:36

学习了－谢谢！！

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]问个很奇怪的问题`以前的代码好好的`现在拿出来怎么出错了呢

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源