Dubbele zinnen in tekst: hoe er vanaf te komen?

[Pathfinder]

Hallo allen,

Ik zit met een klein probleempje in een tekstdocument. Ik heb nl een tekstbestand, waarbij de inhoud van elke regel dubbel staat, op deze manier:

(document)
voorbeeldvoorbeeld
nog een voorbeeldnog een voorbeeld
en nog eenen nog een

dit zou dus moeten zijn:
voorbeeld
nog een voorbeeld
en nog een


Ik zoek nu naar een tekstoprogramma met de optie om zoiets te herstellen.
(misschien is hiervoor een macro oid nodig? Als iemand weet hoe, graag )

[Verwijderd]

Denk niet dat er een programma is voor een probleem dat nooi voorkomt. Enige kans is misschien de stijlfunctie in Word.

[Pathfinder]

Is er nog steeds niemand die mij hiermee zou kunnen helpen?

[kamstra]

wat een vreemd probleem, hoe kom je aan dat bestand dan, als je nog bij het origineel kunt komen (dwz de pc waar het vandaan komt)
zou je dan niet iets kunne met het proberen op te sporen of er daar iets aanstaat in de trend van een lokale echo die???

Ik weet niet of het zoiets zou kunnen zijn, maar zoals je het nu stelt lijkt het me sterk dat er een oplossing voor is in de vorm van een of ander progje ofsow...

[Poltergeist]

Je zou het met een macro (vb) kunnen proberen. Alleen weet ik te weinig van macro's om het te maken:

Het idee:
Open het bestand (Open tekst.txt for input as #1)
Open een tweede bestand (open tekst2.txt for output as #2)
Doe een loop zolang het volledige bestand nog niet is uitgelezen (While eof(1))

Lees regel in (read #1,regel$)
Neem de lengte van de regel(lengte=len(regel$)
Deel de lengte door 2 (lengte=lengte/2)
Zet de eerste helft van de regel in een nieuwe variabele (regel2$=left$(regel$,lengte)
Schrijf dit weg naar een nieuw bestand (print #2,regel2$)
Beëindig loop (Wend)
Sluit bestanden af (close)

En voila, een nieuw tekstbestand waar alles maar een keer in staat

Nu nog iemand die dit in een echte programmeertaal kan zetten

[Pathfinder]

kamstra: dat zal helaas niet gaan.

Poltergeist: da's precies wat ik zoek, maar dan idd in werkende vorm...
* Pathfinder kan niet proggen

[pinball]

Om een of andere tweaker te quoten die mij ooit tot perl bekeerd heeft:
"Sounds like a perl job "

code:

#!/usr/bin/perl
while (<>) { 
    print substr($_,0,(length() /2)) . "\n";
}

bovenstaande code opslaan als split.pl, en dan:
perl split.pl dubbel.txt >enkel.txt

Voila

[Poltergeist]

Toch tijd dat ik perl ga leren...

[tomato]

Of een regex eroverheen halen:

code:

/(?:\n)(.+)$1\n/g

Ofzo. Tuurlijk is het makkelijker om gewoon elke regel door tweeen te hakken en alleen het eerste (of tweede) deel te gebruiken, maar op deze manier is het niet erg als er ook 'niet-dubbele' regels voorkomen.