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

fybhwsx

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[0]
        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

$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

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

afan

LZ请增加标题的问题描述

fybhwsx

LZ请增加标题的问题描述
afan 发表于 2013-1-25 20:44

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

fybhwsx

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

fybhwsx

$file 是返回的文件名吗？

netegg

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

afan

回复 5# fybhwsx

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

fybhwsx

回复  fybhwsx
afan 发表于 2013-1-25 21:28

    谢谢版主，问题完美解决！同时感谢netegg老师的热心帮助！