[ nmilosev @ 10.06.2007. 13:45 ] @
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.
[ X Files @ 10.06.2007. 19:51 ] @
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.
[ X Files @ 10.06.2007. 20:14 ] @
Ili evo ti jedan mali program koji sam sklepao (valjda radi)...

[ nmilosev @ 12.06.2007. 18:52 ] @
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.
[ X Files @ 12.06.2007. 20:25 ] @
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...