возникшие вопросы...

Форумы Помощь по пакетувозникшие вопросы... ← Ctrl12 3 4 5Ctrl →

Этот топик читают: Гость

Ответов: 1

Рейтинг: 0

#1: 2008-06-01 06:45:16 ЛС | профиль | цитата

Я давно пользовался вашей программой но у меня блыа версия 3.04 я начал искать функцию перемещения файлов такого вида: ищуться файлы например *.txt в папке с виндой и потом перемещаться в D: xt незнаю как так сделать удалять все файлы получаеться а вот перемещать нет=( обьясните пожалуйста на sha примере. Следующее что меня озадачило это добавление компилятора, конечно вам легко добавить компилятор когда стоит делфи но у меня его нету)) в старой версии все компилируеться а в новой не хочет совсем((

карма: 0

Ответов: 8959

Рейтинг: 824

#2: 2008-06-01 09:40:15 ЛС | профиль | цитата

rrrrrr, смотрите почту.

карма: 19

Гость

Ответов: 17029

Рейтинг: 0

#3: 2008-06-01 18:21:29 правка | ЛС | профиль | цитата

Редактировалось 3 раз(а), последний 2025-01-20 16:50:23

карма: 0

Ответов: 1088

Рейтинг: 112

#4: 2008-06-01 19:59:20 ЛС | профиль | цитата

Гость, Типа это чтоли?


#sha
Add(FileTools,695750,358,245)
{
 link(FileName,1295776:Value,[(364,226)(129,226)(129,282)(70,282)])
}
Add(FileSearch,8158590,15,238)
{
 Ext="*.txt"
 Dir="c:"
 link(onSearch,1295776:doValue,[])
}
Add(Button,14554909,-90,238)
{
 Left=95
 Top=235
 link(onClick,1920589:doStart,[])
}
Add(Thread,1920589,-41,238)
{
 Delay=1
 FastStop=0
 link(onExec,8158590:doSearch,[])
}
Add(Memory,1295776,64,238)
{
 link(onData,15178545:doDelete,[])
}
Add(Delete,15178545,106,238)
{
 Count=2
 link(onDelete,3808202:doSearch,[])
}
Add(BlockFind,3808202,148,238)
{
 IncludeBlock=1
 Delete=0
 StartBlock=""
 EndBlock=""
 link(onEndSearch,9983645:doReplace,[])
}
Add(Replace,9983645,190,245)
{
 SubStr=""
 link(onReplace,1489369:doString,[])
}
Add(FormatStr,1489369,232,245)
{
 DataCount=1
 Mask="c:\txt\%1"
 link(onFString,2099424:doWork,[])
}
Add(Check,2099424,288,245)
{
 Check=1
 Caption="Work?"
 link(onEvent,695750:doMove,[])
}

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Гость

Ответов: 17029

Рейтинг: 0

#5: 2008-06-01 23:22:37 правка | ЛС | профиль | цитата

Редактировалось 3 раз(а), последний 2025-01-20 16:50:24

карма: 0

Ответов: 16884

Рейтинг: 1239

#6: 2008-06-01 23:58:11 ЛС | профиль | цитата

rrrrrrr писал(а):

чтото не работает эта схема

так это не схема, а "Типа это чтоли?"



Add(MainForm,16177347,147,14)
{
 Left=20
 Top=105
 Width=454
 Height=173
}
Add(FileSearch,3747670,98,105)
{
 Ext=""
 link(onSearch,15837227:doValue,[])
 link(Ext,8086166:Text,[])
 link(Dir,16308736:Text,[])
}
Add(Button,8220690,7,56)
{
 Left=5
 Top=30
 Width=100
 Caption="Исходная папка"
 link(onClick,12011026:doBrowse,[])
}
Add(Browse,12011026,56,56)
{
 link(onBrowse,16308736:doText,[])
}
Add(Edit,8086166,98,14)
{
 Left=155
 Top=7
 Width=80
 Font=[MS Sans Serif,10,1,0,1]
 Text="*.sha"
 Point(Text)
}
Add(FilePart,14651460,196,105)
{
 NameWOExt=1
 link(onName,3601005:doString,[])
}
Add(Label,9067115,56,14)
{
 Left=5
 Top=10
 Width=146
 Height=17
 Caption="Маска выбираемых файлов"
}
Add(Edit,16308736,105,56)
{
 Left=110
 Top=30
 Width=330
 Text=""
 Point(doText)
 Point(Text)
}
Add(Button,14247948,210,63)
{
 Left=5
 Top=65
 Width=100
 Caption="Целевая папка"
 link(onClick,8644126:doBrowse,[])
}
Add(Edit,4656895,301,63)
{
 Left=110
 Top=65
 Width=330
 Text=""
 Point(doText)
 Point(Text)
}
Add(FileTools,2000193,294,161)
{
 link(FileName,15837227:Value,[(300,149)(153,149)])
 link(NewFileName,3601005:FString,[])
}
Add(Browse,8644126,259,63)
{
 NewStyle=0
 link(onBrowse,4656895:doText,[])
}
Add(Button,2060882,7,105)
{
 Left=5
 Top=110
 Caption="Copy"
 link(onClick,3747670:doSearch,[])
}
Add(FormatStr,3601005,301,112)
{
 Mask="%1/%2"
 Point(FString)
 link(onFString,2000193:doCopy,[(352,118)(352,203)(273,203)(273,174)])
 link(Str1,4656895:Text,[])
}
Add(Memory,15837227,147,105)
{
 link(onData,14651460:doPart,[])
}

Вот это посмотри, только мне переносить не нужно было - я проверял на COPY.
Перенесешь линию с Copy на Move - должно работать

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Гость

Ответов: 17029

Рейтинг: 0

#7: 2008-06-02 01:24:39 правка | ЛС | профиль | цитата

Редактировалось 3 раз(а), последний 2025-01-20 16:50:24

карма: 0

Ответов: 16884

Рейтинг: 1239

#8: 2008-06-02 01:38:58 ЛС | профиль | цитата

Гость, там я выше добавил код. Посмотри

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Гость

Ответов: 17029

Рейтинг: 0

#9: 2008-06-02 23:20:16 правка | ЛС | профиль | цитата

Редактировалось 3 раз(а), последний 2025-01-20 16:50:24

карма: 0

Ответов: 5446

Рейтинг: 323

#10: 2008-06-02 23:30:45 ЛС | профиль | цитата

rrrrrrr, у компонента FileTools есть точка doFileExists. Также на вкладке Система есть компонент Time. Удачи!

карма: 1

Разработчик

Ответов: 26305

Рейтинг: 2146

#11: 2008-06-02 23:37:11 ЛС | профиль | цитата

rrrrrrr писал(а):

добавляло к названию например дату

Ну вот тебе с датой



Add(MainForm,16177347,434,175)
{
 Left=20
 Top=105
 Width=454
 Height=173
}
Add(FileSearch,3747670,385,266)
{
 Ext=""
 link(onSearch,15837227:doValue,[])
 link(Ext,8086166:Text,[])
 link(Dir,16308736:Text,[])
}
Add(Button,8220690,294,217)
{
 Left=5
 Top=30
 Width=100
 Caption="Исходная папка"
 link(onClick,12011026:doBrowse,[])
}
Add(Browse,12011026,343,217)
{
 link(onBrowse,16308736:doText,[])
}
Add(Edit,8086166,385,175)
{
 Left=155
 Top=7
 Width=80
 Font=[MS Sans Serif,10,1,0,1]
 Text="*.sha"
}
Add(FilePart,14651460,483,266)
{
 ExtPoint=0
 link(onName,3601005:doString,[])
 link(onExt,12257562:doValue,[(540,286)(540,202)])
}
Add(Label,9067115,343,175)
{
 Left=5
 Top=10
 Width=146
 Height=17
 Caption="Маска выбираемых файлов"
}
Add(Edit,16308736,392,217)
{
 Left=110
 Top=30
 Width=330
 Text=""
}
Add(Button,14247948,497,217)
{
 Left=5
 Top=65
 Width=100
 Caption="Целевая папка"
 link(onClick,8644126:doBrowse,[])
}
Add(Edit,4656895,588,217)
{
 Left=110
 Top=65
 Width=330
 Text=""
}
Add(FileTools,2000193,581,322)
{
 link(FileName,15837227:Value,[(587,309)(440,309)])
 link(NewFileName,3601005:FString,[])
}
Add(Browse,8644126,546,217)
{
 NewStyle=0
 link(onBrowse,4656895:doText,[])
}
Add(Button,2060882,294,266)
{
 Left=5
 Top=110
 Caption="Copy"
 link(onClick,3747670:doSearch,[])
}
Add(FormatStr,3601005,588,273)
{
 DataCount=4
 Mask="%1/%2_%3%4"
 Point(FString)
 link(onFString,2000193:doCopy,[(639,279)(639,364)(560,364)(560,335)])
 link(Str1,4656895:Text,[])
 link(Str3,16426918:FormatTime,[(608,261)(629,261)])
 link(Str4,12257562:Value,[(615,265)(671,265)])
}
Add(Memory,15837227,434,266)
{
 link(onData,14651460:doPart,[])
}
Add(Time,16426918,623,217)
{
 Format="DMY"
}
Add(Memory,12257562,665,196)
{
}

------------ Дoбавленo:

iarspider, чел еще слишком начинающий, поди в компонентах потеряется. Пусть еще немного подучится на примерах

карма: 22

Ответов: 16884

Рейтинг: 1239

#12: 2008-06-03 10:11:48 ЛС | профиль | цитата

nesco писал(а):

поди в компонентах потеряется

iarspider действует по принципу

Лучший способ научить человека плавать - бросить его в глубокую воду

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 5446

Рейтинг: 323

#13: 2008-06-03 11:20:50 ЛС | профиль | цитата

Tad, не совсем так:

Лучший способ научиться программировать - программировать самому.

карма: 1

Гость

Ответов: 17029

Рейтинг: 0

#14: 2008-06-03 21:02:49 правка | ЛС | профиль | цитата

Редактировалось 3 раз(а), последний 2025-01-20 16:50:24

карма: 0

Гость

Ответов: 17029

Рейтинг: 0

#15: 2008-06-03 22:17:58 правка | ЛС | профиль | цитата

Редактировалось 3 раз(а), последний 2025-01-20 16:50:24

карма: 0

Форумы Помощь по пакетувозникшие вопросы... ← Ctrl12 3 4 5Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)