home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
editors
/
amac41.arj
/
RFR006.QM
< prev
next >
Wrap
Text File
|
1991-08-26
|
15KB
|
371 lines
* 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