egghelp/eggheads community

[solved]how to read a text file top to bottom ??

2010-07-05T03:44:24-04:00

thanks dude, works perfectly now

if you get on EFNET #mp3.spam to see it working

Statistics: Posted by doggo — Mon Jul 05, 2010 3:44 am

[solved]how to read a text file top to bottom ??

2010-07-04T20:16:29-04:00

Code:

# Rls: track_list.v1.0.tcl# Date: 19/06/10# Coded by: SaNcTuM# Contact: #a.b.inner-sanctum@EFNET###################################bind PUB - -tlist SaNcTuM_tracksset track_list "/home/eggdrop/requests/track_lists"proc SaNcTuM_tracks {nick uhost hand chan text} {    set number [lindex [split $text] 0]    set filename ${::track_list}/${number}.txt    if {![file exists $filename]} {        putquick "NOTICE $nick :Track list file not found."        return    }    set tracks [open $filename]    set data [split [read -nonewline $tracks] \n]    close $tracks    foreach music_info $data {        putquick "NOTICE $nick :\00315$music_info"    } }putlog "track_list.v1.0 LOADED"

It's probably showing in reverse due to utimer. There's no need to use utimer here I think as putquick is already queued.

I made it extract argument more correctly and added the check for if file doesn't exist.

But I didn't test this so ;p

Statistics: Posted by horgh — Sun Jul 04, 2010 8:16 pm

[solved]how to read a text file top to bottom ??

2010-07-05T03:44:57-04:00

my script reads from a txt file that looks like this

Code:

Track list for - Vertex_-_Archipelago-(TESD001)-WEB-2010-HQEM-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-01-vertex-oceanos.mp302-vertex-archipelago.mp303-vertex-hungary_dance.mp304-float_and_vertex-oceansphere.mp3

heres the script...

Code:

# Rls: track_list.v1.0.tcl# Date: 19/06/10# Coded by: SaNcTuM# Contact: #a.b.inner-sanctum@EFNET###################################bind PUB - -tlist SaNcTuM_tracksset track_list "/home/eggdrop/requests/track_lists"proc SaNcTuM_tracks {nick uhost hand chan text} {    set tracks [open $::track_list/[lindex $text 0].txt r]    set data [split [read -nonewline $tracks] \n]    close $tracks    foreach music_info $data {        utimer 3 [list putquick "NOTICE $nick :\00315$music_info"]    }    return 0 } putlog "track_list.v1.0 LOADED"

but it reads the .txt file from the bottom up :/

Code:

[18:51] <@mojo> -tlist 31810[18:51] -moopig- 04-float_and_vertex-oceansphere.mp3[18:51] -moopig- 03-vertex-hungary_dance.mp3[18:51] -moopig- 02-vertex-archipelago.mp3[18:51] -moopig- 01-vertex-oceanos.mp3[18:51] -moopig- -~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-[18:51] -moopig- Track list for - Vertex_-_Archipelago-(TESD001)-WEB-2010-HQEM

i would also like it to notice the user if there is no file to display

thanks guys..

Statistics: Posted by doggo — Sun Jul 04, 2010 1:53 pm