Formatting with Double Quotes in tcl

[David Harrison]

I want to format a comma separated variable with double quotes for input to a sqlite table. I can do it ok with single quotes but double quotes is giving me a problem.

Code:

proc XltSetRMCOdata {} {
 upvar xlateInVals   xlateInVals
 xlateOutVals  xlateOutVals
 set msg “‘”
 append msg [join $xlateInVals “‘,'”]
 append msg “‘”
 set dtTm [clock format [clock seconds] -format {%Y-%m-%d %H:%M:%S}]
 set sqlcmd “INSERT INTO rm VALUES ($msg,’$dtTm’)”
 echo “XltSetRMCOdata >$sqlcmd<"  package require sqlite  sqlite db /export/quovadx/qdx5.6/integrator/prd/tclprocs/agfa.db  if { [catch {db eval $sqlcmd} result] } {     echo "$result"  }  db close }

Input

Topic

[James Cobane]

David,

You should be able to use double-quotes by “escaping” them with the backslash

Try this:

set msg “”

foreach item $xlateInVals {

   lappend msg “$item”

}

set msg [join $msg ,]

Hope this helps.

Jim Cobane

Henry Ford Health

[Jim Kosloskey]

Another way:

append msg [join $xlateInVals {“,”}]

email: jim.kosloskey@jim-kosloskey.com 29+ years Cloverleaf, 59 years IT - old fart.

[David Barr]

David Harrison wrote:

I want to format a comma separated variable with double quotes for input to a sqlite table. I can do it ok with single quotes but double quotes is giving me a problem.

You should have sqlite expand the variables for you, like this:

Code:

lassign $xlateInVals v1 v2 v3 v4 v5
set dtTm [clock format [clock seconds] -format {%Y-%m-%d %H:%M:%S}]
set sqlcmd {INSERT INTO rm VALUES ($v1,$v2,$v3,$v4,$v5,$dtTm)}

Notice the use of squirrelly brackets instead of quotes to prevent the variable values from being substituted immediately. You don’t have to worry about scanning your data for SQL special characters.

[Author]

Replies