// // VGREP.VDM (C) C.Z. 09.05.96 // 10.04.97 // // erwartet die grep-Ausgabe-Datei C:\TMP\VGREP.OUT im Format: // Dateiname Zeilennummer Zeilentext // Screen_init() File_Open("C:\TMP\VGREP.OUT") if (FileSize==0) { // Abbruch bei leerer Datei exit } sort(0,FileSize) // alphabetisch sortieren Config_Tab(25;LOCAL) // 1. Tabulator dies Buffers setzen BoF // etwas formatieren while (! At_EoF) { DoV("\NW\") Char(-1) // war schon einmal if (Cur_Char==9){ break } // behandelt worden ... Char(1) Ins_Char(9) // Tab Line(1) } File_Save BoF Config( S_H_CR_LINE, "Highlight cursor line (0 - 2)", 1 ) Config( CO_LINE, "Color for cursor line (override)", 122 ) BrowseMode(1) Key_Add("Shft-F1", '[VISUAL EXIT] CALL(100,"Hilfe")',OK) Key_Add("F11", '[VISUAL EXIT] BS(1) Config(S_H_CR_LINE,1)',OK) Key_Add("Ctrl-F11",'[VISUAL EXIT] if (BufNum==1){BQ(OK) exit} BC(CONFIRM+NOMSG) if (BufNum==1){Config(S_H_CR_LINE,1)}',OK) Key_Add("F12", '[VISUAL EXIT] BoL BB(CLEAR) BB(CP) DoV("\NW\") BE(CP) RCB(99,BB,BE) #99=Num_Eval() BB(CLEAR) BoL FO("|@(99)") GL(#99) Config(S_H_CR_LINE,0)',OK) Key_Add("Ctrl-F12",'[VISUAL EXIT] if(Buf_Next>1){BS(Buf_Next)} else {if(Buf_Total>1){BS(Buf_Next+1)}}',OK) CALL("Hilfe") GetKey() return // ------------------------------------------------------------------------ :Hilfe: WinClear() Message(" Visual-Grep (C) C.Z. 09.05.96 ================================================= F12 - Datei aus der Liste ”ffnen (in einem neuen Fenster) F11 - zur Liste schalten Ctrl-F11 - aktuelle Datei schliessen und zurck zur Liste / Ende Ctrl-F12 - zur n„chsten ge”ffneten Datei schalten Shift-F1 - diese Hilfe Bitte eine Taste drcken ... ") return