egghelp/eggheads community

Tricky Database Question

2004-05-03T06:08:46-04:00

In tcl, you can make lists with actual list commands rather than a string with entries separated by commas. It will be much easier to change stuff around. Then, if you need the comma-separated string for something later, you can use the join command to get it.

For instance:

set names

set string "names=[join $names ,]"

now string = "names=name1,name2,name3,name4"

Statistics: Posted by stdragon — Mon May 03, 2004 6:08 am

Tricky Database Question

2004-05-02T13:26:11-04:00

Thanks to alot of searching, I found something that does just the job I need for this.

Code:

proc varrep {string what with} {    if {![string match "*$what*" $string]} {return $string}    set cutstart [expr [string first $what $string] - 1]    set cutstop  [expr $cutstart + [string length $what] + 1]    set string [string range $string 0 $cutstart]$with[string range $string $cutstop end]    return $string }

Then called with

set changed_var [varrep $string $what $with]

Having changed those var's of course ;p

Statistics: Posted by SomeGuy — Sun May 02, 2004 1:26 pm

Tricky Database Question

2004-05-02T12:18:56-04:00

Ok, say I have a line that looks like this:

name=char1,char2,char3,char4,

Now I have got my script to properly append new things on to that, as well as I have got it to list. Now where I get stuck is when I try to delete say char3, but leave everything else intact.

So say if I wanted to use a command to delete char 3, I want the line to in turn look like this:

name=char1,char2,char4,

I'm sure lreplace or append could do exactly what I lookin for here, but I'm such a newb when it comes to using lists. It took a long time just to get the adding and listing done.

If someone has a good link that may direct me on to how to do this that would be awesome. Or even just a push in the right direction, cuz i'm at a blank right now. Thanks

Statistics: Posted by SomeGuy — Sun May 02, 2004 12:18 pm