Jump to content

guruck

Membros
  • Content count

    2
  • Joined

  • Last visited

Community Reputation

1 Neutro

About guruck

  • Rank
    Novato

Profile Information

  • Location
    São Paulo
  1. Formulário simples com SQLite

    Pra quem der erro @@joelson0007, no banco de dados "O 'arquivo de banco de dados' [base.db] não pode ser aberto." linha65 colocar: Global $sLocalSQLiteDLL = @ScriptDir & "\sqlite3.dll" ;deve adicionar a dll do sqlite na pasta onde encontra-se o script linha276 substituir: _SQLite_Startup() por _SQLite_Startup($sLocalSQLiteDLL, False, 1)
  2. Peguei alguns exemplos daqui do forun de tratamento de arquivo e arrays do pro proprio help do AutoIt e montei um que promete fazer o que deseja, sem a necessidade de deixar o robo alí direto, ocupando espaço na memória. #AutoIt3Wrapper_Compression=0 ;Compression parameter 0-4 0=Low 2=normal 4=High. Default=2 #AutoIt3Wrapper_UseUpx=n ;(Y/N) Compress output program. Default=Y #include <GuiListView.au3> #include <Misc.au3> #include <Array.au3> #include <FileConstants.au3> Global $hWnd_LV = ControlGetHandle("[CLASS:Progman]", "", "SysListView321") Global $icons[_GUICtrlListView_GetItemCount($hWnd_LV)][3] Global $iIconsCount = UBound($icons, 1) - 1 Global $sNomeDoArquivo = "teste.txt" Global $sConteudo = LerArquivo($sNomeDoArquivo) Global $aLinhas = TransformarEmArray($sConteudo) _StartIconPos() $backup = $icons $msgSalvarPos = MsgBox($MB_CANCELTRYCONTINUE, "Salvar Posições", "Cancel = Sai; Try Again = Salva posições; Continua = Restaura posições") Switch $msgSalvarPos Case 2 _exit() case 10 Guarda($backup) _exit() case 11 _RestorePos() _exit() EndSwitch Func Guarda($pos) if IsArray($pos) Then $hFile = FileOpen("teste.txt",2) FileWrite($hFile,_ArrayToString($pos,@TAB, 0, $iIconsCount, @CRLF, 0, 2)) EndIf EndFunc WinActivate("Program Manager") WinWaitActive("Program Manager") HotKeySet("{EsC}", "_EXIT") While 1 Sleep(100) WEnd Func _exit() Exit EndFunc ;==>_exit Func _StartIconPos($lFlag = 0) For $i = 0 To $iIconsCount If $lFlag = 0 Then $icons[$i][0] = $i $temp = _GUICtrlListView_GetItemPosition($hWnd_LV, $i) $icons[$i][1] = $temp[0] $icons[$i][2] = $temp[1] EndIf Next EndFunc ;==>_StartIconPos Func _RestorePos() For $t = 1 To $iIconsCount +1 _GUICtrlListView_SetItemPosition($hWnd_LV, $aLinhas[$t][0], $aLinhas[$t][1], $aLinhas[$t][2]) _GUICtrlListView_SetItemSelected($hWnd_LV, $aLinhas[$t][0], False) Next EndFunc ;==>_RestorePos Func TransformarEmArray($sInput = 0) Local $arr2[1][3] _ArrayAdd($arr2, $sInput,Default, @TAB, @CRLF) Return $arr2 EndFunc ;==>TransformarEmArray Func LerArquivo($sInput = 0) If Not $sInput Then Return die("LerArquivo @ A função precisa de um parâmetro definido") If Not FileExists($sInput) Then die("LerArquivo @ O arquivo '" & $sInput & "' não existe ou não é um arquivo válido") Local $hOpen = FileOpen($sInput, $FO_READ + $FO_UTF8_NOBOM) If @error Then die("LerArquivo @ Aconteceu algum erro ao abrir o arquivo '" & $sInput & "'") Local $sRet = FileRead($hOpen) If @error Then die("LerArquivo @ Ocorreu algum erro ao ler o arquivo '" & $sInput & "'") FileClose($hOpen) Return $sRet EndFunc ;==>LerArquivo Espero que seja isso exatamente
×