fybhwsx 发表于 2013-1-25 20:13:11

[已解决]netegg 老师请进一下！关于_FileListToArray 函数的使用。

本帖最后由 fybhwsx 于 2013-1-25 21:37 编辑



for $i = 1 to 9
if FileExists($TBszlj & "User\" & $TBloginname & "\Desktop\我的工作区\工作区" & $i &".wsp") then
       WinMenuSelectItem("交易开拓者平台(旗舰版)", "", "文件(&F)", "打开工作区")
       WinWait("打开", "", 9)
       ControlFocus("打开", "", "Edit1")
       ControlSetText("打开", "", "Edit1", "工作区" & $i & ".wsp")
       ControlFocus("打开", "", "Button1")
       ControlClick("打开", "", "Button1")
       WinWait("交易开拓者平台(旗舰版)", "工作区" & $i, 5)
endif
next

以上代码在默认工作区名字的情况下，能够依次打开9个工作区。现在遇到一个问题，就是把工作区改名后，无法使用了。
我查到一个函数 _FileListToArray 但不会使用，是想自动依次打开 $GZQszlj 文件夹中所有的 .wsp ，这需要获取每个工作区xxxx.wsp的名字，才能输入打开。        Local $GZQszlj = $TBszlj & "User\" & $TBloginname & "\Desktop\我的工作区\"       
        Local $FileArray = _FileListToArray($GZQszlj)
        For $i = 1 To $FileArray
        If FileExists("xxxx.wsp") Then
                WinMenuSelectItem("交易开拓者平台(旗舰版)", "", "文件(&F)", "打开工作区")
                WinWait("打开", "", 9)
                ControlFocus("打开", "", "Edit1")
                ControlSetText("打开", "", "Edit1", "xxxx.wsp")
                ControlFocus("打开", "", "Button1")
                ControlClick("打开", "", "Button1")
                WinWait("交易开拓者平台(旗舰版) - ", "xxxx" , 5)
        EndIf
Next

netegg 发表于 2013-1-25 20:27:15

$filearray= _FileListToArray($GZQszlj, '.wsp', 1)
_arraydelete($filearray, 0)
for $file in $filearray
                WinMenuSelectItem("交易开拓者平台(旗舰版)", "", "文件(&F)", "打开工作区")
                WinWait("打开", "", 9)
                ControlFocus("打开", "", "Edit1")
                ControlSetText("打开", "", "Edit1", $file)
                ControlFocus("打开", "", "Button1")
                ControlClick("打开", "", "Button1")
                WinWait("交易开拓者平台(旗舰版) - ", stringtrimright($file, 4) , 5)
next

fybhwsx 发表于 2013-1-25 20:43:51

谢谢老师，不过我刚试了下，没能打开工作区？

afan 发表于 2013-1-25 20:44:49

LZ请增加标题的问题描述

fybhwsx 发表于 2013-1-25 20:49:05

LZ请增加标题的问题描述
afan 发表于 2013-1-25 20:44 http://www.autoitx.com/images/common/back.gif


    好的，版主，既然来了，麻烦也帮忙看看好吗？

fybhwsx 发表于 2013-1-25 20:53:29

请问老师 $file 是怎么来的？

fybhwsx 发表于 2013-1-25 21:18:43

$file 是返回的文件名吗？

netegg 发表于 2013-1-25 21:20:12

回复 7# fybhwsx
文件名数组元素

afan 发表于 2013-1-25 21:28:17

回复 5# fybhwsx         Local $GZQszlj = $TBszlj & "User\" & $TBloginname & "\Desktop\我的工作区\"      
        Local $FileArray = _FileListToArray($GZQszlj, '*.wsp', 1)
        For $i = 1 To $FileArray
                WinMenuSelectItem("交易开拓者平台(旗舰版)", "", "文件(&F)", "打开工作区")
                WinWait("打开", "", 9)
                ControlFocus("打开", "", "Edit1")
                ControlSetText("打开", "", "Edit1", $FileArray[$i])
                ControlFocus("打开", "", "Button1")
                ControlClick("打开", "", "Button1")
                WinWait("交易开拓者平台(旗舰版) - ", StringTrimRight($FileArray[$i], 4), 5)
        Next

fybhwsx 发表于 2013-1-25 21:36:35

回复fybhwsx
afan 发表于 2013-1-25 21:28 http://www.autoitx.com/images/common/back.gif


    谢谢版主，问题完美解决！同时感谢netegg老师的热心帮助！
页: [1]
查看完整版本: [已解决]netegg 老师请进一下！关于_FileListToArray 函数的使用。