| mojaSymfonia FORUM https://forum.mix-soft.pl/ |
|
| pobieranie nazw plików z rozszerzeniem https://forum.mix-soft.pl/viewtopic.php?f=15&t=9046 |
Strona 1 z 1 |
| Autor: | Radkom.it [ 2019-03-06, 11:52 ] |
| Tytuł: | pobieranie nazw plików z rozszerzeniem |
mam następujący kod // w tym wypadku pobiera mi zarówno pliki dbf jak i xls string sPath = arg0, sMask = "*.dbf", sKontrDok, all string PlikIn = find file ( sPath + sMask ), tablica_pozycji_pk(1), pozycja_pk //pobieranie tablicy plików While PlikIn buf = PlikIn find regular "{*}{(!\\)##}$" tablica_pozycji_pk(Size ( tablica_pozycji_pk )) = ( regular 2) grow tablica_pozycji_pk,1 PlikIn = find next file wend shrink tablica_pozycji_pk,1 // w tym wypadku nie reprezentuje mi wszystkich plików xls string sPath2 = arg0, sMask2 = "*.xls" string PlikIn2 = find file ( sPath2 + sMask2 ), tablica_pozycji_pk2(2), pozycja_pk2 // pobieranie tablicy plików While PlikIn2 buf = PlikIn2 find regular "{*}{(!\\)##}$" tablica_pozycji_pk2(Size ( tablica_pozycji_pk2 )) = ( regular 2) grow tablica_pozycji_pk2,1 PlikIn2 = find next file wend shrink tablica_pozycji_pk2,1 |
|
| Strona 1 z 1 | Strefa czasowa UTC+1godz. [letni] |
| Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |
|