🚀 go-pugleaf

 Täter : CHRISTMAS@idb.tng.oche.de (Noel Koethe)
 Tatzeit:  11.02.1996 um 22:11:16 Uhr
 Aktenzeichen : "doppelte Zeilen l÷schen"
 Mein Urteil:

> Hallo,
> 
> ich würde gerne in einem einfachen Textfile doppelte  Zeilen
> löschen.  Wie  mache  ich das am besten? Ich benutze GoldED,
> der aber leider keine  solche  Funktion  besitzt.  Hab  hier
> jemand einen Tip oder eine kleines Programm für mich?

Du meinst einen doppelten Zeilenabstand? So z.B.:

(zweite Textzeile)......................


Das geht mit suchen/ersetzen. Unter "suchen" tippt man 2 <ctrl>+<j>
(nicht <m>!) ein und unter "ersetzen" nur einmal.

Zu beachten ist, daß im Preferences/IControl der Text-Gadget-Filter aus-
geschaltet ist, damit man den Return-Code eingeben kann!

Unter CEDpro funzt das ganz gut (insb. mit "Turbo-Replace")!



> DER WEIHNACHTSMANN   //
>                    \X/ /\miga

Der Osterhase LMak!
                                         _
LMak@wizard.art-line.de                 /\\                  MicroSchrott1.15
Amiga 1230T/10/540/CDx4           Go,  /==\\                   (registiert)
->PowerPC - The Ultimate Engine!<-   _/_  _\\_ miga,  Go!
Blizzard 1230IV 50 Mhz * MicroVitec 1438 * TechnoSoundTurboII * Vertos 400

Noel Koethe (CHRISTMAS@IDB.TNG.OCHE.DE) wrote:

> ich würde gerne in einem einfachen Textfile doppelte  Zeilen
> löschen.  Wie  mache  ich das am besten? Ich benutze GoldED,
> der aber leider keine  solche  Funktion  besitzt.  Hab  hier
> jemand einen Tip oder eine kleines Programm für mich?

unique oder uniq.
Gehört zu den GNU Utils, liegt aber auch so auf dem aminet in util/cli
oder so.

	mfG,	Lars

--
Lars Dannenberg, Lange Str. 11, 30952 Ronnenberg

Hallo Noel !

> ich würde gerne in einem einfachen Textfile doppelte  Zeilen
> löschen.  Wie  mache  ich das am besten? Ich benutze GoldED,
> der aber leider keine  solche  Funktion  besitzt.  Hab  hier
> jemand einen Tip oder eine kleines Programm für mich?

Menüpunkt "Sequenz aufnehmen", dann die Zeile löschen, mit dem Cursor
eine Zeile tiefer gehen und wieder den Menüpunkt wählen, jetzt die
Sequenz mehrmals starten.

MfG
 Matthias Wellmeier

Internet: matthias@newworld.han.de
Fido:     2:2432/715

In article <zp3ad7aCG2uYZ14d@christmas.idb.tng.oche.de>, Noel Koethe writes:

> ich wnrde gerne in einem einfachen Textfile doppelte  Zeilen
> l÷schen.  Wie  mache  ich das am besten? Ich benutze GoldED,
> der aber leider keine  solche  Funktion  besitzt.  Hab  hier
> jemand einen Tip oder eine kleines Programm fnr mich?

Folgendes Script "REXX:KillDouble.rexx" nennen und so aufrufen:

RX <eingabefile >ausgabefile KillDouble.rexx

Am besten die Eingabedatei vorher alphabetisch sortieren, damit alle
vielfachen Zeilen direkt hintereinander zu liegen kommen.

/**************************************************************************
 ***   Copyright 03 January 1995 by Marc Heuler, Wuerzburg, Germany	***
 **************************************************************************/

 oldpri pragma('p',-1)
 options results
 if eof(stdin) then exit 0
 oldline readln(stdin)
 do while ~eof(stdin)
  line readln(stdin)
  if line oldline then iterate
  say oldline
  oldline line
 end
 say oldline
 call pragma('p',oldpri)
 exit 0

CHRISTMAS@IDB.TNG.OCHE.DE (Noel Koethe) schrieb
am So 11.02.1996 zum Betreff doppelte Zeilen loeschen:

> ich wuerde gerne in einem einfachen Textfile doppelte  Zeilen
> loeschen.  Wie  mache  ich das am besten?

shell> gnu:bin/uniq --help
Usage: uniq [OPTION]... [INPUT [OUTPUT]]

  -c, --count           prefix lines by the number of occurrences
  -d, --repeated        only print duplicate lines
  -f, --skip-fields=N   avoid comparing the N first fields
  -s, --skip-chars=N    avoid comparing the N first characters
  -u, --unique          only print unique lines
  -w, --check-chars=N   compare no more then N characters in lines
  -N                    same as -f N
  +N                    same as -s N
      --help            display this help and exit
      --version         output version information and exit

A field is a run of whitespace, than non whitespace characters.
Fields are skipped before chars.  If OUTPUT not specified, writes to
standard output.  If INPUT not specified, reads from standard input.

    GNU-Utilities gibt's wie immer im Aminet, z.B. in der GCC-Distribution.

Ciao,
	Kay

  // || K.Drangmeister@insider.sub.de - kay@cip.informatik.uni-wuerzburg.de
\X/  || Bitte Quelldiskette in A: einlegen - Fehler: Diskette quillt nicht.

          **Absender**   christmas@idb.tng.oche.de (Noel Koethe)
          **Betreff**    doppelte Zeilen l÷schen
          **Datum**      11.02.96

NK-> der aber leider keine  solche  Funktion  besitzt.  Hab  hier
NK-> jemand einen Tip oder eine kleines Programm fnr mich?

Ich habe eins gefunden. Es hei#t `uniq` und liegt auf  einer
Fred Fish im Verzeichnis /useful/bin/.

DER WEIHNACHTSMANN   //
                   \X/ /\miga