Jump to content

Leaderboard


Popular Content

Showing most liked content since 08/19/2018 in all areas

  1. 2 points
    Bom dia, Compartilho uma pequena função que auxilia muito o debug... Ao invés de usar o ConsoleWrite, use o Print. Exemplo: Local $var = "teste" Print($var) Local $var[2] = ["um", "dois"] Print($var) Local $var[2][2] = [["três", "quatro"],["cinco", "seis"]] Print($var) Saída: teste [um, dois] [ [três, quatro] [cinco, seis] ] Código: Func Print($var = "") If IsArray($var) Then Switch UBound($var, 0) Case 1 ConsoleWrite("[" & _ArrayToString($var, ", ") & "]" & @LF) Case 2 ConsoleWrite("[" & @LF & " " & "[" & _ArrayToString($var, ", ", 0, Default, "]" & @LF & " " & "[", 0, Default) & "]" & @LF & "]" & @LF) Case Else _ArrayDisplay($var) EndSwitch Else If $var Then ConsoleWrite($var & @LF) Else ConsoleWrite("@empty" & @LF) EndIf EndIf ConsoleWrite(@LF) EndFunc ;==>Print
  2. 1 point
    Olha, isso não responde a sua pergunta, mas como não encontrei outra forma, vou deixar aqui como alternativa, até encontrarmos uma maneira melhor #include <Array.au3> ; Only required to display the arrays #include <File.au3> #include <MsgBoxConstants.au3> Example() Func Example() Local $sAutoItDir = StringLeft(@AutoItExe, StringInStr(@AutoItExe, "\", Default, -1)),$sDrive = "", $sDir = "", $sFileName = "", $sExtension = "",$aPathSplit, $aArray If StringRight($sAutoItDir, 5) = "beta\" Then $sAutoItDir = StringTrimRight($sAutoItDir, 5) EndIf ConsoleWrite($sAutoItDir & @CRLF) $aArray = _FileListToArrayRec($sAutoItDir, "*.au3", $FLTAR_FILESFOLDERS, $FLTAR_RECUR, $FLTAR_NOPATH) For $vElement In $aArray $aPathSplit = _PathSplit($vElement, $sDrive, $sDir, $sFileName, $sExtension) ConsoleWrite($sFileName & @CRLF);somente o nome do arquivo Next EndFunc Obs: faz uns anos ai que trabalho com autoit então estou bem por fora dos codes kkkk
×