LineCounter 1.0

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

LineCounter ist ein kleines Tool, welches die Zeilen und Zeichenanzahl von ASCII Dateien in einem bestimmten Verzeichnis, optional auch dessen Unterverzeichnisse, ermittelt. Die Dateitypen lassen sich mit Filtern eingrenzen.
www.philiplb.de/LineCounter.zip

Zerfetzt dieses kleine, relativ sinnfreie, Spielzeug.

// Edit: Hatte einen Savebutton für den Report vergessen, neu hochgeladen.

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Ich habs mir nicht angeguckt. aber... könnte man das ganze so ausdrücken?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

function Zeichen(text:string) :Integer;
begin
Zeichen:=length(text);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(Zeichen(Memo1.Text));
Edit2.Text:=IntToStr(Memo1.Lines.Count);
end;

oder hast du dafür gesorgt, dass eine neue zeile nicht als 2 neue zeichen gelten?
aber gut- dass es für mehr dateien geht, ist ja schon garnicht so schlecht... war wahrscheinlich eine kleine "herausforderung"... also, nur um dein Prog nicht völlig nieder zu machen.

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Chatfix · Verfasst: Fr 13.08.04 14:49

Ich habs mir auch nicht angeschaut, weil irgendwie mehr als nur Sinnlos... Sorry *g*

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme