CodeWright Editor Macros: Convert HTML to Perlish HTML

// Converts standard HTML to Perl used to generate HTML

MovAbs(1,1);


SrchTranslate("\"", "\\\\\"", SEARCH_FORWARD | SEARCH_REGEX | SEARCH_GLOBAL | SEARCH_MAXIMAL);
// WORKS - Comments ' symbol
MovAbs(1,1);

SrchTranslate("\@","\\\\@", SEARCH_FORWARD | SEARCH_REGEX | SEARCH_GLOBAL | SEARCH_MAXIMAL);
//WORKS - Comments @ symbol
MovAbs(1,1);

SrchTranslate("^\t +", "", SEARCH_FORWARD | SEARCH_REGEX | SEARCH_GLOBAL | SEARCH_MAXIMAL);
//WORKS - Removes tabs or spaces from beginning of line
MovAbs(1,1);

SrchTranslate("^\\n", "", SEARCH_FORWARD | SEARCH_REGEX | SEARCH_GLOBAL | SEARCH_MAXIMAL);
//WORKS - Removes blank lines
MovAbs(1,1);

SrchTranslate("^", "print \"", SEARCH_FORWARD | SEARCH_REGEX | SEARCH_GLOBAL | SEARCH_MAXIMAL);
//WORKS - Places "print \"" and the beginning of each line
MovAbs(1,1);

SrchTranslate("$", "\\\\n\";", SEARCH_FORWARD | SEARCH_REGEX | SEARCH_GLOBAL | SEARCH_MAXIMAL);
//WORKS - Adds \n"; at the end of lines
MovAbs(1,1);