Two blanks in a row, TCL help

Try replacing your “split” line with this:

set inListSplit [regexp –inline –all — {\S+} $inList]

Split always returns empty elements if you have consecutive separator characters.

Or maybe do a string map to change 2 spaces to one space before doing the split.

When you split a string that contains two spaces adjacent to each other, it’s going to create an empty element in the resulting list.  So when you loop through that list, the empty element is one of the iterations that just gets tacked onto your ending list.  You could add an ‘if’ to check the length of the element and only do your string operations if the length of the element is greater than zero.  Your result will not have the extra space in it, though, like the original string.

If you want to keep the extra space, you could try something like the following.  Basically treats the address line as a “sentence”, and uses “string totitle” to capitalize the first letter in each word in the sentence.

set inList [lindex $xlateInVals 0]

set address [subst [regsub -all {\S+} $inList {[string totitle &]}]]

set xOut

HTH,

TIM

I think I would try:

string map {{  } { }} variable

where the first element has 2 spaces between { and }, the second element has a single space between { and }.