Autor: Jurek Kowalski (jkowal_at_um.szczecin.pl)
Data: Fri 30 Jul 1999 - 13:26:07 MET DST
Grzegorz Szyszlo wrote:
> /* to taki przyklad */
>
> NazwaPelna='D:\trututu\innykat\plik.ciekawe.brum'
>
> Plik=FILESPEC('name',NazwaPelna)
> Pozycja=LASTPOS('.',Plik)
> IF Pozycja=0 THEN Pozycja=LENGTH(Plik) /* nie ma rozszerzenia */
> SamaNazwa=SUBSTR(Plik,1,Pozycja-1)
> Rozszerzenie=SUBSTR(Plik,Pozycja+1)
W ramach ogladania rexxa :-)
dobrze jest zapamietac te dwie intuicyjne funkcje.
say SamaNazwa '=' left(Plik,Pozycja-1)
say Rozszerzenie '=' right(Plik,length(plik)-Pozycja)
[bywa, ze dlugosc koncowki juz mamy]
--
| |
\ | | | _| -_) | /
\__/ \_,_|_| \___|_\_\
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:23:22 MET DST