// Laden von zus„tzlichen Tastenbelegungen als Men // // (C) C.Z. 1/94 // an VEDIT 4.01 angepasst 7/94 // an VEDIT 4.02 angepasst 8/94 // an VEDIT 4.12 angepasst 3/95 // an VEDIT 4.20 angepasst 10/95 // 16.10.95 // an VEDIT 5.00 angepasst 06/96 // // // Starten dieses Makros ist auf Ctrl-F1 gelegt // Key_Add("Ctrl-F1",' [VISUAL EXIT] Call_File(100,"!KEY-LD") ', OK) // // // prinzipiell freie Tasten bei angepasster VEDIT-Grundbelegung: // // AF5 AF6 AF11 AF12 // CF2 CF7 CF10 CF11 CF12 // SF1 SF2 SF3 SF4 SF5 SF6 SF7 SF8 SF9 SF10 SF11 SF12 // F5 F6 F11 F12 // :AGAIN: Win_Clear() Message(" Laden von weiteren Tastenbelegungen ----------------------------------- 1 - Alt-F11/F12: Zeile an Cur.pos. bzw. vorheriger Zeile ausrichten 2 - Alt-F11/F12: Wort an Cursorpos. nach links/nach rechts ausrichten 3 - Alt-F11/F12: vorherige Zeile ganz/zeichenweise kopieren 4e- F11/F12: Textreg.1 l”schen / Zeilen in Text-Register 1 sammeln 5 - Alt-F11/F12: C-Kommentare ausrichten ( /* */ bzw. // ) 6 - Alt-F11/F12: C-Kommentare entfernen/einfgen ( /* */ ) 7 - Ctrl-F2: nach weiterem Vorkommen des Wortes am Cursor suchen 8 - Ctrl-F2: zeichenweises (inkrementales) Suchen 9 - Ctrl-F2: Zeilen mit einem Suchstring auflisten a - Ctrl-F2: zur Textposition vor letzem Search/Replace b - Ctrl-F7: Datum und Zeit einfgen c - SF1-12 ...: mehrere Windows ... (editieren von 2 Dateien...) d - F12: Wort-Such-Liste 0 - Ende ") #0 = Get_Key("Bitte w„hlen (1-e,0): ") if ((#0=='E'+'S'*256) ) { Goto ENDE } if ((#0==48) ) { Goto ENDE } if ((#0==49) ) { Goto T4 } if ((#0==50) ) { Goto T11 } if ((#0==51) ) { Goto T5 } if ((#0==52) ) { Goto T1 } if ((#0==53) ) { Goto T3 } if ((#0==54) ) { Goto T10 } if ((#0==55) ) { Goto T9 } if ((#0==56) ) { Goto T12 } if ((#0==57) ) { Goto T8 } if ((#0==97) ) { Goto T7 } if ((#0==98) ) { Goto T6 } if ((#0==99) ) { Goto T2 } if ((#0==100) ) { Goto T13 } if ((#0==101) ) { Goto T14 } Goto AGAIN // ************************************************************************ :T1: Win_Clear() Message(" F12 sammelt die jeweils aktuelle Zeile in Puffer-Register 1 (kopierend) F11 l”scht den Puffer Register 1 ") Key_Add("F11","[VISUAL EXIT] Reg_Empty(1)",OK) //Key_Add("F12","[MENU]Gc1[RETURN][T-REG COPY][CURSOR DOWN][T-REG COPY]A1",OK) Key_Add("F12","[VISUAL EXIT] rc(1,1,APPEND) L(1) ",OK) Goto ENDE // ************************************************************************ :T14: Win_Clear() Message(" F12 sammelt die jeweils aktuelle Zeile in Puffer-Register 1 (l”schend) F11 l”scht den Puffer Register 1 ") Key_Add("F11","[VISUAL EXIT] Reg_Empty(1)",OK) Key_Add("F12","[MENU]Gc1[RETURN][T-REG MOVE][CURSOR DOWN][T-REG MOVE]A1",OK) Goto ENDE // ************************************************************************ :T2: Win_Clear() Message(" Tastenbelegung insbesondere fr die Bearbeitung von 2 Dateien (Leere Felder lassen die alte Belegung bestehen!) normal shift ctrl F1 Fenster 1 aktiv F2 1: Wort holen F3 1: zurck suchen F4 1: vorw„rts suchen F5 Fenster 2 aktiv F6 2: Wort holen F7 2: zurck suchen F8 2: vorw„rts suchen F9 1 + 2: zurck suchen F10 1 + 2: vorw. suchen Block in Suchpuffer F11 Window 2 anlegen Suchpuffer vorw. suchen F12 aktuelles Win. zoomen Suchpuffer zurck suchen Cursor up 1 + 2: Cursor up Cursor down 1 + 2: Cursor down ") Key_Add("Shft-F1"," [VISUAL EXIT] WS(1,ATTACH)",OK) Key_Add("Shft-F2",' [VISUAL EXIT] WS(1,ATTACH) RS(8,/S("/) BB(CLEAR) BB(CP) Match("|{|F,_,.}",ALL+ADVANCE) BE(CP) RCB(8,BB,BE,APPEND) BB(CLEAR) RS(8,/"/,APPEND) RS(9,@8) RS(8,",REVERSE)",APPEND) RS(4,@8) RS(9,",ADVANCE)",APPEND) RS(5,@9)',OK) Key_Add("Shft-F3"," [VISUAL EXIT] WS(1,ATTACH) Call(8)",OK) Key_Add("Shft-F4"," [VISUAL EXIT] WS(1,ATTACH) Call(9)",OK) Key_Add("Shft-F5"," [VISUAL EXIT] WS(#99,ATTACH)",OK) Key_Add("Shft-F6",' [VISUAL EXIT] WS(#99,ATTACH) RS(6,/S("/) BB(CLEAR) BB(CP) Match("|{|F,_,.}",ALL+ADVANCE) BE(CP) RCB(6,BB,BE,APPEND) BB(CLEAR) RS(6,/"/,APPEND) RS(7,@6) RS(6,",REVERSE)",APPEND) RS(4,@6) RS(7,",ADVANCE)",APPEND) RS(5,@7)',OK) Key_Add("Shft-F7"," [VISUAL EXIT] WS(#99,ATTACH) Call(6)",OK) Key_Add("Shft-F8"," [VISUAL EXIT] WS(#99,ATTACH) Call(7)",OK) Key_Add("Shft-F9"," [VISUAL EXIT] WS(1,ATTACH) Call(8) WS(#99,ATTACH) Call(6) U WS(1,ATTACH)",OK) Key_Add("Shft-F10"," [VISUAL EXIT] WS(1,ATTACH) Call(9) WS(#99,ATTACH) Call(7) U WS(1,ATTACH)",OK) Key_Add("Shft-F11"," [VISUAL EXIT] if (WN!=1) {return} #99=WinFree WSPL(#99,0,BOTTOM)",OK) Key_Add("Shft-F12"," [MENU]WZ",OK) Key_Add("Ctrl-F10",' [VISUAL EXIT] if (BB<0) {Return} RS(4,/S("/) if (BE<0){BE(CP)} RCB(4,BB,BE,APPEND) RS(4,/"/,APPEND) RS(5,@4) RS(5,",ADVANCE)",APPEND) RS(4,",REVERSE)",APPEND) ',OK) Key_Add("Ctrl-F11"," [VISUAL EXIT] Call(4)",OK) Key_Add("Ctrl-F12"," [VISUAL EXIT] Call(5)",OK) Key_Add("Ctrl-Cursor-Up",' [VISUAL EXIT] #0=WN WS(1,ATTACH) if(CL>1){DOV("\CU\")}else{alert} WS(#99,ATTACH) if(CL>1){DOV("\CU\")}else{alert} WS(#0,ATTACH)',OK) Key_Add("Ctrl-Cursor-Down",' [VISUAL EXIT] #0=WN WS(1,ATTACH) DOV("\CD\") WS(#99,ATTACH) DOV("\CD\") WS(#0,ATTACH)',OK) Goto ENDE // ************************************************************************ :T3: Win_Clear() Message(" Alt-F11 C-Kommentare (ab '/*' bis Zeilenende) an Cursorposition ausrichten Alt-F12 C-Kommentare (ab '//' bis Zeilenende) an Cursorposition ausrichten ") Key_Add("Alt-F11",' [VISUAL EXIT] #0=WH BOL S("/*",NOERR) if(EF){Return(1)} #1=CP EOL RCB(0,#1,CP) DB(#1,CP) BOL R("|W|>","",NOERR) if (#0>=CN){ IT(" ",COUNT,#0-CN)}else{IT(" ") }RI(0) L(1,NOERR) repeat (#0-1){DOV("\CR\")}',OK) Key_Add("Alt-F12",' [VISUAL EXIT] #0=WH BOL S("//",NOERR) if(EF){Return(1)} #1=CP EOL RCB(0,#1,CP) DB(#1,CP) BOL R("|W|>","",NOERR) if (#0>=CN){ IT(" ",COUNT,#0-CN)}else{IT(" ") }RI(0) L(1,NOERR) repeat (#0-1){DOV("\CR\")}',OK) Goto ENDE // ************************************************************************ :T4: Win_Clear() Message(" Alt-F11 Richtet die aktuelle Zeile an Cursorposition aus und geht eine Zeile tiefer fr Fortsetzung ... Alt-F12 Richtet die aktuelle Zeile an der vorhergehenen Zeile aus und geht eine Zeile tiefer zur Fortsetzung ... ") Key_Add("Alt-F11",' [VISUAL EXIT] #100=WH-1 BOL S("|!|W",NOERR) DL(0) IT(" ",COUNT,#100) DOV("\CD\")',OK) Key_Add("Alt-F12",' [VISUAL EXIT] if (CL>1){ L(-1) S("|!|W") #100=CN-1 L(1) S("|!|W") #99=CP EOL RCB(10,#99,CP) BOL DOV("\EE\") IT(" ",COUNT,#100) RI(10,BEGIN) DOV("\CD\") }',OK) Goto ENDE // ************************************************************************ :T5: Win_Clear() Message(" Alt-F11 kopiert vorhergehende Zeile oberhalb des Cursorss zeichenweise. Alt-F12 kopiert gesamte vorhergende Zeile und geht in die neu erzeugte Zeile. ") Key_Add('Alt-F11',' [VISUAL EXIT] DOV("\CU\") if (CC==13) { DOV("\CD\") } else {#100=CC DOV("\CD\") Ins_Char(#100) }',OK) Key_Add('Alt-F12',' [VISUAL EXIT] BOL() Block_Copy() if (Cur_Col>1) { Ins_Newline() }',OK) Goto ENDE // ************************************************************************ :T6: Win_Clear() Message(" Ctrl-F7 fgt aktuelles Datum und Uhrzeit in den Text ") //Key_Add('Alt-F7',' [VISUAL EXIT] OI() Date(NOCR) Type_Space(2) Time(NOCR) OI(CLEAR)',OK) Key_Add('Ctrl-F7',' [VISUAL EXIT] #99=BN OR(103) Date(NOCR+NOMSG) TS(2) Time(NOCR+NOMSG) OR(CLEAR) BS(33) BY(OK) RI(103) BOF R("-",".",ALL) RCB(103,3,6) DB(3,6) RCB(103,0,FSIZE,APPEND) BS(#99) RI(103)',OK) Goto ENDE // ************************************************************************ :T7: Win_Clear() Message(" Ctrl-F2 geht zur Textposition vor dem letzten Search/Replace ") Key_Add('Ctrl-F2',' [VISUAL EXIT] GP(LSP)',OK) Goto ENDE // ************************************************************************ :T8: Win_Clear() Message(" Ctrl-F2 listet alle Textzeilen mit Zeilennummer auf, die einen einzugebenden String enthalten. Mit {GOTO,Line #} kann dann dorthin gesprungen werden. ") Key_Add('Ctrl-F2',' [VISUAL EXIT] SPos() GI(103,"Enter text string: ",STATLINE+NOCR) WClr() BOF() while (S(@103,ADVANCE+NOERR)) {Num_Type(Cur_Line,NOCR) TS(2) T(0) T() } RPos()',OK) Goto ENDE // ************************************************************************ :T9: Win_Clear() Message(" Ctrl-F2 Sucht nach weiterem Vorkommen des Wortes am Cursor. Diese Taste zum erstem Suchen drcken. Fr weitere Suchen [SEARCH AGAIN] drcken. ") Key_Add('Ctrl-F2',' [VISUAL EXIT] S("|S",REVERSE+ADVANCE) #100=CP S("|S") RCB(103,#100,CP) S(@103,SET+CONFIRM)',OK) Goto ENDE // ************************************************************************ :T10: Win_Clear() Message(" Alt-F11 C-Kommentarzeichen /*...*/ entfernen Alt-F12 Zeile mit C-Kommentaren /* */ ab Cursorposition umrahmen ") Key_Add('Alt-F11',' [VISUAL EXIT] DOV("\LE\") #0=CP BOL SB("/*",CP,#0,NOERR) if (EF){L(1,NOERR) Return()} DC(2) S("*/",NOERR) DC(2) L(1,NOERR)',OK) Key_Add('Alt-F12',' [VISUAL EXIT] #1=WH IT("/*") DOV("\LB\") DOV("\LE\") IT("*/") L(1,NOERR) repeat (#1-1){DOV("\CR\")}',OK) Goto ENDE // ************************************************************************ :T11: Win_Clear() Message(" Alt-F11 an Cursorposition Blanks entfernen, bis ein Zeichen <> Blank erreicht ist, dann Cursor eine Zeile runter Alt-F12 Wort an/links von Cursorposition durch Einfgen von Blanks an Cursor ausrichten, dann Cursor eine Zeile runter ") Key_Add('Alt-F11',' [VISUAL EXIT] repeat(ALL){ if (CC<>32){Break}else{DC(1)}} DOV("\CD\")',OK) Key_Add('Alt-F12',' [VISUAL EXIT] #1=WH #2=CL DOV("\CR\") DOV("\PW\") if (CL<>#2){Return} #0=#1-WH repeat(ALL) {if (#0==0){Break} IT(" ") #0-=1 } DOV("\CD\")',OK) Goto ENDE // ************************************************************************ :T12: Win_Clear() Message(" Ctrl-F2 Zeichenweises Suchen ( = SEARCH.VDM ) Sucht ab Cursorposition einen zeichenweise einzugebenen String. Dabei wird sofort nach Eingabe eines Zeichens weitergesucht. Tasten: ESC : Abbruch RETURN : fertig BACKSPACE : 1 Zeichen zurck l”schen ") // Key_Add("Ctrl-F2",' [VISUAL EXIT] #98=BN #99=CP BS(33) BY(OK) #96=WF WSPL(#96,1,BOTTOM+ATTACH) repeat (ALL){BS(33) #9=GK("") #2=FSIZE if (#9==21317){BS(#98) GP(#99) Break} if (#9==21314){ if (#2>0){DC(-1) U BS(#98) C(-1) U} Continue} if (#9==21586){Break} IC(#9) U #2=FSIZE RCB(10,0,#2) BS(#98) C(-#2+1) S("|@(10)",NOERR+ADVANCE) if (EM){C(#2-1) Alert BS(33) DC(-1) U BS(#98)} U} WDEL(#96) BS(#98)',OK) Key_Add("Ctrl-F2",' [VISUAL EXIT] #98=BN #99=CP BS(33) BY(OK) #96=WF WSPL(#96,1,BOTTOM+ATTACH) repeat (ALL){BS(33) #9=GK("") #2=FSIZE if (#9==21317){BS(#98) GP(#99) Break} if (#9==21314){ if (#2>0){DC(-1) U BS(#98) C(-1) U} Continue} if (#9==21586){Break} IC(#9) U #2=FSIZE RCB(10,0,#2) BS(#98) C(-#2+1) S("|@(10)",NOERR+ADVANCE) if (EM){C(#2-1) Sound(400,100) BS(33) DC(-1) U BS(#98)} U} WDEL(#96) BS(#98)',OK) Goto ENDE // ************************************************************************ :T13: Win_Clear() Message(" F12 Wort-Sammel-Liste ") Key_Add("F12","[VISUAL EXIT] Call_File(100,'\vedit\WSEARCH.VDM')",OK) Goto ENDE // ************************************************************************ :ENDE: