---

Ja dav!

tekst := 'F:\test\jpg\test\foto.jpg'

Den skal dele op i: drev, dir, fil og type.

det skal ende med strings:

Drev = F:
dir = \test\jpg\test\
fil= Foto
type= jpg

Hvordan gør jeg det ???

--
M.v.h.
Hans Nikolajsen
E-mail: hn2test@stofanet.dk
Homepage: http://home1.stofanet.dk/jadav/
Fjern test fra min E-mail for at skrive til mig!

---

Hvis du laver det i Delphi gøres det således:

Drev := ExtractFileDriveName('F:\test\jpg\test\foto.jpg');
Dir := ExtractFilePath('F:\test\jpg\test\foto.jpg');
Fil := Copy(ExtractFileName('F:\test\jpg\test\foto.jpg'), 1, Pos('.',
ExtractFileName('F:\test\jpg\test\foto.jpg')) - 1);
FilType := ExtractFileExt('F:\test\jpg\test\foto.jpg');

Husk at inkludere SysUtils i projektet.

Hvis du vil lave det i Pascal, kræver det lidt mere arbejde.

Hilsen

Peter Vrist


"Hans Nikolajsen" <hn2@stofanet.dk> skrev i en meddelelse
news:3dd2ad18$0$11422$ba624c82@nntp02.dk.telia.net...
> Ja dav!
>
> tekst := 'F:\test\jpg\test\foto.jpg'
>
> Den skal dele op i: drev, dir, fil og type.
>
> det skal ende med strings:
>
> Drev = F:
> dir = \test\jpg\test\
> fil= Foto
> type= jpg
>
> Hvordan gør jeg det ???
>
> --
> M.v.h.
> Hans Nikolajsen
> E-mail: hn2test@stofanet.dk
> Homepage: http://home1.stofanet.dk/jadav/
> Fjern test fra min E-mail for at skrive til mig!
>
>

---

"Peter Vrist" <peter.vrist@mail.dk> wrote in message
news:3dd2c112$0$35950$edfadb0f@dread13.news.tele.dk...
> Hvis du laver det i Delphi gøres det således:
>
> Fil := Copy(ExtractFileName('F:\test\jpg\test\foto.jpg'), 1, Pos('.',
> ExtractFileName('F:\test\jpg\test\foto.jpg')) - 1);

Virker kun, hvis der er netop 1 punktum i navnet OG det er i forbindelse
med filtypen.

---

"Uffe Kousgaard" <uffe@routeware.dk> wrote in message
news:3dd2c460$0$12466$edfadb0f@dread11.news.tele.dk...
> "Peter Vrist" <peter.vrist@mail.dk> wrote in message
> news:3dd2c112$0$35950$edfadb0f@dread13.news.tele.dk...
> > Hvis du laver det i Delphi gøres det således:
> >
> > Fil := Copy(ExtractFileName('F:\test\jpg\test\foto.jpg'), 1, Pos('.',
> > ExtractFileName('F:\test\jpg\test\foto.jpg')) - 1);
>
> Virker kun, hvis der er netop 1 punktum i navnet OG det er i forbindelse
> med filtypen.

Ja, så skal man vel lede efter punktummet bagfra i strengen. Basic har en
'bagvendt' Pos funktion, men den findes vist ikke i Delphi(?).

Ellers må man kunne gøre sådan her (ikke testet):


for i := length(ExtractFileName('F:\test\jpg\test\foto.jpg')) downto 1 do
begin
if copy(ExtractFileName('F:\test\jpg\test\foto.jpg'), i, 1) = '.' then
DotPos := i;
end;

Fil := Copy(ExtractFileName('F:\test\jpg\test\foto.jpg'), 1, DotPos - 1);



Simon

---

"Simon Hiort-Lorenzen" <bulk@NOSPAMhilo.dk> wrote in message
news:aqun9b$24h3$1@news.cybercity.dk...
>
> > Virker kun, hvis der er netop 1 punktum i navnet OG det er i
forbindelse
> > med filtypen.
>
> Ja, så skal man vel lede efter punktummet bagfra i strengen. Basic har
en
> 'bagvendt' Pos funktion, men den findes vist ikke i Delphi(?).

Den hedder StrRScan, men som sagt er det slet ikke sikkert der er et
punktum i filnavnet. Kig i VCL koden for ExtractFileName og lignende
funktioner og bliv inspireret.

---

"Uffe Kousgaard" <uffe@routeware.dk> wrote in message
news:3dd2e316$0$12499$edfadb0f@dread11.news.tele.dk...
> "Simon Hiort-Lorenzen" <bulk@NOSPAMhilo.dk> wrote in message
> news:aqun9b$24h3$1@news.cybercity.dk...
> >
> > > Virker kun, hvis der er netop 1 punktum i navnet OG det er i
> forbindelse
> > > med filtypen.
> >
> > Ja, så skal man vel lede efter punktummet bagfra i strengen. Basic har
> en
> > 'bagvendt' Pos funktion, men den findes vist ikke i Delphi(?).
>
> Den hedder StrRScan, men som sagt er det slet ikke sikkert der er et
> punktum i filnavnet. Kig i VCL koden for ExtractFileName og lignende
> funktioner og bliv inspireret.

Ok.

Jeg fandt lige funktionen ChangeFileExt. Det må være det nemmeste:

Fil := ChangeFileExt(ExtractFileName('F:\test\jpg\test\foto.jpg'), '')

Simon

---

"Simon Hiort-Lorenzen" <bulk@NOSPAMhilo.dk> wrote in message
news:aquot5$265e$1@news.cybercity.dk...
>
>
> Jeg fandt lige funktionen ChangeFileExt. Det må være det nemmeste:
>
> Fil := ChangeFileExt(ExtractFileName('F:\test\jpg\test\foto.jpg'), '')

I dit sidste indlæg skrev du "ikke testet". Det glemte du at skrive
her - en fin hentydning om, at din kode ikke virker. Husk at målet er,
at få ordet "foto" ud som resultat.

---

"Uffe Kousgaard" <uffe@routeware.dk> wrote in message
news:3dd370fe$0$2487$edfadb0f@dread12.news.tele.dk...
> "Simon Hiort-Lorenzen" <bulk@NOSPAMhilo.dk> wrote in message
> news:aquot5$265e$1@news.cybercity.dk...
> >
> >
> > Jeg fandt lige funktionen ChangeFileExt. Det må være det nemmeste:
> >
> > Fil := ChangeFileExt(ExtractFileName('F:\test\jpg\test\foto.jpg'), '')
>
> I dit sidste indlæg skrev du "ikke testet". Det glemte du at skrive
> her - en fin hentydning om, at din kode ikke virker. Husk at målet er,
> at få ordet "foto" ud som resultat.

Det skrev jeg ikke fordi jeg havde testet det. Det mangler selvfølgelig et
semikolon, men ellers giver det da præcis det ønskede resultat : 'foto'.

Simon

---

"Simon Hiort-Lorenzen" <bulk@NOSPAMhilo.dk> wrote in message
news:ar07uu$64n$1@news.cybercity.dk...
> Det skrev jeg ikke fordi jeg havde testet det. Det mangler
selvfølgelig et
> semikolon, men ellers giver det da præcis det ønskede resultat :
'foto'.

Du har ret. Jeg har husket forkert i.f.t. hvad ExtractFileName
returnerer.