for flooders
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
   Л и с о в о д ы   в с е х   с т р а н,  о б ъ е д и н я й т е с ь !!!  

Список Форумов  :: Игры Разума
   :: Помощь сайту :: 

Простенький вопрос
ssa
[Модератор]

Сообщений: 12203
Откуда: Москва
Дата: 22.03.07 12:40:45ОтветитьЦитировать
Дана табличка с именами и "телами" файлов.
Написать саму красивую прогу по получению всех файлов на диск из этой таблички.


------------------
Лень - это неосознанная мудрость.
Ratings: 0 negative/0 positive

Re: Простенький вопрос
AlexSSS

Сообщений: 6110
Откуда: Tallinn, Estonia
Дата: 22.03.07 12:47:56ОтветитьЦитировать
  
  select strtofile(body, filename) from table
Ratings: 0 negative/0 positive

Re: Простенький вопрос
piva
[Болтун]

Сообщений: 18533
Откуда: Курган
Дата: 22.03.07 12:48:19ОтветитьЦитировать
Create Cursor files ( name m, body m NOCPTRANS )  
    
  Insert into files values ("c:\1.txt","1111")  
  Insert into files values ("c:\2.txt","2222")  
  Insert into files values ("c:\3.txt","3333")  
    
  Select StrToFile(body,name) from files into array tmp
ТОка я не понял фразы "получению всех файлов на диск"


------------------
Часто бывает так, что есть над чем задуматься, а нечем.
Ratings: 0 negative/0 positive

Re: Простенький вопрос
leonid
Автор

Сообщений: 2585
Откуда: Рига
Дата: 22.03.07 12:49:41ОтветитьЦитировать
select strtofile(filebody,filename) from mytable

P.S. Черт, все так быстро печатают.



Исправлено: leonid, 22.03.07 12:50
Ratings: 0 negative/0 positive

Re: Простенький вопрос
ssa
[Модератор]

Сообщений: 12203
Откуда: Москва
Дата: 22.03.07 12:52:58ОтветитьЦитировать
Боже, какое единодушие!

Пива, ты все правильно понял.

Допвопрос всем: а вам полученные кусоры/массивы нужны для дальнейшей работы? Или можно без них обойтись?


------------------
Лень - это неосознанная мудрость.
Ratings: 0 negative/0 positive

Re: Простенький вопрос
piva
[Болтун]

Сообщений: 18533
Откуда: Курган
Дата: 22.03.07 12:56:48ОтветитьЦитировать
Массивы все равно сдохнут после вызода из процедуры


------------------
Часто бывает так, что есть над чем задуматься, а нечем.
Ratings: 0 negative/0 positive

Re: Простенький вопрос
AlexSSS

Сообщений: 6110
Откуда: Tallinn, Estonia
Дата: 22.03.07 12:57:21ОтветитьЦитировать
> Боже, какое единодушие!
не знаю, как других, лично меня на решение моментально натолкнула недавняя тема, как кто-то засунул strtofile в дибаггер ;o)
Ratings: 0 negative/0 positive

Re: Простенький вопрос
AlexSSS

Сообщений: 6110
Откуда: Tallinn, Estonia
Дата: 22.03.07 12:58:10ОтветитьЦитировать
можно еще вывести на экран или на принтер ;o)
Ratings: 0 negative/0 positive

Re: Простенький вопрос
leonid
Автор

Сообщений: 2585
Откуда: Рига
Дата: 22.03.07 13:00:50ОтветитьЦитировать
Если есть требование без дополнительных курсоров, то можно и так
update myteble set filename=iif(strtofile(filebody,filename)=0,filename,filename)
Ratings: 0 negative/0 positive

Re: Простенький вопрос
ssa
[Модератор]

Сообщений: 12203
Откуда: Москва
Дата: 22.03.07 13:17:55ОтветитьЦитировать
Лишние курсоры/массивы нежелательны. Длина программы поменьше. Поедаемые программой ресурсы поменьше.
А SQL операторы относительно прожорливые...


------------------
Лень - это неосознанная мудрость.
Ratings: 0 negative/0 positive

Re: Простенький вопрос
PaulWist

Сообщений: 13046
Дата: 22.03.07 13:22:44ОтветитьЦитировать
Але, ты загадками не говори, а сформулируй задачу более конкретно:

Исходные данные .....
Надо получить .....
Ограничения .....
Длина проги должна быть не более ... "х" операторов ... "у" символов...

Решайте.

А то:

Цитата:
Лишние курсоры/массивы нежелательны. Длина программы поменьше. Поедаемые программой ресурсы поменьше.
А SQL операторы относительно прожорливые...


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive

Re: Простенький вопрос
leonid
Автор

Сообщений: 2585
Откуда: Рига
Дата: 22.03.07 13:23:58ОтветитьЦитировать
А на экран печатать можно?
list strtofile(filebody,filename)
Ratings: 0 negative/0 positive

Re: Простенький вопрос
ssa
[Модератор]

Сообщений: 12203
Откуда: Москва
Дата: 22.03.07 13:25:25ОтветитьЦитировать
Паш, ну посмотри самый первый пост. Я всего лишь расшифровал для не знающих программисткое понимание красоты программы.


------------------
Лень - это неосознанная мудрость.
Ratings: 0 negative/0 positive

Re: Простенький вопрос
ssa
[Модератор]

Сообщений: 12203
Откуда: Москва
Дата: 22.03.07 13:26:07ОтветитьЦитировать
Ну, слава всевышнему!


------------------
Лень - это неосознанная мудрость.
Ratings: 0 negative/0 positive

Re: Простенький вопрос
leonid
Автор

Сообщений: 2585
Откуда: Рига
Дата: 22.03.07 13:29:56ОтветитьЦитировать
Можно еще
sum strtofile(filebody,filename)
Даже еще короче получается. И на экран меньше печатает. Да и то не всегда.
Ratings: 0 negative/0 positive



Извините, только зарегистрированные пользователи могут писать в этом форуме.

On-line: 46 _vit Simple777  and Guests: 44


© 2000-2019 Fox Club 
Яндекс.Метрика