Sign in to follow this  
Followers 0
Emerica

Podcast Viewer

3 posts in this topic

This is my first experimentation with Autoit, Im sure theres issues and probly easier ways to do this.

The only problem is Aut2Exe doesnt seem to want to convert it to and exe.

You will have to rename the feeds.txt to feeds.ini, The forums do not allow ini uploads.

If you manage to get it to compile with Aut2Exe let me know what you did to make it work. It does compile but wont run, a badly formatted Func on line 0.

Cheers

feedme.au3

feeds.txt

Share this post


Link to post
Share on other sites



There were Errors in your script... should use SciTe Editor to help you in the future, Also you must use Beta to compile:

>C:\Program Files\AutoIt3\SciTE\CompileAU3\CompileAU3.exe /beta /AU3Check /in "C:\Documents and Settings\Ron\Desktop\AU3Files\Misc2.au3"

>Running AU3Check C:\Program Files\AutoIt3\SciTE\Defs\Unstable\Au3Check\au3check.dat

C:\Documents and Settings\Ron\Desktop\AU3Files\Misc2.au3(537,13) : ERROR: syntax error

If $box NOT

~~~~~~~~~~~~^

C:\Documents and Settings\Ron\Desktop\AU3Files\Misc2.au3(554,13) : ERROR: syntax error

If $url NOT

~~~~~~~~~~~~^

C:\Documents and Settings\Ron\Desktop\AU3Files\Misc2.au3(582,33) : ERROR: syntax error

If $url_array[$cur] NOT

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Documents and Settings\Ron\Desktop\AU3Files\Misc2.au3(594,13) : ERROR: syntax error

If $url NOT

~~~~~~~~~~~~^

C:\Documents and Settings\Ron\Desktop\AU3Files\Misc2.au3(594,30) : ERROR: syntax error

If $url NOT="" AND $name NOT

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Documents and Settings\Ron\Desktop\AU3Files\Misc2.au3 - 5 error(s), 0 warning(s)

>AU3Check Ended with Error(s).

>Exit code: 0 Time: 0.308

I cleaned those up for you, compiled in beta and it worked
#include <GUIConstants.au3>
#include <GuiListView.au3>
$Form1 = GUICreate("FeedMe", 932, 591, 28, 76)
$Group1 = GUICtrlCreateGroup("Player", 8, 8, 337, 265)
;WMPlayer.OCX.7
;VideoLAN.VLCPlugin.1
;QuickTime.QuickTime.4
$player = ObjCreate("QuickTime.QuickTime.4")
$playerob = GUICtrlCreateObj($player, 16, 24, 320, 240)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Feeds", 352, 8, 577, 265)
$list2 = GUICtrlCreateListView("#|Name|Feed", 360, 24, 561, 209, -1, BitOR($LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT))
$feedname = GUICtrlCreateInput("name", 360, 240, 200, 21, -1, $WS_EX_CLIENTEDGE)
$feed = GUICtrlCreateInput("url", 570, 240, 190, 21, -1, $WS_EX_CLIENTEDGE)
$addfeed = GUICtrlCreateButton("Add", 768, 240, 43, 21)
$delfeed = GUICtrlCreateButton("Del", 818, 240, 43, 21)
$getfeed = GUICtrlCreateButton("Load",868, 240, 43, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Media", 8, 280, 921, 305)
$list = GUICtrlCreateListView("#|Type|Length|Location", 16, 296, 905, 248, -1, BitOR($LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT))
$watch = GUICtrlCreateButton("Watch", 840, 552, 81, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

load_feeds()

While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $addfeed
            add_feed()
        Case $msg = $getfeed
            get_feed()
        Case $msg = $delfeed
            del_feed()
        Case $msg = $watch
            $result = _GUICtrlListViewGetSelectedIndices($list)
            If $result >=0 Then
                $data = _GUICtrlListViewGetItemTextArray($list, $result)
                If $data[0]>0 Then
                    $player.SetAutoPlay(true);
                    $player.SetUrl($data[4])
                    sleep(20)
                    $player.Play()
                EndIf
            EndIf
        Case Else
    EndSelect
WEnd
Exit

Func load_feeds()
    $var = IniReadSectionNames("feeds.ini")
    If @error Then
        MsgBox(4096, "", "Error occured, probably no feeds.ini file.")
    Else
        _GUICtrlListViewDeleteAllItems($list2)
        For $i = 1 To $var[0]
            $sec = IniReadSection("feeds.ini", $var[$i])
            GUICtrlCreateListViewItem($i & "|" & $var[$i] & "|" & $sec[1][1], $list2)
        Next
    EndIf
EndFunc

Func get_feed()
    $box = GUICtrlRead($feed)
    If $box <> "" Then
        $url = $box

    Else
        $url =""
    EndIf
    If $url == "" Then
        $result = _GUICtrlListViewGetSelectedIndices($list2)
        If $result >=0 Then
            $data = _GUICtrlListViewGetItemTextArray($list2, $result)
            $url = $data[3]
            GUICtrlSetData($Group3,$data[2])
        EndIf
    EndIf
    _GUICtrlListViewDeleteAllItems($list)
    GUICtrlSetData($feed,"")
    GUICtrlSetData($feedname,"")
    If $url <> "" Then
        Inetget($url, @TempDir & "\temp.xml", 1, 0)
        $doc = ObjCreate("Msxml2.DOMdocument.3.0")
        $doc.async=false
        $doc.Load(@TempDir & "\temp.xml")
        $oXmlroot = $doc.documentElement
        $urlList = $oXmlroot.SelectNodes("/rss/channel/item/enclosure/@url")
        $lengthList = $oXmlroot.SelectNodes("/rss/channel/item/enclosure/@length")
        $typeList = $oXmlroot.SelectNodes("/rss/channel/item/enclosure/@type")
        $urls=""
        For $oXmlNode In $urlList
            $urls = $urls & $oXmlNode.text & "|"
        Next

        $lengths=""
        For $oXmlNode In $lengthList
            $lengths = $lengths & $oXmlNode.text & "|"
        Next
        $types=""
        For $oXmlNode In $typeList
            $types = $types & $oXmlNode.text & "|"
        Next
        $url_array = StringSplit($urls, "|")
        $length_array = StringSplit($lengths, "|")
        $type_array = StringSplit($types, "|")
        $cur=1

        For $item In $url_array
            If $url_array[$cur] <> "" Then
                GUICtrlCreateListViewItem($cur & "|" & $type_array[$cur] & "|" & $length_array[$cur] & "|" & $url_array[$cur], $list);
                $cur=$cur+1
            EndIf
        Next
    EndIf
EndFunc


Func add_feed()
    $name = GUICtrlRead($feedname)
    $url = GUICtrlRead($feed)
    If $url <> "" AND $name <> "" Then
        $count = _GUICtrlListViewGetItemCount($list2)
       ;GUICtrlCreateListViewItem($count & "|" & $name & "|" & $url, $list2)
        IniWrite ( "feeds.ini", $name, "url", $url)
        load_feeds()
    EndIf
EndFunc

Func del_feed()
    $result = _GUICtrlListViewGetSelectedIndices($list2)
    $data = _GUICtrlListViewGetItemTextArray($list2, $result)
    $name = $data[2]
    IniDelete ( "feeds.ini", $name )
    load_feeds()
EndFunc

[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Cool, thanks, so thats how the Not syntax is done. Little confubuled, not really something to change an editor over thou.

I'm using the latest beta, both versions run fine. BUT do not compile to EXE

Line 0 (File "C:\Auto_it\feedme.exe"):

Func_ArrayDisplay(Const ByRef $avArray, $sTitle)

Func_ArrayDisplay(^Error

Error: Badly formatted "Func" statement

-UPDATE - I Reinstalled the beta and tried to compile it again and it seems to run great now.

Edited by Emerica

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0