Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2012-12-07 10:48:30 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 15:16:42
карма: 0

0
Ответов: 1125
Рейтинг: 80
#2: 2012-12-07 11:42:23 ЛС | профиль | цитата
г. l☺l писал(а):
переименовывать файлы консолью

к примеру командой "ren" но...
По каким критериям нужно(производить поиск) составлять список файлов для переименования, по какому принципу назначать новое имя файлаов, вобщем нужны подробности.
карма: 2

0
Ответов: 5446
Рейтинг: 323
#3: 2012-12-07 11:48:20 ЛС | профиль | цитата
г. l☺l, связка из одного DirTools/FileTools, двух StrListов, ArrayRW и ArrayEnum способна - в простых случаях - заменить кучу DirTools-ов. Если переименование идёт не по спискам, то можно задействовать компоненты из вкладки "Строки".
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2012-12-07 18:23:37 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 15:16:43
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2012-12-29 16:08:39 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 15:16:43
карма: 0

0
Ответов: 4659
Рейтинг: 763
#6: 2012-12-29 16:19:20 ЛС | профиль | цитата

Add(Button,8908901,140,147)
{
Left=20
Top=20
link(onClick,9503171:doEvent1,[])
}
Add(Memo,3404531,665,140)
{
Left=20
Top=60
Width=350
Height=200
ScrollBars=3
}
Add(StrList,1637405,287,203)
{
Strings=#19:ping www.google.com|3:net|9:chkdsk /?|
}
Add(ArrayEnum,11976361,301,266)
{
link(onItem,8505441:doStrCat,[])
link(Array,1637405:Array,[])
}
Add(Hub,9503171,189,147)
{
link(onEvent1,15031193:doConsoleExec,[])
link(onEvent2,11976361:doEnum,[(273,160)(273,272)])
}
Add(WinExec,15031193,483,133)
{
FileName="cmd.exe"
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
Point(onConsoleError)
link(onConsoleResult,13869162:doWork2,[])
link(onConsoleError,13869162:doWork3,[(557,153)])
}
Add(HubEx,13869162,553,140)
{
link(onEvent,10287393:doCharset,[])
}
Add(Charset,10287393,602,140)
{
link(onCharset,3404531:doAdd,[])
}
Add(StrCat,8505441,357,266)
{
Str2="
"
link(onStrCat,15031193:doConsoleInput,[(436,272)(436,160)])
}

карма: 26

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2012-12-29 16:51:17 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 15:16:43
карма: 0

0
Ответов: 4659
Рейтинг: 763
#8: 2012-12-29 16:56:09 ЛС | профиль | цитата
Тот же метод: даешь пользователю поле ввода, он вводит ответ, нажимает Enter, ты по Enter берешь содержимое поля ввода, присоединяешь в конец "
" и подаешь на doConsoleInput.
карма: 26

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2012-12-29 17:03:17 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 15:16:43
карма: 0

0
Ответов: 4659
Рейтинг: 763
#10: 2012-12-29 17:09:28 ЛС | профиль | цитата
А что, в предоставленном примере пинги слала моя программа?
карма: 26

0
Гость
Ответов: 17029
Рейтинг: 0
#11: 2012-12-29 17:28:39 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 15:16:43
карма: 0

0
Ответов: 4659
Рейтинг: 763
#12: 2012-12-29 17:32:04 ЛС | профиль | цитата
1) WinExec>FileName=bla-bla-bla.bat
2) WinExec>doShellExec
карма: 26

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