[es] - [TXT] Kako ukloniti prazne redove iz .txt file-a?

nmilosev
Nemanja Milošević
Novi Sad

Član broj: 86992
Poruke: 1104
*.mediaworksit.net.

+1 Profil

[TXT] Kako ukloniti prazne redove iz .txt file-a?

^{10.06.2007. u 13:45 - pre 210 meseci}

Dakle pitanje je jasno. Imam jedan .txt file koji ima oko 1600 redova a od toga je oko 30% prazno. Da li postoji neki način da ih uklonim iz MS Word-a ili Notepad-a. Office je 2003 Professional.

Pozdrav.

_{Toshiba Qosmio F50-125 - Powered

by Dell Axim X50v (WM2005/Official A02) :

Nokia Lumia 920.1 WP8.1 GDR1 Cyan

DevUnlock : Toshiba Encore WT8-A-102 -

Windows 8.1 Pro}

Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4907
*.dynamic.sbb.co.yu.

+641 Profil

Re: [TXT] Kako ukloniti prazne redove iz .txt file-a?

^{10.06.2007. u 19:51 - pre 210 meseci}

Kod praznih redova (ako prazan red nema blankove) karakteristično je da imaju sekvencu CR+LF, CR+LF.
Ili drugim rečima, gde ima dva CR+LF zaredom treba upisati samo jedan CR+LF.

Word: Edit > Replace

Find What: ^p^p
Replace Width: ^p

Klikni: Replace All ... nekoliko puta, dok bude 0 rezultata.

Ako ima blankova u redovima, prethodno treba:

Find What: [jedan blanko]^p
Replace Width: ^p

Pa ono prvo.

Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4907
*.dynamic.sbb.co.yu.

+641 Profil

Re: [TXT] Kako ukloniti prazne redove iz .txt file-a?

^{10.06.2007. u 20:14 - pre 210 meseci}

Ili evo ti jedan mali program koji sam sklepao (valjda radi)...

Prikačeni fajlovi

Project1.zip - 249.16k

Odgovor na temu

nmilosev
Nemanja Milošević
Novi Sad

Član broj: 86992
Poruke: 1104
*.mediaworksit.net.

+1 Profil

Re: [TXT] Kako ukloniti prazne redove iz .txt file-a?

^{12.06.2007. u 18:52 - pre 210 meseci}

Hvala do neba

.
Imam neke eKnjige pa imaju dosta praznih redova...
EDIT : Zaboravih da kažem.. Programče je odvala!!!! Radi ko zmaj! Sme li se dobiti kod da vidim kako si radio pa da napravim verziju za PPC to bi bilo extra korisno programče!

Pozdrav.

_{Toshiba Qosmio F50-125 - Powered

by Dell Axim X50v (WM2005/Official A02) :

Nokia Lumia 920.1 WP8.1 GDR1 Cyan

DevUnlock : Toshiba Encore WT8-A-102 -

Windows 8.1 Pro}

Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4907
*.dynamic.sbb.co.yu.

+641 Profil

Re: [TXT] Kako ukloniti prazne redove iz .txt file-a?

^{12.06.2007. u 20:25 - pre 210 meseci}

Off Topic:

Ma nema problema.

Kod je u Borland C++ Builderu, jako je kratak i nije bas primenljiv u drugim kontekstima. Prosto postoji
neka TStringList klasa koja obavi veci de posla. Ostalo je samo da se kaze sta da se radi sa listom.

Code:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TOpenDialog *Od = new TOpenDialog ( Application );
   Od->Filter = "Tekstualna datoteka (*.txt)|*.txt|Sve datoteke (*.*)|*.*";
   Od->InitialDir = ExtractFilePath( ParamStr(0) );
   Od->Title = "Učitajte datoteku";
   if ( Od->Execute() )
   {
      if ( FileExists( Od->FileName ) )
      {
         TStringList *SL = new TStringList;
         SL->LoadFromFile( Od->FileName );
         for ( int i=SL->Count-1; i>=0; i-- )
         {
            AnsiString TEMP = SL->Strings[i].Trim();
            if ( TEMP.Length() == 0 )
               SL->Delete( i );
         }
         AnsiString NewName = ExtractFilePath( Od->FileName ) + "_" + ExtractFileName( Od->FileName );
         SL->SaveToFile( NewName );
         delete SL;
         ShowMessage( "Datoteka:\n" + NewName + "\nkreirana!" );
      }
      else
      {
         ShowMessage( "Datoteka:\n" + Od->FileName + "\nne postoji!" );
      }
   }
   delete Od;
}

To je to...

Odgovor na temu