我上个图给你看一下就知道,我这边是不行的输出的结果也不行。xp系统运行你的代码是没问题的奇怪了
xz00311 发表于 2012-12-10 11:06 
你再试下以下- Local $sCn = 2
- Local $var = FileOpenDialog('请选择需要整合的au3主脚本文件', '', 'au3脚本文件(*.au3)', 1)
- If @error Then Exit
- $FileIn = $var
- Local $f_o = StringTrimRight($FileIn, 4) & '_Merger[' & $sCn & '].au3'
- $var = FileSaveDialog('请输入保存文件。末尾的“[]”内可输入0-4(整合精简模式)', '', 'au3脚本文件(*.au3)', 2 + 16, $f_o)
- If @error Then Exit
- $FileOut = $var
- Local $aV = StringRegExp($FileOut, '\[([0-4])\]$', 1)
- If Not @error Then
- $sCn = $aV[0]
- MsgBox(64, '', '"' & $FileOut & '"' & @LF & '"' & $sCn & '"')
- Else
- MsgBox(48, '', '"' & $FileOut & '"')
- EndIf
复制代码 |