egghelp/eggheads community

problem matching indexes in file lines [solved]

2010-07-29T03:08:59-04:00

If the "database" is not too heavy, a good way is to read once the file and store it in an array, so you can easily answer to ?word without re-open and re-read the file.
And you can also immediatly check if the word already exists in the array.

Thats what I use in my jokes.tcl (only in reading) :

Code:

proc joke:load {} {    set jp [open $::jname "r"]    set jdata [read -nonewline $jp]    close $jp    set ::j_list ""    foreach templine [split $jdata "\n"] {        set joke_line [split $templine "="]        set jkey [string tolower [lindex $joke_line 0]]        if {[string index $jkey 0] == "!"} {            set jkey [string range $jkey 1 end]        } else {            lappend ::j_list [string tolower $jkey]        }        set ::joke_key_gen($jkey) [lindex $joke_line 1]        set ::joke_key($jkey) [lindex $joke_line 2]        bind pub - ":$jkey*" joke:display    }}joke:load

Statistics: Posted by CrazyCat — Thu Jul 29, 2010 3:08 am

problem matching indexes in file lines [solved]

2010-07-27T23:45:28-04:00

You are welcome.

Statistics: Posted by willyw — Tue Jul 27, 2010 11:45 pm

problem matching indexes in file lines [solved]

2010-07-27T23:44:24-04:00

Wow, so simple... haha, usually is. Thanks man..

Statistics: Posted by Luminous — Tue Jul 27, 2010 11:44 pm

problem matching indexes in file lines [solved]

2010-07-27T23:18:24-04:00

Examine:

Code:

add {set fs [open "shortcuts.txt"]set data [split [read -nonewline $fs] \n]set check [join [lindex [split $text] 1]]while {[gets $fs line] >= 0} {

that section first.

The file is open, and I suspect the read command has left the file access at the very end of the file.
When you use gets , I think you mean to use it from the beginning of the file.

Thus, try inserting this line:

Code:

seek $fs 0 start

just before your while line.

I hope this helps.

reference:
http://www.tcl.tk/man/tcl8.5/TclCmd/seek.htm

Statistics: Posted by willyw — Tue Jul 27, 2010 11:18 pm

problem matching indexes in file lines [solved]

2010-08-13T13:35:07-04:00

So, I have here, a mostly complete shortcut proc, so users can do like ~cs add word definition. To use it, they simply envoke ?word and get "definition". Problem is, I have no way to make sure the word they give doesn't already exist in the file. Every combination of while {[gets..., foreach, regex and string trim have failed.

There are two parts I need this kind of functionality: in the add { switch and then again in the list { switch section. They differ slightly, but I need a way to match only against the first element in $line.

Problem #2. For some reason, the while {[gets $fs line] >= 0} { line in add { switch does not loop through each line. I tried to make it notice me each line, but it would not. The one is list { is nearly identical, and it will at least notice me properly. But i also need that section to check index one of each line to see if it exists. if so, display 1 end.

http://paste.tclhelp.net/?id=7dr

Help is appreciated. :)

Statistics: Posted by Luminous — Tue Jul 27, 2010 9:27 pm