stripping unwanted chars and creating valid xml file

[Ofloo]

Code: Select all

  proc xTags {arg} {
    foreach {x} [split $arg {}] {
      if {[regexp {^[\x80-\xff\x3c\x3e\x26]$} $x]} {
        append r "&#[scan $x %c];"
      } elseif {[regexp {[^\x01-\x19$]} $x]} {
      	append r $x
      }
    }
    return $r
  }

anyone know how this can be done faster ??

takes 10 seconds to parse the mysql db into a xml file.. thats a bit long ..

[demond]

I fail to see how your code snippet is mysql- or XML-related

what you do is escaping some characters with HTML codes in a manner that hardly could be improved upon - but then again, this shouldn't be neccesary - the bottleneck is usually in parsing (large) XML files, not in generating it

[Ofloo]

well every char that is outside that range will make the xml file unreadable for a browser .. so all them browsers are wrong? on the otherhand i know youre right cause .. xml is more then just html its a form of db.. and it shouldn't matter what chars i use.. and they sure as hell shouldn't be html like.. if i understood right.. what xml represents..

Code: Select all

  proc xTags {arg} {
    foreach {x} [split $arg {}] {
      if {[regexp {^[\x80-\xff\x3c\x3e\x26]$} $x]} {
        append r "&#[scan $x %c];"
      } elseif {![string is control $x]} {
      	append r $x
      }
    }
    return $r
  }

thats 2 seconds faster..