3
$\begingroup$

I've got a problem with re-saving html code. Lets create html file:

SetDirectory[NotebookDirectory[]];
Export[
 "test.html",
 Column@{"Plot", Plot[Sin@x, {x, 0, Pi}, ImageSize -> 200]}
]

Now, I want to import this file, for example to change some links inside. How to re-export this modyfied code into html in the simplest way? My way is a walkaround but it works:

Export["test.txt", Import["test.html", "Source"]]
(*lets skip modification part*)
DeleteFile["test.html"]
RenameFile["test.txt", "test.html"]

I do not know html almost at all so I will be grateful for some help.

This question is related to "How to save a web page..." wich is also worth looking at.

$\endgroup$
4
$\begingroup$

How about something like this:

h  = Import["/tmp/htmlsource.html", "Text"];

Export["/tmp/output.html", 
 StringReplace[h, 
   a : "<a href=\"" ~~ href : Shortest[__] ~~ z : "\"" :> 
   StringJoin[a, ToUpperCase[href], z]], "Text"]

This StringReplace expression changes all links inside <a href tags to upper-case, thus rendering the page completely useless... :).

$\endgroup$
  • $\begingroup$ Thanks, good to know. This is more elegant and faster. I'll accept this if there isn't any answer of form Export["file.html", %, "SuperOption"] :) this evening. $\endgroup$ – Kuba Jun 4 '13 at 12:24

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.