Ĺadny brzuch
Jak wyciągnąć z nazwy pliku część przed rozszerzeniem?
Można wyciągnąć rozszerzenie poprzez ExtractFileExt(nazwa_pliku) ale jak wyciągnąć samą część główną nazwy??
(z nazwy 'plik.txt' wyciągnąć 'plik')
Pobierz nazwę pliku (np. plik.txt) do jakiejs zmiennej, a nastepnie np. do drugiej zmiennej przypisz podciag od elementu zerowego do elementu na pozycji pierwszej kropki.
Takie sprawdzanie każdej litery jak mam do wczytania 1000 plików może trwać zbyt długo.
Nie ma jakiejś komendy wyodrębniającej nazwę?
ChangeFileExt('plik.txt', '');
ChangeFileExt('plik.txt', '');
var zmienna_ze_sciezka, nazwa: string; begin ExtractFileName(zmienna_ze_sciezka); nazwa:=copy(zmienna_ze_sciezka,0,length(zmienna_ze_sciezka)-3); end;
nie jestem pewien, bo pisalem z pamieci, ale chyba tak to szlo ;) pozdro.
nie jestem pewien, bo pisalem z pamieci, ale chyba tak to szlo ;) pozdro.
Ja zawsze stosuję ChangeFileExt(nazwa_pliku, '') i działa bez żadnych problemów, niezawodnie i szybko :)
[code]
nie jestem pewien, bo pisalem z pamieci, ale chyba tak to szlo ;) pozdro.
A co jak pliki mają rozszerzenia, w krówych liczba znaków <> 3 (np plik.html) ?? Już lepiej byłoby lecieć od tyłu i sprawdzać gdzie jest kropka i wszystko sprzed odnalezionej kropki kopiować.
Update
Ale szybkie lopezy na forum są :lol:
Użytkownik Uno edytował ten post 20 styczeń 2006, 11:59
var s:string; begin s:='plik.txteisfrw'; while (length(s)>0)and(s[length(s)]<>'.') do setlength(s,length(s)-1); setlength(s,length(s)-1);
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Można wyciągnąć rozszerzenie poprzez ExtractFileExt(nazwa_pliku) ale jak wyciągnąć samą część główną nazwy??
(z nazwy 'plik.txt' wyciągnąć 'plik')
Pobierz nazwę pliku (np. plik.txt) do jakiejs zmiennej, a nastepnie np. do drugiej zmiennej przypisz podciag od elementu zerowego do elementu na pozycji pierwszej kropki.
Takie sprawdzanie każdej litery jak mam do wczytania 1000 plików może trwać zbyt długo.
Nie ma jakiejś komendy wyodrębniającej nazwę?
ChangeFileExt('plik.txt', '');
ChangeFileExt('plik.txt', '');
var zmienna_ze_sciezka, nazwa: string; begin ExtractFileName(zmienna_ze_sciezka); nazwa:=copy(zmienna_ze_sciezka,0,length(zmienna_ze_sciezka)-3); end;
nie jestem pewien, bo pisalem z pamieci, ale chyba tak to szlo ;) pozdro.
nie jestem pewien, bo pisalem z pamieci, ale chyba tak to szlo ;) pozdro.
Ja zawsze stosuję ChangeFileExt(nazwa_pliku, '') i działa bez żadnych problemów, niezawodnie i szybko :)
[code]
nie jestem pewien, bo pisalem z pamieci, ale chyba tak to szlo ;) pozdro.
A co jak pliki mają rozszerzenia, w krówych liczba znaków <> 3 (np plik.html) ?? Już lepiej byłoby lecieć od tyłu i sprawdzać gdzie jest kropka i wszystko sprzed odnalezionej kropki kopiować.
Update
Ale szybkie lopezy na forum są :lol:
Użytkownik Uno edytował ten post 20 styczeń 2006, 11:59
var s:string; begin s:='plik.txteisfrw'; while (length(s)>0)and(s[length(s)]<>'.') do setlength(s,length(s)-1); setlength(s,length(s)-1);