Entwickler-Ecke
Dateizugriff - Datensatz als Dateiname
BlackPhantom - So 29.06.03 19:55
Titel: Datensatz als Dateiname
Hi@all
In meinem kleinen Prog kann ein Benutzer kleine Texte verfassen und in einer TXT abspeichern. Was ich jedoch gerne möchte ist folgendes:
Wenn der Benutzer abspeichert, soll das Prog automatisch die erste Zeile des geschriebenen Textes (meist ist das der Titel) als Dateinamen der TXT-file verwenden.
Ein Problem nebenbei:
Wenn ich zwei Dateien mit dem gleichen Dateinamen habe, wird eins überschrieben.. Ich möchte jedoch, dass bei einer zweiten Datei gleichen Names beim zweiten File in Klammer eine 2 auftaucht und so weiter.
Datensatz.txt
Datensatz(2).txt
thx4all
BlackP
Tweafis - So 29.06.03 20:04
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| if FileExists(NormalerFilename) then begin
x := 2;
while FileExists (copy (NormalerFilename, 1, length (NormalerFilename)
- (Length (ExtractFileExt (NormalerFilename)) +1)
+ '(' + IntToStr (x) + ').' + ExtractFileExt (NormalerFilename))
do
inc(x); |
Nach der Schleife kannst du mit
Delphi-Quelltext
1:
2:
3:
| copy (NormalerFilename, 1, length (NormalerFilename)
- (Length (ExtractFileExt (NormalerFilename)) +1 )
+ '(' + IntToStr (x) + ').' + ExtractFileExt (NormalerFilename) |
Den Entsprechenden Filename herausbekommen...
Moderiert von 
Tino: Absätze im Code eingefügt.
Phantom1 - So 29.06.03 20:28
anstatt:
Delphi-Quelltext
1:
2:
3:
4:
5:
| while FileExists (copy (NormalerFilename, 1, length (NormalerFilename)
- (Length (ExtractFileExt (NormalerFilename)) +1)
+ '(' + IntToStr (x) + ').' + ExtractFileExt (NormalerFilename))
do
inc(x); |
kannst du auch folgendes nehmen:
Delphi-Quelltext
1:
2:
3:
4:
| while FileExists(ChangeFileExt(NormalerFilename, '') + '('
+ IntToStr(x) + ').' + ExtractFileExt(NormalerFilename))
Do
inc(x); |
ist etwas kürzer und übersichtlicher
Moderiert von Tino: Absätze im Code eingefügt.
Tweafis - So 29.06.03 20:31
Mir ist grade ehrlich gesagt auf die schnelle nix kürzeres eingefallen... ;)
BlackPhantom - Mo 30.06.03 22:47
Unglaublich !!! Danke .....ich habe ehrlich gesagt viel komplizierter gedacht, als ihr es hier vorgeschlagen habt. Nochmals danke euch beiden.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!