//
// WEBBOARD1.VDM Christian Ziemski 05.06.2004
//
//
// Tries to help formatting WebBoard messages with preformatted text parts
// and embedded < and > characters
// (assuming that the only HTML-tags manually used are
,
and
).
//
// It is not really comfortable, but could workaround WebBoards
// formatting problems.
//
//
// Usage:
//
// - Write a message as usual, using ...
tags to
// mark the preformatted text.
// e.g.:
//
// line 1
//
// line2 is < line 2
// line3
//
// line 4
//
// - Send it to WebBoard (via browser, mail or newsreeader)
//
// - Edit your sent message in WebBoard, using a browser
// It now looks like:
//
// line 1
//
// line2 is < line 3
// line3
//
// line 4
//
//
// - Cut or copy the whole text into Windows' clipboard
//
// - Call this macro (perhaps via shortcut on desktop:
// c:\vedit\vpw.exe -x webboard1.vdm -c qally )
//
// Within the ...
tags the macro has removed the
// line-break tags
and masked the other '<' and '>' characters.
// The result has been copied to clipboard again.
//
// - Switch back to your browser's edit window
//
// - Paste the fixed clipboard's contents into the edit window
//
// Now it's loooking like:
//
// line 1
//
// line2 is < line 3
// line3
//
// line 4
//
//
// - Confirm/post this edited message to Webboard
//
//----------------------------------------------------------------
Buf_Switch(Buf_free)
Clip_Ins()
BoF
while (search("", ADVANCE+NOERR) > 0) {
#103=Cur_Pos
Search("
", NOERR)
if (Error_Match) {
End_Of_File
} else {
End_Of_Line
}
Replace_Block("|[|W]
|[|W]|>", "", #103, Cur_Pos, BEGIN+ALL+NOERR)
}
BoF
repeat(ALL) {
Search("|{<,>}", ADVANCE+NOERR+ERRBREAK)
if (Match_Item == 1) {
if (Match("|[/]|{pre,br}>", ADVANCE) != 0) {
Del_Char(-1)
Ins_Text("<")
}
} else {
Del_Char(-1)
Ins_Text(">")
}
}
Clip_Copy_Block(0, File_Size)
Buf_Quit(OK)