Guest User

Untitled

a guest
Mar 14th, 2018
149
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.31 KB | None | 0 0
  1. set f [open /usr/local/nm/content-repository-content-files//74/15/1/186449 r]
  2. set x [read $f]
  3. close $f
  4. dom parse -html $x doc
  5. $doc documentElement root
  6.  
  7. set content ""
  8. foreach n [$root selectNodes //body/*] { append content [$n asHTML] \n }
  9. set content; # FINE!
  10. # encoding convertto utf-8 $content; ### BOOM!
Add Comment
Please, Sign In to add comment