Movie Database

[dansxmods]

This is a Script that I have started writing that will search through a directory that you give it and save it to "Movie.db" in the same directory as the script. The code is still very messy and unfinished. I have plans on including code that gets information about each movie from IMdb. There is 2 parts of this script.

Movie Database Viewer.au3 and Movie Database Creator.au3.

Movie Database Viewer.au3 will just view the Movie.db and display the movie list and Movie Database Creator.au3 creates the Movie.db and then views the contents of Movie.db. There is also a search function built into the gui that filters as you type.

Note: This script only looks for .avi's and requires IsPressed_UDF.au3 to be in your Include directory. http://www.autoitscript.com/forum/index.ph...mp;hl=ispressed

I still have alot to learn so please if you have any tips on making this program more efficient or better please comment.

Movie Database Creator.au3

Movie_Database_Creator.au3

Movie_Database_Creator.au3

Movie Database Viewer.au3

Movie_Database_Viewer.au3

Update:

Please change line 12 of Movie Database Creator.au3 to a directory with .avi's in it or it won't work.

Update:

I have combined the two separate scripts and hopefully fixed a bug or 2.

MovieDatabase Ver0.01.au3

MovieDatabase_Ver0.01.au3

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Au3check=n
#AutoIt3Wrapper_Au3Check_Parameters=-U
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Tidy_Stop_onerror=n
#Obfuscator_Parameters=/striponly
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ListViewConstants.au3>
#include <IsPressed_UDF.au3>
#include <file.au3>
#include <array.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <string.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
; Change $sPath01 to the path of your movies
Local $sPath01 = "m:\movies"
Local $sFindFile = "*.avi"
Local $qQuery
Local $aRow
Local $sTitle
Local $aTitleAndPath[1][2]
Local $aTitle
Local $aPath
Local $lListView
Local $lCountLabel
Local $inInput
Local $dll
Global $sRet
Local $sFile_list
Local $sFileName
Local $sReverse
Local $qQuery
Local $aRow
Local $tMsg
Local $aTitleArray[1]
Local $aTitle[1]
Local $gui
Local $listview
Local $iLastrow
Local $aTitleAndPath[1][2]
Opt("wintitlematchmode", 3)
_DisplayResults()
Func RunQuery()
    _SQLite_Startup()
    _SQLite_Open(@ScriptDir & "\Movie.db")
    _SQLite_Query(-1, "SELECT * FROM Movies;", $qQuery)
    $sPath = ""
    $sTitle = ""
    While _SQLite_FetchData($qQuery, $aRow) = $SQLITE_OK
        $sTitle &= $aRow[0] & '%&'
        $sPath &= $aRow[1] & '$%'
    WEnd
    $aTitle = StringSplit($sTitle, '%&', 3)
    $aPath = StringSplit($sPath, '$%', 3)
    Dim $aTitleAndPath[UBound($aTitle)][2]
    For $i = 0 To UBound($aTitle) - 1
        $aTitleAndPath[$i][0] = $aTitle[$i]
        $aTitleAndPath[$i][1] = $aPath[$i]
    Next
    _SQLite_Close()
    _SQLite_Shutdown()
EndFunc   ;==>RunQuery
Func _DisplayResults()
    RunQuery()
    $gDisplayGui = GUICreate("Movies", @DesktopWidth * 0.7, @DesktopHeight * 0.7, -1, -1, BitOR($WS_MAXIMIZEBOX, $WS_SIZEBOX))
    $aWinPos = WinGetPos("Movies")
    $bUpdateButton = GUICtrlCreateButton("Update Database", $aWinPos[2] * 0.30, $aWinPos[3] * 0.87)
    $lListView = GUICtrlCreateListView("Title|Path", 0, 0, $aWinPos[2] * 0.982, $aWinPos[3] * 0.7)
    $lCountLabel = GUICtrlCreateLabel("", $aWinPos[2] * 0.01, $aWinPos[3] * 0.80, 200, 21)
    $inInput = GUICtrlCreateInput("", $aWinPos[2] * 0.01, $aWinPos[3] * 0.75, $aWinPos[2] * 0.20, 21)
    _GUICtrlListView_SetExtendedListViewStyle($lListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_LABELTIP))
    _GUICtrlListView_AddArray($lListView, $aTitleAndPath)
    GUICtrlSetData($lCountLabel, UBound($aTitleAndPath) & " Titles")
    _GUICtrlListView_SetColumnWidth($lListView, 0, $LVSCW_AUTOSIZE)
    _GUICtrlListView_SetColumnWidth($lListView, 1, $LVSCW_AUTOSIZE)
    GUICtrlSetResizing($gDisplayGui, $GUI_DOCKAUTO)
    GUISetState()
    GUICtrlSetState($inInput, $GUI_FOCUS)
    $dll = DllOpen("user32.dll")
    While 1
        $mesg = GUIGetMsg()
        Select
            Case $mesg = $GUI_EVENT_CLOSE
                DllClose($dll)
                Exit
            Case $mesg = $bUpdateButton
                $aAnswer = MsgBox(4, "Movie Database", "Do you want to update the movie database?")
                If $aAnswer = 6 Then
                    GUICtrlSetData($lCountLabel, "Updating Database Please Wait!")
                    GUICtrlSendMsg($lListView, $LVM_DELETEALLITEMS, 0, 0)
                    Update_db()
                    RunQuery()
                    _GUICtrlListView_AddArray($lListView, $aTitleAndPath)
                    GUICtrlSetData($lCountLabel, UBound($aTitleAndPath) & " Titles")
                EndIf
        EndSelect
        If _IsPressed("0D", $dll) Then
            If WinActive("Movies") Then
                _SearchTitles()
            EndIf
        EndIf
        If _IsPressed("08", $dll) Then
            _SearchTitles()
        EndIf
        If _IsAlphaNumKeyPressed($dll) Then
            _SearchTitles()
        EndIf
    WEnd
EndFunc   ;==>_DisplayResults
Func _SearchTitles()
    $sTitles = ""
    $input = GUICtrlRead($inInput)
    If $input = "*" Or $input = "" Then
        GUICtrlSendMsg($lListView, $LVM_DELETEALLITEMS, 0, 0)
        _GUICtrlListView_AddArray($lListView, $aTitleAndPath)
        GUICtrlSetData($lCountLabel, UBound($aTitleAndPath) & " Titles")
    Else
        $iArrayIndex = _ArrayFindAll($aTitleAndPath, $input, 0, 0, 0, 1)
        If $iArrayIndex = -1 Then
            GUICtrlSendMsg($lListView, $LVM_DELETEALLITEMS, 0, 0)
        Else
            Dim $aFound[UBound($iArrayIndex)][2]
            For $iIterate = 0 To UBound($iArrayIndex) - 1
                $aFound[$iIterate][0] = $aTitleAndPath[$iArrayIndex[$iIterate]][0]
                $aFound[$iIterate][1] = $aTitleAndPath[$iArrayIndex[$iIterate]][1]
            Next
            GUICtrlSendMsg($lListView, $LVM_DELETEALLITEMS, 0, 0)
            _GUICtrlListView_AddArray($lListView, $aFound)
        EndIf
        GUICtrlSetData($lCountLabel, UBound($iArrayIndex) & " Titles match the search term")
    EndIf
EndFunc   ;==>_SearchTitles
Func _ShowAll()
    GUICtrlSetData($inInput, "")
    GUICtrlSendMsg($lListView, $LVM_DELETEALLITEMS, 0, 0)
    _GUICtrlListView_AddArray($lListView, $aTitleAndPath)
    GUICtrlSetData($lCountLabel, UBound($aTitleAndPath) & " Titles")
    GUICtrlSetState($inInput, $GUI_FOCUS)
EndFunc   ;==>_ShowAll
DllClose($dll)
Func Update_db()
    ; Initialisations
;~  If FileExists(@ScriptDir & "\Movie.db") Then FileDelete(@ScriptDir & "\Movie.db")
    _SQLite_Startup()
;~  $dbMovie = _SQLite_Open(@ScriptDir & "\Movie.db")
    _SQLite_Open(@ScriptDir & "\Movie.db")
;~  _SQLite_Exec(-1, "PRAGMA synchronous = OFF;")
    _SQLite_Exec(-1, "DROP TABLE IF EXISTS Movies;")
    ; Create Table
    _SQLite_Exec(-1, "CREATE TABLE Movies (Title, Path);")
    $sFile_list = _FindPathName($sPath01, $sFindFile)
    $iMax = UBound($sFile_list) - 1
    $aTitleArray[0] = $iMax
    For $i = 1 To $iMax
        $sReverse = _StringReverse($sFile_list[$i])
        $sFileName = StringLeft($sReverse, StringInStr($sReverse, "\") - 1)
        $sFileName = _StringReverse($sFileName)
        _ArrayAdd($aTitleArray, $sFileName & '%&' & $sFile_list[$i])
    Next
    _ArraySort($aTitleArray, 0, 1)
    _SQLite_Exec(-1, "BEGIN TRANSACTION")
    For $i = 1 To $iMax
        $sFileName = $aTitleArray[$i]
        $aSplit = StringSplit($sFileName, '%&', 3)
        If StringInStr($aSplit[0], "'") > 0 Then
            $aSplit[0] = _SQLite_Escape($aSplit[0])
        Else
            $aSplit[0] = "'" & $aSplit[0] & "'"
        EndIf
        If StringInStr($aSplit[1], "'") > 0 Then
            $aSplit[1] = _SQLite_Escape($aSplit[1])
        Else
            $aSplit[1] = "'" & $aSplit[1] & "'"
        EndIf
        _SQLite_Exec(-1, "INSERT INTO Movies VALUES (" & $aSplit[0] & "," & $aSplit[1] & ");")
    Next
    _SQLite_Exec(-1, "COMMIT TRANSACTION")
    _SQLite_Close()
    _SQLite_Shutdown()
EndFunc   ;==>Update_db
; Found this function in the forum works a treat. Can't remember the author but whoever it was Thank you very much.
Func _FindPathName($sPath01, $sFindFile)
    Local $sSubFolderPath, $iIndex, $aFolders
    $search = FileFindFirstFile($sPath01 & "\" & $sFindFile)
    $aFolders = _FileListToArray($sPath01, "*", 2)
    While 1
        $file = FileFindNextFile($search)
        If @error Then
            ExitLoop
        Else
            $sRet &= $sPath01 & "\" & $file & "|"
        EndIf
    WEnd
    FileClose($search)
    For $iIndex = 1 To UBound($aFolders) - 1
        $sSubFolderPath = $sPath01 & "\" & $aFolders[$iIndex]
        $aFoldersSubs = _FileListToArray($sSubFolderPath, "*", 2)
        If IsArray($aFoldersSubs) Then _FindPathName($sSubFolderPath, $sFindFile)
    Next
    Return StringSplit(StringTrimRight($sRet, 1), "|")
EndFunc   ;==>_FindPathName
Func _getpath($sFile)
    $sReturn = _FindPathName($sPath, $sFile)
    If StringInStr($sReturn[0], "'") > 0 Then
        $sFileName = _SQLite_Escape($sReturn[0])
        Return $sFileName
    Else
        Return $sReturn[0]
    EndIf
EndFunc   ;==>_getpath

Daniel.

Edited June 13, 2009 by dansxmods

[KaFu]

Nice start, will take a deeper look in the evening! It's just noon here .

Best Regards

[dansxmods]

Will look forward to your comments.

Daniel.

[gseller]

I downloaded the files and had to change the include for Movie_Database_Viewer.au3, and downloaded ispressed.. I get the error

>Running:(3.3.0.0):C:\Program Files (x86)\AutoIt3\autoit3_x64.exe "C:\Movie_Database_Creator.au3"   
C:\Movie_Database_Creator.au3 (76) : ==> Subscript used with non-Array variable.:
For $iIndex = 1 To $aFolders[0]
For $iIndex = 1 To $aFolders^ ERROR
->23:52:42 AutoIT3.exe ended.rc:1
+>23:52:43 AutoIt3Wrapper Finished
>Exit code: 1   Time: 1.995

The db file is created tho...

[dansxmods]

I downloaded the files and had to change the include for Movie_Database_Viewer.au3, and downloaded ispressed.. I get the error

>Running:(3.3.0.0):C:\Program Files (x86)\AutoIt3\autoit3_x64.exe "C:\Movie_Database_Creator.au3"   
C:\Movie_Database_Creator.au3 (76) : ==> Subscript used with non-Array variable.:
For $iIndex = 1 To $aFolders[0]
For $iIndex = 1 To $aFolders^ ERROR
->23:52:42 AutoIT3.exe ended.rc:1
+>23:52:43 AutoIt3Wrapper Finished
>Exit code: 1   Time: 1.995

The db file is created tho...

Change line 76 in Movie_Database_Creator.au3 to :

For $iIndex = 1 To UBound($aFolders) - 1

See if that fixes it.

EDIT: Don't forget to change line 12 in Movie_Database_Creator.au3 to a directory with some .avi's in it or it will fail because it can't find any movies.

Daniel.

Edited June 13, 2009 by dansxmods