// // Line!Del.VDM (C) C.Z. 03.04.1996 // 25.10.2000 // // löscht alle Zeilen ab Cursor/Block-Beginn bis Text-/Block-Ende, die // den Suchstring von SEARCH ***NICHT*** enthalten // if (SR_Display == 0) { GetKey("Fehler: Kein Suchstring definiert! Bitte Taste drücken...",STATLINE) return(1) } if (BE == -1) { BB(CP) EoF BE(CP) } GP(BB) Char(-1) // weil S("") ein char vorsetzt !!!?! while (1==1) { Search_Block("", CP, BE, NOERR) if (Error_Match) { Del_Block(BB,BE) break } else { BoL Del_Block(BB,CP) Line(1) BB(CP) } if (CP>=BE) { break } } BB(CLEAR)