Autor: Grzegorz Szyszlo (znik_at_avalon.wbc.lublin.pl)
Data: Fri 30 Jul 1999 - 11:55:12 MET DST
Andrzej Pięta wrote:
>
> Witam :-)
> Mam pytanie do fachowców od REXX'a. W jaki sposób można
> oddzielić część nazwy pliku przed pierwszą kropką i przed kolejną
> np:
> 1. nazwa pliku.costam -> chcę uzyskać nazwa pliku
> 2. nazwa pliku.costa.i jeszcze cos -> chcę mieć :
> nazwa pliku
> costam
> nazwa pliku.costam
/* 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)
/* to wszystko */
/* skladanie nazwy spowrotem */
ZnowuPelnaNazwa=SamaNazwa'.'Rozszerzenie
/* ten skrypt ma taka zalete ze odcina ostatnia kropke w nazwie
a nie pierwsza napotkana, jak to ma w zwyczaju sam os/2 niestety */
-- /===================================\ oOOo (C) Publikacja tego | http://avalon.wbc.lublin.pl/~znik/ \===\__/==\ artykulu lub jego | Grzegorz Szyszlo mailto:znik_at_wbc.lublin.pl | fragmentow w Gaz.Wyb. \==============================================/ surowo wzbroniona.
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:23:22 MET DST