egghelp/eggheads community

looping?

2002-05-22T10:40:00-04:00

Code:

proc read_ini_section {ini section} {  set fp [open $ini r]  set insec 0  set ret {}  while {![eof $fp]} {    set in [gets $fp]    if {($insec)  || ([string match "[${section}]" $in])} {      set insec 1      if {[string match "[*]" $in]} { break }      if {[llength [split $in =]] == 2} {lappend ret [list [lindex [split $in =] 0][lindex [split $in =] 1]] }    }  }  catch {close $fp}  return $ret}

This is a generic INI section reader.

It can be used to populate a Tcl array, or simply use a foreach loop to use the return value.

EG

Code:

array set array1 [read_ini_section file.ini section1]

Code:

foreach {name value} [read_ini_section file.ini section1] {  puthelp "PRIVMSG $chan :"${name}" is set to "${value}""}

Statistics: Posted by ppslim — Wed May 22, 2002 10:40 am

looping?

2002-05-21T11:37:00-04:00

already got that
The problem was not the reading part... but how to make one command read through the same section 25 times and output the value of the items, one item on each line in say.. a privmsg

..but as I said.. I used several small procs and that works fine actually. Easier to modify the bot's reply on each item

Thx anyway

_________________
Elen sila lúmenn' omentielvo

[ This Message was edited by: Papillon on 2002-05-21 09:39 ]

Statistics: Posted by Papillon — Tue May 21, 2002 11:37 am

looping?

2002-05-21T10:30:00-04:00

It would be simpler to get make a generic INI parser.

Code:

proc read_ini {ini section item} {  set fp [open $ini r]  set insec 0  set ret ""  while {![eof $fp]} {    set in [gets $fp]    if {($insec)  || ([string match "[${section}]" $in])} {      set insec 1      if {[string match "[*]" $in]} { break }      if {$item == [lindex [split $in =] 0]} {        set ret [lindex [split $in =] 1]        break      }    }  }  catch {close $fp}  return $ret}

My Tcl is a little rusty, but this should parse a INI file, and return a item, under a certain section, while ignoring items named the same, under other sections.

Statistics: Posted by ppslim — Tue May 21, 2002 10:30 am

looping?

2002-05-21T09:22:00-04:00

thx but it does not mather anymore.. I just made alot of procs
Actually the "items" are limited so I just had to make 25 small procs.. works fine.

Statistics: Posted by Papillon — Tue May 21, 2002 9:22 am

looping?

2002-05-20T10:26:00-04:00

If you could paste an example of the layout of the INI file (maybe some real data, with many 4 or 5 entries under 3 sections) and how you want the data (from example posted) presented, it will be clearer.

Statistics: Posted by ppslim — Mon May 20, 2002 10:26 am

looping?

2002-05-19T12:14:00-04:00

when working with inifiles the bot does not read to the end of the file. It read one specified [section] and one [item] under that.

[section]
item=value

so what I want it to do is to read one section multiple times and output the value of the different "items" , one on each lines... like if the items are nicknames...
it would reply : Nick 1(the item) is st00pid(the value of the item)

thx anyway

Statistics: Posted by Papillon — Sun May 19, 2002 12:14 pm

looping?

2002-05-18T14:39:00-04:00

Something like this?

Code:

set read_ini [open $filename r]while {![eof $read_ini]} {set data [gets $read_ini]if {[eof $read_ini]} {break}if {[string compare [lindex [split $data =] 0] $id] == 0} {putlog "Info for $id : [lrange [split $data =] 1 end] "}}close $read_ini

[ This Message was edited by: Jules_74 on 2002-05-18 12:40 ]

Statistics: Posted by Guest — Sat May 18, 2002 2:39 pm

looping?

2002-05-16T20:43:00-04:00

here's the problem I can't seem to figure out...

I'm working with ini files in a script for storing info

[info]
1=blabla
2=blabla
7=blabla
12=blabla

now the problem is how to make the bot search trought [info] and output the info of 1,2,7 and 12, one on each line...(those numbers might be different in each section)

anyone able to help me on this?

Statistics: Posted by Papillon — Thu May 16, 2002 8:43 pm