|
|
本帖最后由 131738 于 2009-10-15 00:16 编辑
下面是一段打开"保存文件对话框", 保存文件的部分代码,摘自官网的一个脚本.
要求附图中红框内修改为中文,因代码中涉及到 API ; 位"与" ; 位"移" ; 位"或"运算,本人对此一窍不通!
试着修改了代码第四行 _FileSaveDialog 中第三个参数为中文, 结果"保存对话框" 相应部分显示乱码, 文件也不能正确保存!
谢谢!!!!func _get_save_file($newname = "New File")
Local $save_file_dir = ""
$rectype = False
$save_file_dir = _FileSaveDialog("Save INI file", "", "Ini File [*.ini](*.ini)|Txt File [*.txt](*.txt)|Data File [*.dat](*.dat)|Config File [*.cfg](*.cfg)|Other [*.*](*.*)", 2+16, $newname, "", $Form1)
Return $save_file_dir
EndFunc
Func _FileSaveDialog ($sTitle, $sInitDir, $sFilter = 'All (*.*)', $iOpt = 0, $sDefaultFile = "", $sDefaultExt = "", $mainGUI = 0)
Local $iFileLen = 65536 ; 在返回的字符串中的最大字符数
; 准备 API 标志
Local $iFlag01 = BitAND ($iOpt, 2) ;位"与"运算
Local $iFlag02 = BitShift($iFlag01,-10) ;位"移"运算
Local $iFlag03 = BitAND($iOpt,16) ;位"与"运算
Local $iFlag04 = BitShift($iFlag03, 3) ;位"移"运算
Local $iFlag = BitOR($iFlag02, $iFlag04) ;位"或"运算
; 过滤字符串转换到数组
Local $asFLines = StringSplit( $sFilter, '|');分隔符拆分字串
Local $asFilter [$asFLines [0] *2+1]
Local $i, $iStart, $iFinal, $suFilter = ''
$asFilter [0] = $asFLines [0] *2
For $i=1 To $asFLines [0]
$iStart = StringInStr($asFLines [$i], '(', 0, 1) ;检查是否含有给定的子串
$iFinal = StringInStr($asFLines [$i], ')', 0,-1);检查是否含有给定的子串
$asFilter01 = StringLeft($asFLines [$i], $iStart-1) ;返回从左开始指定数量的字符
$asFilter [$i*2-1] = StringStripWS ($asFilter01, 3) ;删去所有"空白符".
$asFilter02 = StringTrimLeft($asFLines [$i], $iStart);删除从左开始指定数量的字符
$asFilter03 = StringLen($asFLines [$i]) ;返回字符总数
$asFilter04 = StringTrimRight($asFilter02, $asFilter03 -$iFinal+1);删除从右开始指定数量的字符
$asFilter [$i*2] = StringStripWS($asFilter04, 3) ;删去所有"空白符".
$suFilter01 = StringLen($asFilter [$i*2-1]);返回字符总数
$suFilter02 = StringLen($asFilter [$i*2]) ;返回字符总数
$suFilter = $suFilter & 'char[' & $suFilter01 + 1 & '];char[' & $suFilter02 + 1 & '];'
Next
; 创建 API 结构
Local $uOFN = DllStructCreate ('dword;int;int;ptr;ptr;dword;dword;ptr;dword' & _
';ptr;int;ptr;ptr;dword;short;short;ptr;ptr;ptr;ptr;ptr;dword;dword' )
Local $usTitle = DllStructCreate ('char[' & StringLen ($sTitle) +1 & ']')
Local $usInitDir= DllStructCreate ('char[' & StringLen ($sInitDir) +1 & ']')
Local $usFilter = DllStructCreate ($suFilter & 'char')
Local $usFile = DllStructCreate ('char[' & $iFileLen & ']')
Local $usExtn = DllStructCreate ('char[' & StringLen ($sDefaultExt) +1 & ']')
For $i=1 To $asFilter [0]
DllStructSetData ($usFilter, $i, $asFilter [$i])
Next
; 为 API 结构设置数据
DllStructSetData ($usTitle, 1, $sTitle)
DllStructSetData ($usInitDir, 1, $sInitDir)
DllStructSetData ($usFile, 1, $sDefaultFile)
DllStructSetData ($usExtn, 1, $sDefaultExt)
DllStructSetData ($uOFN, 1, DllStructGetSize($uOFN))
DllStructSetData ($uOFN, 2, $mainGUI)
DllStructSetData ($uOFN, 4, DllStructGetPtr ($usFilter))
DllStructSetData ($uOFN, 7, 1)
DllStructSetData ($uOFN, 8, DllStructGetPtr ($usFile))
DllStructSetData ($uOFN, 9, $iFileLen)
DllStructSetData ($uOFN, 12, DllStructGetPtr ($usInitDir))
DllStructSetData ($uOFN, 13, DllStructGetPtr ($usTitle))
DllStructSetData ($uOFN, 14, $iFlag)
DllStructSetData ($uOFN, 17, DllStructGetPtr ($usExtn))
DllStructSetData ($uOFN, 23, BitShift (BitAND ($iOpt, 32), 5))
; 调用 API 功能
$ret = DllCall ('comdlg32.dll', 'int', 'GetSaveFileName', 'ptr', DllStructGetPtr ($uOFN) )
If $ret [0] Then
Return DllStructGetData ($usFile, 1)
Else
SetError (1)
Return ""
EndIf
EndFunc
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？加入
×
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2009-10-10 16:21:19
发表于 2009-10-10 18:13:26
发表于 2009-10-11 01:43:11
