// // LineDel.VDM (C) C.Z. 03.04.1996 // 16.10.2000 // // löscht alle Zeilen ab Cursor/Block-Beginn bis Text-/Block-Ende, die // den Suchstring von SEARCH 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) while (1==1) { BoL S("",NOERR+ADVANCE) if (Error_Match) { break } if (CP>=BE) { break } BoL BoL DL(1) Line(-1) } BB(CLEAR)