July 6, 2008 12:54am pdt

There are currently no qualifying experts in Vignette Server

1. hooker 2,950
2. ahoffmann 2,000
2. wwgfr 2,000
4. greenhaze 1,800
5. mitch01 1,600
6. 1technocrat 1,250
7. e1ucas 1,225
8. isidor 800
8. mal247 800
10. dgbaker 750
11. aralic 600
12. davemas 400
12. sunnycoder 400
14. gfactor 310
15. DominicC... 300
15. DialM4Mo... 300

03.19.2001 at 04:09AM PST, ID: 20093677

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.0

TCL: problem with REGSUB command

Zone: Vignette Server

Tags: tcl, regsub

I need to use REGSUB command on a text containing the $ character. I tried to escape this character with some backslashes, but it seems that REGSUB command completely ignores them still trying to access a variable.
How can I solve this problem?

Start your free trial to view this solution

Question Stats

Zone: Software

Question Asked By: claud_io

Solution Provided By: hooker

Participating Experts: 2

Solution Grade: B

Translate:

Loading Advertisement...

Microsoft

Internet Protocols
Applications

Development
OS

Hardware
Windows Security

Apple

Operating Systems
Hardware

Programming
Networking

Software

Internet

Search Engines
File Sharing
WebTrends / Stats
Spy / Ad Blockers

Web Browsers
New Net Users
Web Development
Chat / IM

Anti Spam
Web Servers
Anti-Virus
Email Clients

Gamers

Tips
Online / MMORPG
Puzzle
Emulators

Action / Adventure
Role Playing
Consoles
Game Programming

Strategy
Sports
Misc
Computer Games

Digital Living

Hardware
New Net Users
New Users

Software
Digital Music
Gaming World

Home Security
Apple
Networking Hardware

Virus & Spyware

Vulnerabilities
IDS
Encryption
Anti-Virus

Operating Systems Security
Software Firewalls
WebApplications
Cell Phones

Operating Systems
Internet
Hardware Firewalls

Hardware

Handhelds / PDAs
Displays / Monitors
Components
Networking Hardware

Peripherals
Laptops/Notebooks
Storage
Servers

Desktops
New Users
Misc
Apple

Software

System Utilities
Industry Specific
Network Management
Photos / Graphics
Page Layout
VMWare
Misc
Web Development

OS
CYGWIN
Voice Recognition
Message Queue
Quality Assurance
Security
Firewalls
MultiMedia Applications

Development
Database
Office / Productivity
Business Management
OS/2 Apps
Server Software
Internet / Email

ITPro

OS
Storage
Encryption
Operating Systems Security
Apple Hardware
Laptops & Notebooks
Servers
Networking Hardware
Peripherals

Devices
Displays / Monitors
WebTrends / Stats
Search Engines
Firewalls
WebApplications
IDS
Vulnerabilities
Email Clients

File Sharing
Spy / Ad Blockers
Web Browsers
Web Servers
Networking
Anti-Virus
Chat / IM
Anti Spam

Developer

Web Servers
Web Browsers
Game Programming
Dev Tools
Industry Specific
Office / Productivity

Database
CYGWIN
Web Development
Search Engines
File Sharing
WebTrends / Stats

Programming
Content Management
Application Servers
Protocols

Storage

Removable Backup Media
Storage Technology
Servers

Grid
Remote Access
Backup / Restore

Misc
Hard Drives

Miscellaneous
Security
Development
Linux
VMWare

MainFrame OS
Unix
Apple
OS / 2
AS / 400

BeOS
Microsoft
VMS / OpenVMS

Database

Oracle
Miscellaneous
MySQL
Software
Sybase
Contact Management
PostgreSQL
Data Manipulation
Clarion
InterSystems Cache

Siebel
MUMPS
OLAP
SQLBase
SAS
GIS & GPS
4GL
Berkeley DB
DB2
Informix

Interbase / Firebird
FoxPro
Reporting
LDAP
Filemaker Pro
MS SQL Server
dBase
MS Access

Security

Misc
Web Browsers
Software Firewalls
Operating Systems Security
File Sharing

Spy / Ad Blockers
Vulnerabilities
WebApplications
IDS
Anti-Virus

Encryption
Anti Spam
Email Clients
VPN
Chat / IM

Programming

Editors IDEs
Installation
Handhelds / PDAs
Multimedia Programming
System / Kernel

Algorithms
Game
Signal Processing
Project Management
Open Source

Database
Misc
Languages
Processor Platforms
Theory

Web Development

Scripting
Blogs
Web Servers
Software
Search Engines
Web Graphics
Images

Internet Marketing
Images and Photos
Components
Document Imaging
Web Languages/Standards
Illustration
WebApplications

Fonts
WebTrends / Stats
Authoring
Digital Camera Software
Miscellaneous

Networking

Protocols
Apple Networking
Network Management
Message Queue
Application Servers
Content Management
File Servers
Email Servers
Misc
Java Editors & IDEs

Wireless
Networking Hardware
Backup / Restore
System Utilities
ISPs & Hosting
Web Servers
Storage Technology
Removable Backup Media
Servers
Broadband

Grid
OS / 2
Novell Netware
Unix Networking
Windows Networking
Security
Telecommunications
Operating Systems
Linux Networking

Other

Community Advisor
Lounge
Community Support
New Net Users

Philosophy / Religion
Math / Science
Miscellaneous
URLs

Expert Lounge
Politics
Puzzles / Riddles

Community Support

Suggestions
New to EE
New Topics
Community Advisor

CleanUp
Announcements
General

Feedback
Input
EE Bugs

03.20.2001 at 07:54AM PST, ID: 5942891

hooker:

The $ shouldn't cause any problems on it's own.

I would expect the problem to be the number of backslashes being used. Increase the number one by one until it works.

The exact number needed depends on whether you're escaping within pure tcl or within StoryServer commands.
And the number of non-pure TCL nested commands can affect - apparently the rule is that you must escape the character 2^n times where n is the degree of nests.

In my experience, trial and error gets you there in the end.

Cheers,
Dominic.

03.20.2001 at 08:10AM PST, ID: 5942918

hooker:

The $ shouldn't cause any problems.

I would expect the problem to be the number of backslashes being used. Increase the number one by one until it works.

The exact number needed depends on whether you're escaping within pure tcl or within StoryServer commands.
And the number of non-pure TCL nested commands can affect - apparently the rule is that you must escape the character 2^n times where n is the degree of nests.

In my experience, trial and error gets you there in the end.

Cheers,
Dominic.

03.21.2001 at 02:07AM PST, ID: 5945254

claud_io:

I already tried this way starting with one backslash and increasing them little by little with no results ... at the moment I have to cicle into the string to substitute the $ character with a specific pattern, use regsub (I use it 99 times!!!!) and then cicle again to substitute the pattern with the original $.

The problem is that I build a complex tcl command into a string and then and evaluate it.
Here an example:

for {SET zy 1} {[SHOW zy] <= 99} {SET zy [expr [SHOW zy] + 1]} {
set b "regsub -all \\"[SHOW char([SHOW zy])]\\" \\"$newtext\\" {\\\\[SHOW codHTML([SHOW zy])]} newtext"
eval $b
}

03.21.2001 at 05:48AM PST, ID: 5945802

hooker:

Can you give me a clear example that I can copy into my own environment to see
a) what you want to do but does not work
b) what you're doing instead.

Cheers.

03.22.2001 at 03:32AM PST, ID: 5949212

hooker:

Claud_io,

I've given this more thought and I'm more aware of your problem than before.
The problem is that there are hidden meanings to certain characters with regsub and regexp.
The code below works for me up to character 48
[
set string {abcdef$ghi'}
for {set zy 1} {$zy <= 40} {incr zy} {
regsub -all \\\\[format %c $zy] $string * string
}
NULL
]

similarly if it was just $ that you wanted to substitute, then this works:
regsub -all \\\\$ $string {\\$} string

However, there are two more complications. Firstly, for character 49, the "\\\\[format %c $zy]" of the first bit of code evaluates to \\1 which means the first matched string with regexp and regsub and not just match "1" (and the same problem exists for all numbers). This is a big problem! Also \\C seems to mean something too...

Secondly, if you want to loop through the characters and substitute the special characters with their entity representation, e.g. $ then at 35 "#" would be changed to # but at 38 that would then be changed to &#0035; etc.

I hope I have explained all that in a way that can be understood by anyone else.

In other words, presumably your aim is to substitute all special characters with their html entity codes. I can't think of a nice and easy way to do it in one loop because you need \\ for some characters and not for others.

Cheers.

Accepted Solution

03.22.2001 at 03:45AM PST, ID: 5949242

claud_io:

[# This piece of code is used to convert an UTF-8 text read from DB to the correspondent HTML code ]

[
# a A with accent
SET codHTML(1) "à"
SET char(1) "[format "%c" 195][format "%c" 160]"
SET codHTML(2) "á"
SET char(2) "[format "%c" 195][format "%c" 161]"
SET codHTML(3) "â"
SET char(3) "[format "%c" 195][format "%c" 162]"
SET codHTML(4) "ã"
SET char(4) "[format "%c" 195][format "%c" 163]"
SET codHTML(5) "ä"
SET char(5) "[format "%c" 195][format "%c" 164]"
SET codHTML(6) "À"
SET char(6) "[format "%c" 195][format "%c" 128]"
SET codHTML(7) "Á"
SET char(7) "[format "%c" 195][format "%c" 129]"
SET codHTML(8) "Â"
SET char(8) "[format "%c" 195][format "%c" 130]"
SET codHTML(9) "Ã"
SET char(9) "[format "%c" 195][format "%c" 131]"
SET codHTML(10) "Ä"
SET char(10) "[format "%c" 195][format "%c" 132]"

# e E with accent
SET codHTML(11) "è"
SET char(11) "[format "%c" 195][format "%c" 168]"
SET codHTML(12) "é"
SET char(12) "[format "%c" 195][format "%c" 169]"
SET codHTML(13) "ê"
SET char(13) "[format "%c" 195][format "%c" 170]"
SET codHTML(14) "ë"
SET char(14) "[format "%c" 195][format "%c" 171]"
SET codHTML(15) "È"
SET char(15) "[format "%c" 195][format "%c" 136]"
SET codHTML(16) "É"
SET char(16) "[format "%c" 195][format "%c" 137]"
SET codHTML(17) "Ê"
SET char(17) "[format "%c" 195][format "%c" 138]"
SET codHTML(18) "Ë"
SET char(18) "[format "%c" 195][format "%c" 139]"

# i I with accent
SET codHTML(19) "ì"
SET char(19) "[format "%c" 195][format "%c" 172]"
SET codHTML(20) "í"
SET char(20) "[format "%c" 195][format "%c" 173]"
SET codHTML(21) "î"
SET char(21) "[format "%c" 195][format "%c" 174]"
SET codHTML(22) "ï"
SET char(22) "[format "%c" 195][format "%c" 175]"
SET codHTML(23) "Ì"
SET char(23) "[format "%c" 195][format "%c" 140]"
SET codHTML(24) "Í"
SET char(24) "[format "%c" 195][format "%c" 141]"
SET codHTML(25) "Î"
SET char(25) "[format "%c" 195][format "%c" 142]"
SET codHTML(26) "Ï"
SET char(26) "[format "%c" 195][format "%c" 143]"

# o O with accent
SET codHTML(27) "ò"
SET char(27) "[format "%c" 195][format "%c" 178]"
SET codHTML(28) "ó"
SET char(28) "[format "%c" 195][format "%c" 179]"
SET codHTML(29) "ô"
SET char(29) "[format "%c" 195][format "%c" 180]"
SET codHTML(30) "õ"
SET char(30) "[format "%c" 195][format "%c" 181]"
SET codHTML(31) "ö"
SET char(31) "[format "%c" 195][format "%c" 182]"
SET codHTML(32) "Ò"
SET char(32) "[format "%c" 195][format "%c" 146]"
SET codHTML(33) "Ó"
SET char(33) "[format "%c" 195][format "%c" 147]"
SET codHTML(34) "Ô"
SET char(34) "[format "%c" 195][format "%c" 148]"
SET codHTML(35) "Õ"
SET char(35) "[format "%c" 195][format "%c" 149]"
SET codHTML(36) "Ö"
SET char(36) "[format "%c" 195][format "%c" 150]"

# u U with accent
SET codHTML(37) "ù"
SET char(37) "[format "%c" 195][format "%c" 185]"
SET codHTML(38) "ú"
SET char(38) "[format "%c" 195][format "%c" 186]"
SET codHTML(39) "û"
SET char(39) "[format "%c" 195][format "%c" 187]"
SET codHTML(40) "ü"
SET char(40) "[format "%c" 195][format "%c" 188]"
SET codHTML(41) "Ù"
SET char(41) "[format "%c" 195][format "%c" 153]"
SET codHTML(42) "Ú"
SET char(42) "[format "%c" 195][format "%c" 154]"
SET codHTML(43) "Û"
SET char(43) "[format "%c" 195][format "%c" 155]"
SET codHTML(44) "Ü"
SET char(44) "[format "%c" 195][format "%c" 156]"

# other simbols
SET codHTML(45) "©"
SET char(45) "[format "%c" 194][format "%c" 169]"
SET codHTML(46) "¨"
SET char(46) "[format "%c" 194][format "%c" 168]"
SET codHTML(47) "«"
SET char(47) "[format "%c" 194][format "%c" 171]"
SET codHTML(48) "»"
SET char(48) "[format "%c" 194][format "%c" 187]"
SET codHTML(49) "´"
SET char(49) "[format "%c" 194][format "%c" 180]"
SET codHTML(50) "¡"
SET char(50) "[format "%c" 194][format "%c" 161]"
SET codHTML(51) "¢"
SET char(51) "[format "%c" 194][format "%c" 162]"
SET codHTML(52) "£"
SET char(52) "[format "%c" 194][format "%c" 163]"
SET codHTML(53) "¤"
SET char(53) "[format "%c" 194][format "%c" 164]"
SET codHTML(54) "¥"
SET char(54) "[format "%c" 194][format "%c" 165]"
SET codHTML(55) "¦"
SET char(55) "[format "%c" 194][format "%c" 166]"
SET codHTML(56) "§"
SET char(56) "[format "%c" 194][format "%c" 167]"
SET codHTML(57) "ª"
SET char(57) "[format "%c" 194][format "%c" 170]"
SET codHTML(58) "¬"
SET char(58) "[format "%c" 194][format "%c" 172]"
SET codHTML(59) "®"
SET char(59) "[format "%c" 194][format "%c" 174]"
SET codHTML(60) "¯"
SET char(60) "[format "%c" 194][format "%c" 175]"
SET codHTML(61) "°"
SET char(61) "[format "%c" 194][format "%c" 176]"
SET codHTML(62) "±"
SET char(62) "[format "%c" 194][format "%c" 177]"
SET codHTML(63) "²"
SET char(63) "[format "%c" 194][format "%c" 178]"
SET codHTML(64) "³"
SET char(64) "[format "%c" 194][format "%c" 179]"
SET codHTML(65) "µ"
SET char(65) "[format "%c" 194][format "%c" 181]"
SET codHTML(66) "¶"
SET char(66) "[format "%c" 194][format "%c" 182]"
SET codHTML(67) "·"
SET char(67) "[format "%c" 194][format "%c" 183]"
SET codHTML(68) "¸"
SET char(68) "[format "%c" 194][format "%c" 184]"
SET codHTML(69) "¹"
SET char(69) "[format "%c" 194][format "%c" 185]"
SET codHTML(70) "º"
SET char(70) "[format "%c" 194][format "%c" 186]"
SET codHTML(71) "¼"
SET char(71) "[format "%c" 194][format "%c" 188]"
SET codHTML(72) "½"
SET char(72) "[format "%c" 194][format "%c" 189]"
SET codHTML(73) "¾"
SET char(73) "[format "%c" 194][format "%c" 190]"
SET codHTML(74) "¿"
SET char(74) "[format "%c" 194][format "%c" 191]"
SET codHTML(75) "Å"
SET char(75) "[format "%c" 195][format "%c" 133]"
SET codHTML(76) "Æ"
SET char(76) "[format "%c" 195][format "%c" 134]"
SET codHTML(77) "Ç"
SET char(77) "[format "%c" 195][format "%c" 135]"
SET codHTML(78) "Ð"
SET char(78) "[format "%c" 195][format "%c" 144]"
SET codHTML(79) "Ñ"
SET char(79) "[format "%c" 195][format "%c" 145]"
SET codHTML(80) "×"
SET char(80) "[format "%c" 195][format "%c" 151]"
SET codHTML(81) "Ø"
SET char(81) "[format "%c" 195][format "%c" 152]"
SET codHTML(82) "Ý"
SET char(82) "[format "%c" 195][format "%c" 157]"
SET codHTML(83) "ß"
SET char(83) "[format "%c" 195][format "%c" 159]"
SET codHTML(84) "å"
SET char(84) "[format "%c" 195][format "%c" 165]"
SET codHTML(85) "æ"
SET char(85) "[format "%c" 195][format "%c" 166]"
SET codHTML(86) "ç"
SET char(86) "[format "%c" 195][format "%c" 167]"
SET codHTML(87) "ð"
SET char(87) "[format "%c" 195][format "%c" 176]"
SET codHTML(88) "ñ"
SET char(88) "[format "%c" 195][format "%c" 177]"
SET codHTML(89) "÷"
SET char(89) "[format "%c" 195][format "%c" 183]"
SET codHTML(90) "ø"
SET char(90) "[format "%c" 195][format "%c" 184]"
SET codHTML(91) "ý"
SET char(91) "[format "%c" 195][format "%c" 189]"
SET codHTML(92) "þ"
SET char(92) "[format "%c" 195][format "%c" 190]"
SET codHTML(93) "ÿ"
SET char(93) "[format "%c" 195][format "%c" 191]"
SET codHTML(94) "“"
SET char(94) "[format "%c" 226][format "%c" 128][format "%c" 156]"
SET codHTML(95) "”"
SET char(95) "[format "%c" 226][format "%c" 128][format "%c" 157]"
SET codHTML(96) "‘"
SET char(96) "[format "%c" 226][format "%c" 128][format "%c" 152]"
SET codHTML(97) "’"
SET char(97) "[format "%c" 226][format "%c" 128][format "%c" 153]"
SET codHTML(98) "<"
SET char(98) "[format "%c" 60]"
SET codHTML(99) ">"
SET char(99) "[format "%c" 62]"
]

[proc char2Html {dbString} {
# Table length
set len 99

# Quotes substitution with html tag "
regsub -all {"} $dbString {\\"} dbString

# $ symbol with string "_vgn_dollar".
set txlen [string length $dbString]
set newtext ""
for {set i 0} {$i < $txlen} {incr i} {
      set newcar "[string index $dbString $i]"

      # Escape of the symbol $
      if {$newcar == "$"} {set newcar "_vgn_dollar"}
      append newtext "$newcar"
}

# Substitution of all occurrences
# Si sostituiscono tutte le occorrenze definite in tabella trovate nella stringa di input.
for {SET zy 1} {[SHOW zy] <= $len} {SET zy [expr [SHOW zy] + 1]} {
      set b "regsub -all \\"[SHOW char([SHOW zy])]\\" \\"$newtext\\" {\\\\[SHOW codHTML([SHOW zy])]} newtext"
      eval $b
}

# "_vgn_dollar" with string $ symbol.
regsub -all "_vgn_dollar" "$newtext" {$} newtext

return $newtext
}]

12.07.2004 at 02:33PM PST, ID: 12769032

cklanac:

I noticed your VERY long conversion from ASCII to character entities. While we're not using UTF-8 you might find this handy... It finds all the characters which are not ASCII (eg not decimal 33 - 126) and replaces them with a the character entity.

This code will regsub the non ascii characters
[
SET retStr "012345@ACDEabcdefÀÅÆÐÒ"
regsub -all -nocase -- {([^[:ascii:]])} $retStr {\&#[scan \1 %c entity;set entity];} retStr;
set retStr [EVAL $retStr]
SHOW retStr
]

The output ==>
012345@ACDEabcdef„‘’“”•–ÀÅÆÐÒ

20080236-EE-VQP-29