Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Проверка существования директории
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Ващенко Иван Ващенко Иван вне форума
Новичок
 
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.09.2005
По умолчанию Проверка существования директории - 15.09.2005, 10:37

пишу в VP5
Код:
  создать_папку(Директория):-
      есть_такая_папка(Директория),
      mkdir(Директория),
  !.
  создать_папку(_):-
  !.
  
  есть_такая_папка(Директория):-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  !.
что написать вместо процентиков, ума не приложу.
хелп по Handling directories and devices смотрел, все равно не понял.
может кто знает?
спасибо заранее.
Ответить с цитированием
  (#2 (permalink)) Старый
Ващенко Иван Ващенко Иван вне форума
Новичок
 
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.09.2005
По умолчанию 15.09.2005, 10:49

как-то я упустил из виду..
Код:
CONSTANTS

fa_subdir = 0x10

PREDICATES

existdir(string)
exd1(string)
exd2(string,string)

CLAUSES

existdir(Wild):-

diropen(Wild,fa_subdir,Block),
exd1(Block),
dirclose(Block).


exd1(Block):-

dirmatch(Block,Name,_,_,_,_,_,_,_,_),
exd2(Block,Name).

exd2(_,Name):- not(frontchar(Name,'.',_)), !.
exd2(Block,_):- exd1(Block).

GOAL

existdir("C:DOS").
Ответить с цитированием
  (#3 (permalink)) Старый
Ващенко Иван Ващенко Иван вне форума
Новичок
 
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.09.2005
По умолчанию 15.09.2005, 11:25

воркает :)
Код:
  создать_подпапку(Директория):-
      есть_такая_папка(Директория),
  !.
  создать_подпапку(Директория):-
      mkdir(Директория),
  !.
  
  есть_такая_папка(Имя):-
      format(АбсолютныйПуть, "%%", абс_путь, Имя),
    diropen(АбсолютныйПуть,fa_subdir,Блок),
    хрень(Блок),
    dirclose(Блок).

  хрень(Блок):-
    dirmatch(Блок,Имя,_,_,_,_,_,_,_,_),
    другая_хрень(Блок,Имя).

  другая_хрень(_,Имя):- 
      not(frontchar(Имя,'.',_)), 
  !.
  другая_хрень(Блок,_):- 
      хрень(Блок).
Ответить с цитированием
  (#4 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,908
Сказал(а) спасибо: 2
Поблагодарили 297 раз(а) в 297 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 16.09.2005, 17:09

Смысл такой:
Код:
создать_папку(Путь_и_имя):-trap(disk(Путь_и_имя),_,mkdir(Имя)),!;true.
Нюансы доделай сам.
Ответить с цитированием
  (#5 (permalink)) Старый
Ващенко Иван Ващенко Иван вне форума
Новичок
 
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.09.2005
По умолчанию 26.09.2005, 15:03

спасибо
Ответить с цитированием
Ads.
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка существования записи Koshek .NET 2 24.05.2011 06:26
Скачать файл с директории выше директории сервера Shota PHP 1 17.01.2011 23:26
Названия файлов в директории toshkaexe Prolog 6 30.10.2009 22:54
Определение существования записи без SELECT Monah IRH PHP 3 09.03.2007 18:36
Существование директории? hector Visual Basic 4 21.10.2006 22:37
Проверка существования папки Jonano .NET 2 15.12.2005 16:26
Проверка существования директории EuG Pascal 6 13.12.2005 17:28
Как получить имя директории Genadi C++ Builder 3 07.11.2005 14:17
Проверка существования папки usp Visual C++ 5 22.07.2005 17:17
Удаленная проверка существования файлов Monah IRH PHP 3 17.01.2005 17:57
ODBC использование SQL, проверка существования DSN Kris Visual C++ 1 02.01.2005 19:50
Проверка существования е-mail'а lilu PHP 1 15.11.2004 12:53



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов