Autor Beitrag
DiamondDog
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 460



BeitragVerfasst: Mo 15.11.10 14:25 
Hallo Leute,
ich steh einwenig auf dem Schlauch, hab schon ne ewigkeit gegoogelt aber nicht das Passende gefunden.
Also ich hab das Problem das ich gerne aus einem Ordnerpafd zb:
C:\Users\DiamondDog\Desktop
den letzten Ordner auslesen will (Desktop), leider hab ich dazu keinen Ansatz gefunden und es wäre nett wenn mir da vll jemand weiterhelfen könnte.

Danke schon mal an alle.

Mfg
Bergmann89
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1742
Erhaltene Danke: 72

Win7 x64, Ubuntu 11.10
Delphi 7 Personal, Lazarus/FPC 2.2.4, C, C++, C# (Visual Studio 2010), PHP, Java (Netbeans, Eclipse)
BeitragVerfasst: Mo 15.11.10 14:32 
Hey,

guck dir mal ExtractFileName an ;)

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

Für diesen Beitrag haben gedankt: DiamondDog
Dude566
ontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic star
Beiträge: 1592
Erhaltene Danke: 79

W8, W7 (Chrome, FF, IE)
Delphi XE2 Pro, Eclipse Juno, VS2012
BeitragVerfasst: Mo 15.11.10 14:32 
Meinst du den Inhalt des Ordners mit FindFirst und FindNext auslesen?

Edit: ExtractFileName gibt aber nur den Dateinamen plus Dateiendung wenn der Pfad zu dieser Datei angegeben ist und nicht den letzten Ordner oder?

_________________
Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.
DiamondDog Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 460



BeitragVerfasst: Mo 15.11.10 14:35 
user profile iconBergmann89 hat folgendes geschrieben Zum zitierten Posting springen:
Hey,

guck dir mal ExtractFileName an ;)

MfG Bergmann.

Genau das habe ich gesucht. Besten Dank!
Bergmann89
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1742
Erhaltene Danke: 72

Win7 x64, Ubuntu 11.10
Delphi 7 Personal, Lazarus/FPC 2.2.4, C, C++, C# (Visual Studio 2010), PHP, Java (Netbeans, Eclipse)
BeitragVerfasst: Mo 15.11.10 14:41 
Hey,

@Dude566: ExtractFileName kopiert lediglich alles was hinter dem letzen "\" im String ist. Also kann man damit auch ganz einfach den Ordnernamen raus bekommen, wenn man den Pfad zu einem Ordner hat.

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^
Dude566
ontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic star
Beiträge: 1592
Erhaltene Danke: 79

W8, W7 (Chrome, FF, IE)
Delphi XE2 Pro, Eclipse Juno, VS2012
BeitragVerfasst: Mo 15.11.10 15:09 
user profile iconBergmann89 hat folgendes geschrieben Zum zitierten Posting springen:
Hey,

@Dude566: ExtractFileName kopiert lediglich alles was hinter dem letzen "\" im String ist. Also kann man damit auch ganz einfach den Ordnernamen raus bekommen, wenn man den Pfad zu einem Ordner hat.

MfG Bergmann.


So habe ich das noch nicht verwendet, ich dachte es würde nach dem Teil hinter dem letzten "\" suchen und es müsste ein "." für die Abgrenzung zur Dateiendung bestehen.
Gut zu wissen. :lol:

_________________
Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.
Bergmann89
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1742
Erhaltene Danke: 72

Win7 x64, Ubuntu 11.10
Delphi 7 Personal, Lazarus/FPC 2.2.4, C, C++, C# (Visual Studio 2010), PHP, Java (Netbeans, Eclipse)
BeitragVerfasst: Mo 15.11.10 15:22 
Hey,

hab das mal durch zufall rausgefunden, allerdings sollte man aufpassen, das der String nicht mit einem "\" endet, weil dann funktioniert das ganze nicht mehr. Ich hab mir dann halt noch ne extra Funktion geschrieben, die das geprüft und ggf. behoben hat.

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^
Gerd Kayser
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 632
Erhaltene Danke: 121

Win 7 32-bit
Delphi 2006/XE
BeitragVerfasst: Mo 15.11.10 17:35 
user profile iconBergmann89 hat folgendes geschrieben Zum zitierten Posting springen:
Ich hab mir dann halt noch ne extra Funktion geschrieben, die das geprüft und ggf. behoben hat.
Eine entsprechende Funktion (AnsiLastChar) gibt es doch bereits:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
var
  Ordner : string;
begin
  Ordner := 'c:\programme\borland\delphi\delphi.exe';
  Ordner := ExtractFilePath(Ordner);
  if AnsiLastChar(Ordner) = '\' then
    Delete(Ordner, Length(Ordner), 1);
  Ordner := ExtractFileName(Ordner);
  Label1.Caption := Ordner;
Bergmann89
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1742
Erhaltene Danke: 72

Win7 x64, Ubuntu 11.10
Delphi 7 Personal, Lazarus/FPC 2.2.4, C, C++, C# (Visual Studio 2010), PHP, Java (Netbeans, Eclipse)
BeitragVerfasst: Mo 15.11.10 18:04 
Hey,

ich meinte ja nicht die Funktion, die das letzte Zeichen prüft, sondern genau das was du grad gemacht hast. Eine Funktion die den Ordnernamen ermittelt, wenn man den Pfad übergibt.

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^
delphi10
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 447
Erhaltene Danke: 2

W2K, XP, Vista64, Win7 64
RAD-Studio 2010
BeitragVerfasst: Mo 15.11.10 18:58 
user profile iconGerd Kayser hat folgendes geschrieben Zum zitierten Posting springen:
user profile iconBergmann89 hat folgendes geschrieben Zum zitierten Posting springen:
Ich hab mir dann halt noch ne extra Funktion geschrieben, die das geprüft und ggf. behoben hat.
Eine entsprechende Funktion (AnsiLastChar) gibt es doch bereits:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
var
  Ordner : string;
begin
  Ordner := 'c:\programme\borland\delphi\delphi.exe';
  Ordner := ExtractFilePath(Ordner);
  if AnsiLastChar(Ordner) = '\' then
    Delete(Ordner, Length(Ordner), 1);
  Ordner := ExtractFileName(Ordner);
  Label1.Caption := Ordner;

Sorry, hatte eine Ecke zu weit gedacht. Wg. Blödsinn gelöscht

_________________
Salus populi suprema lex esto