131738 发表于 2010-4-3 14:28:03

[已解决]请问 提示示例脚本不运行 ，可否解决？

本帖最后由 131738 于 2010-4-4 00:14 编辑

这个脚本也太诡异了，居然不給个提示，加上 SCITE 又那么提示。。。。。真是见鬼了。。。。

结贴吧！！！


提示示例脚本不运行

看截图，产生原因？ 如何解决？ 谢谢！！！

hzxymkb 发表于 2010-4-3 16:15:02

高手也会遇到这样的错误！我只能帮顶了！

131738 发表于 2010-4-3 16:25:20

回复 2# hzxymkb

什么时候成高手了。。。。。。:face (22):

rolaka 发表于 2010-4-3 18:08:41

= = 文件用utf8格式保存了 还有bom头

另存把 换成ansi的

afan 发表于 2010-4-3 18:25:42

原本是ansi编码的，就不要128替换了……

131738 发表于 2010-4-3 22:00:14

回复 5# afan

这是官方发布的示例文件，在 \autoit3\Examples\Helpfile 文件夹中

既不是自编的，也不是文档中复制的，是通过帮助文档点开的！

像这样的示例文件还有几个。。。

另： “原本是ansi编码的，就不要128替换了……”不懂，不是说的你修改DUF吧，那是没问题的！！！

afan 发表于 2010-4-3 22:02:06

回复 6# 131738


    但是我这打开没问题呀~ 倒是如果用修改函数把它128模式修改后就会这样……

131738 发表于 2010-4-3 22:02:15

回复 4# rolaka

这是官方发布的示例文件，在 \autoit3\Examples\Helpfile 文件夹中

既不是自编的，也不是文档中复制的，是通过帮助文档点开的！

官方的原件还需另存为吗？。。。。不懂！！！

afan 发表于 2010-4-3 22:28:20

回复 6# 131738


    刚才重新修改了那个__ReplaceStringInFile函数，去掉了$mode参数，改为自动判断，免得还要先去识别编码……
先贴到这吧Func __ReplaceStringInFile($szFileName, $szSearchString, $szReplaceString, $fCaseness = 0, $fOccurance = 1)
        Local $iRetVal = 0
        Local $nCount, $sEndsWith
        ; Check if file is readonly ..
        If StringInStr(FileGetAttrib($szFileName), "R") Then Return SetError(6, 0, -1)
        Local $hFile = FileOpen($szFileName, $FO_READ)
        If $hFile = -1 Then Return SetError(1, 0, -1)
        Local $s_TotFile = FileRead($hFile, FileGetSize($szFileName))
        If StringRight($s_TotFile, 2) = @CRLF Then
                $sEndsWith = @CRLF
        ElseIf StringRight($s_TotFile, 1) = @CR Then
                $sEndsWith = @CR
        ElseIf StringRight($s_TotFile, 1) = @LF Then
                $sEndsWith = @LF
        Else
                $sEndsWith = ""
        EndIf
        Local $aFileLines = StringSplit(StringStripCR($s_TotFile), @LF)
        FileClose($hFile)
        Local $mode = FileGetEncoding($szFileName)
        If $mode = -1 Then $mode = 0
        Local $hWriteHandle = FileOpen($szFileName, $FO_OVERWRITE + $mode)
        If $hWriteHandle = -1 Then Return SetError(2, 0, -1)
        For $nCount = 1 To $aFileLines
                If StringInStr($aFileLines[$nCount], $szSearchString, $fCaseness) Then
                        $aFileLines[$nCount] = StringReplace($aFileLines[$nCount], $szSearchString, $szReplaceString, 1 - $fOccurance, $fCaseness)
                        $iRetVal = $iRetVal + 1
                        If $fOccurance = 0 Then
                                $iRetVal = 1
                                ExitLoop
                        EndIf
                EndIf
        Next
        For $nCount = 1 To $aFileLines - 1
                If FileWriteLine($hWriteHandle, $aFileLines[$nCount]) = 0 Then
                        FileClose($hWriteHandle)
                        Return SetError(3, 0, -1)
                EndIf
        Next
        ; Write the last record and ensure it ends with the same as the input file
        If $aFileLines[$nCount] <> "" Then FileWrite($hWriteHandle, $aFileLines[$nCount] & $sEndsWith)
        FileClose($hWriteHandle)
        Return $iRetVal
EndFunc   ;==>_ReplaceStringInFile

131738 发表于 2010-4-3 23:02:05

回复 9# afan

这个没问题的，完全与此贴无关的！！！

如果你的再次修改是为加强这个UDF的功能，我再次谢谢！！！！但绝对与此贴问题无关！！！！！

131738 发表于 2010-4-3 23:05:49

回复 7# afan

你修改的UDF，我没有覆盖原文件，只是写进我昨天给你的那个专用脚本中了！！！

131738 发表于 2010-4-3 23:08:04

而且在有这个替换字符脚本之前，就发生过这个问题，只是当时没注意罢了！！！

131738 发表于 2010-4-3 23:16:17

换到WIN7还是不行

131738 发表于 2010-4-3 23:22:53

回复 7# afan

13楼回了你的贴子，对不起，缠上你了，不过不是大问题，对目前的事没有什么影响！！

只是想看看有关UDF示例脚本的运行结果！！

afan 发表于 2010-4-3 23:27:15

回复 14# 131738


    是不是文件不一样啊
文件: D:\Autoit3\Examples\Helpfile\_GDIPlus_GraphicsDrawRect.au3
大小: 1118 字节
修改时间: 09年8月1日 星期六, 0:00:00
MD5: 5E4619477CAF35EF0F6B9BA5FDA56AB7
页: [1] 2
查看完整版本: [已解决]请问 提示示例脚本不运行 ，可否解决？