Как проверить наличие файла?

classic Classic list List threaded Threaded
4 messages Options
Reply | Threaded
Open this post in threaded view
|

Как проверить наличие файла?

витя ерыгин
Нужна программа которая по заранее заданным директориям проверяет есть ли там файлы по факту или нет. Очень много файлов
Короче, S" \papka\papka2\file.jpg" Есть там этот файл или нет. Может, у кого-нибудь были подобные проблемы?


--
Виктор Ерыгин
------------------------------------------------------------------------------
Site24x7 APM Insight: Get Deep Visibility into Application Performance
APM + Mobile APM + RUM: Monitor 3 App instances at just $35/Month
Monitor end-to-end web transactions and take corrective actions now
Troubleshoot faster and improve end-user experience. Signup Now!
http://pubads.g.doubleclick.net/gampad/clk?id=272487151&iu=/4140
_______________________________________________
Spf-dev mailing list
[hidden email]
https://lists.sourceforge.net/lists/listinfo/spf-dev
Reply | Threaded
Open this post in threaded view
|

Re: Как проверить наличие файла?

Абдрахимов Илья-2
10.02.2016 19:09, витя ерыгин пишет:
Нужна программа которая по заранее заданным директориям проверяет есть ли там файлы по факту или нет. Очень много файлов
Короче, S" \papka\papka2\file.jpg" Есть там этот файл или нет. Может, у кого-нибудь были подобные проблемы?


--
Виктор Ерыгин

------------------------------------------------------------------------------
Site24x7 APM Insight: Get Deep Visibility into Application Performance
APM + Mobile APM + RUM: Monitor 3 App instances at just $35/Month
Monitor end-to-end web transactions and take corrective actions now
Troubleshoot faster and improve end-user experience. Signup Now!
http://pubads.g.doubleclick.net/gampad/clk?id=272487151&iu=/4140


_______________________________________________
Spf-dev mailing list
[hidden email]
https://lists.sourceforge.net/lists/listinfo/spf-dev
Посмотри тут: http://nncron.ru/forums/viewforum.php?f=5&sid=e55afcf7d18825ac5231bf7295cd24c2
+ опять же Форт! ;)

-- 
Bye!
Илья

------------------------------------------------------------------------------
Site24x7 APM Insight: Get Deep Visibility into Application Performance
APM + Mobile APM + RUM: Monitor 3 App instances at just $35/Month
Monitor end-to-end web transactions and take corrective actions now
Troubleshoot faster and improve end-user experience. Signup Now!
http://pubads.g.doubleclick.net/gampad/clk?id=272487151&iu=/4140
_______________________________________________
Spf-dev mailing list
[hidden email]
https://lists.sourceforge.net/lists/listinfo/spf-dev
Reply | Threaded
Open this post in threaded view
|

Re: Как проверить наличие файла?

shabronov
Для Виктора Ерыгина
Добрый день. Поиск файла это задача а не проблемма.
Вариант решения на spf4 ниже

: FIND-FILES_WRITE_TELO_LIBER1 ( Au u  -->  найти файлы и
с комплировать их в тело )
  \  Au u - каталог с файлами данных  строка с счетчиками
  \  делаем через внутренние переменные
      ||     u_f1    addr_f1 || ( пишем через внутрение )
         -> u_f1    -> addr_f1
         \
-----------------------------------------------------------
            0 addr_f1   u_f1 +  C!
            /WIN32_FIND_DATA    ALLOCATE THROW data_f !  (
-> data  )
            data_f @ /WIN32_FIND_DATA ERASE
            data_f @ addr_f1   FindFirstFileA  id_f ! ( ->
id )
            id_f @ -1 = IF data_f @ FREE DROP EXIT THEN
            data_f @ cFileName ASCIIZ>  ( Af f -- найдено
1ое имя )
        \
--------------------------------------------------------------
            WRITE_TELO_LIBER1 ( An n --> компилируем в
тело )
        \ -----------------------------
            BEGIN
              data_f @ id_f @ FindNextFileA
              ?KEY1  0x20  =
              IF DROP CR ." сбросил запись  в  тело,
повтор - ПБ "
                     -1 SBROS_PZ1 !  (  что бы  и далее не
записывать ставим признак )
                      EXIT
              THEN
            WHILE
               data_f @ cFileName  ASCIIZ> ( Af f -->
получено имя файла и размер )
               WRITE_TELO_LIBER1 ( An n --> компилируем в
тело )
            REPEAT
            id_f @ FindClose DROP
            data_f @ FREE DROP
      ;
========================================
  S" *.txt"  FIND-FILES_WRITE_TELO_LIBER1 ( Au u  --> )
1. Выполняется поиск всех файлов с расширением txt.
2.  WRITE_TELO_LIBER1 ( An n --> компилируем в тело
найденый файл )  для своих задач можете свое слово
написать.
    например если указать TYPE  то найденый файл будет
 просто печататься на экран.  А если найти нужный файл то
сравнение поставить и выйти.
3.  Полное описание находиться по адресу
http://www.shabronov.narod.ru/temp/temp/test_monsys_all.zip
      выполнить test_monsys.exe s 3 3 3 <ENTER>
 сформируется каталог со всеми библиотеками, там и найдете
это слово в файле test_monsys.f
Успехов!




On Wed, 10 Feb 2016 22:19:51 +0300
  Абдрахимов Илья <[hidden email]> wrote:

> 10.02.2016 19:09, витя ерыгин пишет:
>> Нужна программа которая по заранее заданным директориям
>>проверяет есть
>> ли там файлы по факту или нет. Очень много файлов
>> Короче, S" \papka\papka2\file.jpg" Есть там этот файл
>>или нет. Может,
>> у кого-нибудь были подобные проблемы?
>>
>>
>> --
>> Виктор Ерыгин
>>
>>
>> ------------------------------------------------------------------------------
>> Site24x7 APM Insight: Get Deep Visibility into
>>Application Performance
>> APM + Mobile APM + RUM: Monitor 3 App instances at just
>>$35/Month
>> Monitor end-to-end web transactions and take corrective
>>actions now
>> Troubleshoot faster and improve end-user experience.
>>Signup Now!
>> http://pubads.g.doubleclick.net/gampad/clk?id=272487151&iu=/4140
>>
>>
>> _______________________________________________
>> Spf-dev mailing list
>> [hidden email]
>> https://lists.sourceforge.net/lists/listinfo/spf-dev
> Посмотри тут:
>http://nncron.ru/forums/viewforum.php?f=5&sid=e55afcf7d18825ac5231bf7295cd24c2
> + опять же Форт! ;)
>
> --
> Bye!
> Илья
>

------------------------------------------------------------------------------
Site24x7 APM Insight: Get Deep Visibility into Application Performance
APM + Mobile APM + RUM: Monitor 3 App instances at just $35/Month
Monitor end-to-end web transactions and take corrective actions now
Troubleshoot faster and improve end-user experience. Signup Now!
http://pubads.g.doubleclick.net/gampad/clk?id=272487151&iu=/4140
_______________________________________________
Spf-dev mailing list
[hidden email]
https://lists.sourceforge.net/lists/listinfo/spf-dev
Reply | Threaded
Open this post in threaded view
|

Re: Как проверить наличие файла?

Ruvim Pinka
In reply to this post by витя ерыгин
2016-02-10 19:09 GMT+03:00 витя ерыгин <[hidden email]>:
Нужна программа которая по заранее заданным директориям проверяет есть ли там файлы по факту или нет. Очень много файлов
Короче, S" \papka\papka2\file.jpg" Есть там этот файл или нет. Может, у кого-нибудь были подобные проблемы?


Существование файла проверяет FILE-EXISTS ( addr u -- flag )
Если имя файла выходит за ASCII, следует учитывать кодировку, т.к. ядро SP-Forth/4 неюникодное.


--
Ruvim

------------------------------------------------------------------------------
Site24x7 APM Insight: Get Deep Visibility into Application Performance
APM + Mobile APM + RUM: Monitor 3 App instances at just $35/Month
Monitor end-to-end web transactions and take corrective actions now
Troubleshoot faster and improve end-user experience. Signup Now!
http://pubads.g.doubleclick.net/gampad/clk?id=272487151&iu=/4140
_______________________________________________
Spf-dev mailing list
[hidden email]
https://lists.sourceforge.net/lists/listinfo/spf-dev