* RFR006.QM * Written By Tom Hogshead * [ See RFRMxx.QM For Use ] * * 8/13/91 * Key Subfile Description * ===== ============== ==================================================== * @(1) --Replace "Period Space" w/ "Period Two_spaces"-Para. * @(8) --Replace "Period Space" w/ "Period Space Space" * In Whole Paragragh (Variation of @1) * @(5) {e:\up\rfr003}--Removes "period two spaces" from Paragraph * @(2) --Replace "Period Space" w/ "Period Two_spaces"-Doc. * @(3) --Copy Character At Cursor To Line Below * @(4) --Insert Space At Cursor And Move Down To Next Line * @(6) -- (Alternate to @4 Independent of Insert Status) * @(5) --Deletes The Char At The Cursor * And Move Down To Next Line * ^(F1__) --Move Block, Fill Old Block With Blanks * ^(F2__) --FillBlock With Blanks * ^(F9__) --Make A COMMA Delimited File |(Sammy Mitchell) * ^(F0__) -"Break Apart" A COMMA Delimited File | * * {e:\up\RFRM*}--Return To RFRMxx.QM * *-- eoi *  * ------------------------------------------------ * ^(F1__) Block move, fills old block with blanks * ------------------------------------------------ * * Mark block as column or character block, not a line block. Move * cursor to location to move block to, press ^F1, and block is moved to * new location. Old block is filled with spaces. * * This macro is a slight modification to a macro written by Tim Farley * of SemWare (message #665/REGDOS conf). I changed "Paste" to PastOver" * so all surrounding text position remains unchanged, and removed the test * if block was cut to end macro. Tim's macro and comments are included * below this macro. * ^F1 MacroBegin GotoBlockBeg * Get to block begin JFalse END: * If no block, end macro Cut *ELSE Cut block to scrap Paste * And paste it back where it was PrevPosition * Move where new block will be FillBlock " " Return * Fill old block with blanks Pasteover * Paste old block to new loctn. END: * * * 16 bytes Thu 02-28-1991 15:14:17 * * To: JOHN PHILLIPS Refer#: 665 * *From: TIM FARLEY Read: NO * *Subj: Block_Move Problem? Status: PUBLIC MESSAGE * *Conf: REGDOS 1 Read Type: GENERAL (+) * * * *JP>* * *JP>* Block Cut and Move with blank fill * *JP>* * * * *Neat macro, thanks for posting it. I'm sure there are others * *here who will take advantage of it. * * * *One thing: * * * *JP> Store_Scrbuff 'Temp.$$$' * *JP> Return * *JP> Cut Paste * *JP> FillBlock ' ' * *JP> Return * * * *I don't think the Cut/Paste sequence is actually necessary, * *unless the effect desired is to get a copy of the block into the * *scrap buffer for later use (after the macro is over) by Paste or * *PasteOver. * * * *If you really want it to work more like the "MoveBlock" command, * *you could make it simpler. Because, with MoveBlock, you HAVE to * *have closed the block, and move the cursor to where you want it * *moved to. Thus, you get rid of two things: 1) the need to test * *whether the block is marked, and close it if need be (not to * *mention the assumption that it is a column block); and 2) the * *need for the Pause command. * * * *Here it is: * * * @0 MacroBegin GotoBlockBeg * Get to block * JFalse end: * No move? No block! * Cut * Get into scrap * JFalse end: * No cut? No block! * Paste * Put back, with marked * PrevPosition * Back to where we were * FillBlock ' ' * Fill the original block * Return * Paste * and put a copy at cursor. * end: * * 19 bytes Thu 02-28-1991 15:30:52 (line added TH) * * *This macro (aside from being shorter & therefore faster) also * *quite nicely does nothing if the block is in the middle of being * *marked, or if there is no block marked. It should work OK with * *line and character blocks too. * * * *Also: you could modify this macro to do PasteOver instead of * *Paste at the end, which would make it paste the text "on top of" * *the pre-existing text. * * * *--Tim Farley * * SemWare Technical Support * ========================================================================= * Date: 04-21-91 (21:24) Number: 3786 SemWare Support BBS * To: RON KULICK Refer#: NONE * From: KARL BRENDEL Read: YES * Subj: Shifted Text w/Block Move Conf: (21) ILink * ------------------------------------------------------------------------ * RK>When marking a block to be cut using the "Mark Column" command (ALT-K * RK>is there a way to keep the text at the right of the block from shifti * RK>left after the "Cut" command has been issued? Thanks... * * If I understand what you're after, try: * *  * ------------------------------ * ^(F2__) FillBlock With Blanks * ------------------------------ * This is from the FillBlock documentation in the QEdit read.me file. * ^F2 MacroBegin GotoBlockBeg Cut Paste FillBlock ' ' Return * * 11 bytes Tue 04-23-1991 12:55:44 (line added TH) * This may also be accomplished with: * ^F2 MacroBegin FillBlock ' ' Return * 8 bytes Mon 07-15-1991 11:25:31 (TH ^F2) *  * --------------------------------------------------------------------- * ^(F9__) Macro to make a comma delimited file from a file of the format: * --------------------------------------------------------------------- * Date: 10-10-90 (11:44) Number: 10442 SemWare Support BBS * To: ALL Refer#: NONE * From: SAMMY MITCHELL Read: NO * Subj: MACROS Conf: 0 Main Board * ------------------------------------------------------------------------ * We (SemWare) have been asked on many occasions how to change the CR/LF * characters at EOF to something else. In most instances, the task that * the user wanted to accomplish could be done in another way. For * example, we've had many requests to convert a mailing list file to a * comma delimited file for import into a database. Here are some example * macros to make a comma delimited file, and convert a comma delimited * file back to its original format. These macros will have to be * compiled with Qmac, as they are too large for Qconfig. I do hope that * this helps someone! * * (Key assignments changed TH Wed 10-10-1990 ) * record 1 * record 2 * record n * * Each group of name/address must be followed by at least one blank * line. ^F9 MacroBegin BegFile * Make sure at top While1: BegLine EndLine JTrue While2: * Break out if non empty line DelLine * Delete the blank line CursorDown JFalse Macroexit: * Exit macro if eof CursorUp * Back up to the line to test Jump While1: * Keep looping while blank * nonblank line found - see if next line is nonblank also While2: CursorDown JFalse Macroexit: * exit macro if eof BegLine EndLine JFalse While1: * if blank line, start over CursorUp EndLine "," JoinLine * join the next line Jump While2: * and keep on until blank Macroexit: BegFile * show user bof * * 37 bytes Wed 10-10-1990 22:16:45 (line added TH) *  * --------------------------------------------------------------------- * ^(F0__) Macro to "break apart" a comma delimited file, as created from * the ^F9 macro above. * --------------------------------------------------------------------- ^f10 MacroBegin BegFile * Start at bof find_first_comma: Find "," Return "" Return * Find first comma jFalse macroexit: * Exit if none makeline: UnMarkBlock DelCh * Delete the ',' SplitLine * Split the line CursorDown * Next line BegLine * Column 1 * remove leading blanks delete_blanks: UnMarkBlock DropAnchor Find " " Return "GL" Return * Blank found? jFalse continue * No, continue DelCh * Delete it jump delete_blanks: * And try again continue: UnMarkBlock MarkLine * Look for next ,' on line Find "," Return "L" Return * jTrue makeline: * Split if found UnMarkBlock AddLine * Otherwise, add a blank line jump find_first_comma: * And look for another ',' macroexit: BegFile * Show user bof * * 54 bytes Wed 10-10-1990 22:17:04 (line added TH) * * That's all, folks! *  * 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * �@(1) Replace "period space" w/ "period space space" - PARAGRAPH � * 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * This macro was written by Tim Farley of SemWare. * * ========================================================================= * Date: 01-18-91 (13:59) Number: 3433 SemWare Support BBS * To: BOB LONG Refer#: 3430 * From: TIM FARLEY Read: YES * Subj: Legibility breaks Conf: (21) ILink * ------------------------------------------------------------------------ * BL>It had to do with retaining double spaces between sentences * BL>even when they fall at the ends of lines and then get moved when the * BL>paragraph is reformed. I reinstalled 2.1, choosing the option to * BL>retain trailing blanks, but QEdit still removes one blank. * BL> * BL>Is there a workaround? * * The only workaround I know for that one would be to encase * WrapPara in a macro, that would mark the entire paragraph as a * block, and do a global search and replace (limited to the block) * to change ". " to ". " to put the spaces back in. Kludgy, and * not perfect, but perhaps workable. * * Here's what it would look like: * * * * * WrapPara modification: retains double spacing after "." chars. * * @1 MacroBegin UnmarkBlock * we're going to be using blocks MarkCharacter WrapPara * Wrap paragraph & mark rest of it MarkCharacter GotoBlockBeg * Close mark & go to begin of it FindReplace ". " Return * Change period with single space ". " Return "LN" Return * to one with double space. JFalse end: * None? We're done... FindReplace ". " Return * Now fix any that ended up with 3 ". " Return "LN" Return * to have just two again. end: GotoBlockEnd UnmarkBlock * * 54 bytes Fri 01-18-1991 21:23:45 (line added TH January 18, 1991) * 54 bytes Wed 07-31-1991 10:40:13 (TH @1, corrected) * * As usual, remove the comments to the right, and reformat this all on one * line if you plan to put it in QCONFIG.DAT. * * --Tim Farley *  * ---------------------------------------------------------------------- * @(8) Replace "period space" w/ "period space space" in whole paragragh * ---------------------------------------------------------------------- * This macro is a variation of Tim Farley's @1 above, that replaces * a 'period space' with a 'period two spaces' in the whole * paragragh the cursor is positioned in and positions the cursor at * the start of the next paragragh. @8 MacroBegin Cursordown * move down one line | Prevpara * get to beginning of paragraph | UnmarkBlock * we're going to be using blocks MarkCharacter WrapPara * Wrap paragraph & mark it MarkCharacter GotoBlockBeg * Close mark & go to begin of it FindReplace ". " Return * Change period with single space ". " Return "LN" Return * to one with double space. JFalse end: * None? We're done... FindReplace ". " Return * Now fix any that ended up with 3 ". " Return "LN" Return * to have just two again. end: Nextpara * go to begin next paragraph | UnmarkBlock * * 56 bytes Wed 07-31-1991 10:56:27 (TH @8) *  * 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 * �@(2) Replace "period space" w/ "period space space" - DOCUMENT � * 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 * * Change "GN" to "G" for replacement with confirmation. * @2 MacroBegin FindReplace ". " Return ". " Return "GN" Return FindReplace ". " Return Return "GN" Return * * 38 bytes Wed 02-20-1991 01:09:09 *  * ---------------------------------------------------------------------- * @(3) Copy Character At Cursor To Line Below * ---------------------------------------------------------------------- @3 macrobegin cursordown getprev cursorleft * * 7 bytes Sun 07-28-1991 16:45:37 (TH @3) *  * ---------------------------------------------------------------------- * @(4) Insert Space At Cursor And Move Down To Next Line * ---------------------------------------------------------------------- * Insert must be ON @4 macrobegin " " cursorleft cursordown * * 8 bytes Wed 09-05-1990 16:14:32 *  * ---------------------------------------------------------------------- * @(6) Insert Space At Cursor And Move Down To Next Line * ---------------------------------------------------------------------- * The following @(6) alternate approach is independent of Insert status: @6 macrobegin splitline cursorright joinline cursordown cursorleft * * 9 bytes Mon 07-29-1991 14:10:35 (TH @6) *  * ---------------------------------------------------------------------- * @(5) Deletes The Char At The Cursor And Move Down To Next Line * ---------------------------------------------------------------------- * Source unknown. @5 macrobegin delch cursordown * * 6 bytes Tue 09-11-1990 09:40:22