HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуРабота с файлами в папке ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 287
Рейтинг: 5
#1: 2016-01-05 10:53:29 ЛС | профиль | цитата
Добрый день.Всех с праздником.Тут у меня нарисовалась проблемка не могу решить.Задача такая в папке находятся файлы Html и Php.Программа должна поочередно открыть файл преобразовать и сохранить с заменой в ту же папку без вопросов.Не хрена себе у меня запросы.Пока получилось накорябать только этоcode_36741.txtПонимаю что схема не гуд да и работает не совсем корректно
карма: 0

0
файлы: 1code_36741.txt [1.9KB] [276]
Ответов: 4631
Рейтинг: 749
#2: 2016-01-05 11:48:15 ЛС | профиль | цитата
code_36742.txt
карма: 26

1
файлы: 1code_36742.txt [3.4KB] [439]
Голосовали:Udokanec
Ответов: 287
Рейтинг: 5
#3: 2016-01-05 12:11:00 ЛС | профиль | цитата
Так все просто.Спасибо большое.Я думал что я многое не понимаю--я глубоко ошибался
карма: 0

0
Ответов: 287
Рейтинг: 5
#4: 2016-01-06 13:54:34 ЛС | профиль | цитата
Ребята подскажите пожалуйста как подключить светодиод.Он у меня загорается когда файлы уже загружены.а надо чтобы при успешном соединении.
Add(WinFTP,7587478,448,280)
{
 Host="ftp_udokan.netai.net"
 Username="a7066057"
 Password="A140168"
 Directory="./public_html"
 Point(onWrite)
 Point(onConnect)
 Point(onWriteProgress)
 Point(Host)
 Point(Username)
 Point(Password)
 link(RemoteName,5838296:Value,[])
 link(onConnect,7996377:doOn,[(506,307)(506,314)])
}
Add(Hub,9434331,406,280)
{
 OutCount=3
 link(onEvent1,7587478:doOpen,[])
 link(onEvent2,7587478:doWriteFile,[(434,293)(434,307)])
}
Add(FilePartElm,10778184,406,217)
{
 link(onPart,5838296:doValue,[])
}
Add(Memory,5838296,455,217)
{
}
Add(LED,7996377,525,294)
{
 Left=525
 Top=290
}
карма: 0

0
Ответов: 902
Рейтинг: 27
#5: 2016-01-06 14:04:59 ЛС | профиль | цитата
Может так?
code_36749.txt
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_36749.txt [767B] [250]
Ответов: 287
Рейтинг: 5
#6: 2016-01-06 14:25:24 ЛС | профиль | цитата
juk Нет так то же после загрузки загорается
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#7: 2016-01-06 16:04:52 ЛС | профиль | цитата
code_36750.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_36750.txt [629B] [311]
Ответов: 287
Рейтинг: 5
#8: 2016-01-06 16:56:11 ЛС | профиль | цитата
Tad Спасибо.Немного не то.Горит после закачки.Да ну его в баню этот светодиод
карма: 0

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#9: 2016-01-06 17:16:03 ЛС | профиль | цитата
Udokanec писал(а):
Да ну его в баню этот светодиод

Зачем же так сразу. Надо просто отложить событие doWriteFile, к примеру, таймером. Время отложенного запуска команды записи можно немного увеличить.

Add(MainForm,2953706,238,140)
{
 Width=404
 Height=246
}
Add(WinFTP,7587478,378,217)
{
 Host="ftp_udokan.netai.net"
 Username="a7066057"
 Password="A140168"
 Directory="./public_html"
 Point(onWrite)
 Point(onConnect)
 Point(onWriteProgress)
 Point(Host)
 Point(Username)
 Point(Password)
 link(RemoteName,5838296:Value,[])
 link(onConnect,7996377:doOn,[(436,244)(436,251)])
}
Add(Hub,9434331,273,217)
{
 OutCount=3
 link(onEvent1,7587478:doOpen,[])
 link(onEvent2,8716268:doTimer,[])
}
Add(FilePartElm,10778184,336,154)
{
 link(onPart,5838296:doValue,[])
}
Add(Memory,5838296,385,154)
{
}
Add(LED,7996377,455,231)
{
 Left=60
 Top=50
}
Add(Timer,8716268,315,224)
{
 Interval=0
 Enable=1
 AutoStop=1
 link(onTimer,7587478:doWriteFile,[(368,230)(368,244)])
}
карма: 22

0
Ответов: 287
Рейтинг: 5
#10: 2016-01-06 18:48:35 ЛС | профиль | цитата
Да что это за день сегодня такой.nesco твой код code_36742.txt два дня работал и вдруг перестали перезаписываться файлы.Скопировал снова вставил в прогу опять работает.Голову сломал где косяк.
карма: 0

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#11: 2016-01-06 19:09:23 ЛС | профиль | цитата
Udokanec писал(а):
код code_36742.txt

Это не мой код, а код из второго поста от Netspirit-а
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#12: 2016-01-06 21:00:39 ЛС | профиль | цитата
Udokanec, если немного переделать code_36742.txt, то будет работать в любой день (даже а пятницу 13-го) и немного быстрее, а если убрать Memo, то вообще...
code_36753.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_36753.txt [3.2KB] [272]
Ответов: 287
Рейтинг: 5
#13: 2016-01-07 05:46:01 ЛС | профиль | цитата
nesco Извини уважаемый ошибся.Запарился совсем.Tad Сейчас проверим.
------------ Дoбавленo в 05.10:
[b]Tad[/b] Ну думал все сегодня пятница 13.Твоя схема 2 раза отработала и все аут.Но потом обнаружил свой косяк в подключении Hub.Почему так работает

Add(Replace,1283668,588,294)
{
 link(onReplace,3661319:doReplace,[])
 link(Sub_str,6298953:Value,[(601,227)(636,227)])
 link(Dest,14905986:Text,[(608,282)(636,282)])
}
Add(Replace,3661319,658,294)
{
 SubStr="<meta name="generator" content="Incomedia WebSite X5 Professional 11.0.2.13 - UNREGISTERED VERSION - www.websitex5.com" />"
 link(onReplace,7576923:doEvent1,[])
 link(Dest,4437191:Text,[])
}
Add(FileStream,13593382,434,287)
{
 link(onLoad,4445344:doConvert,[])
 link(FileName,1237800:getVar,[])
}
Add(Hub,1904592,539,287)
{
 OutCount=3
 link(onEvent1,13593382:doClose,[(563,293)(563,336)(420,336)(420,300)])
 link(onEvent2,1283668:doReplace,[])
 link(onEvent3,14044514:doCharset,[(571,307)(571,195)])
}
Add(StreamConvertor,4445344,483,287)
{
 Mode=6
 link(onResult,1904592:doEvent1,[])
}
Add(LineBreakEx,11614009,882,259)
{
 Caption="fn"
 Type=2
}
Add(FileStream,14525305,882,287)
{
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
 link(FileName,11614009:getVar,[])
}
Add(StreamConvertor,3924327,798,294)
{
 Mode=7
 link(onResult,14473367:doEvent1,[])
}
Add(Memo,7745330,756,336)
{
 Left=15
 Top=125
 Width=415
 Height=145
 ScrollBars=3
 link(Str,8856110:getVar,[(762,329)(755,329)])
}
Add(Hub,7576923,707,294)
{
 link(onEvent1,3924327:doConvert,[])
 link(onEvent2,7745330:doAdd,[(742,307)(742,342)])
}
Add(LineBreakEx,8856110,749,308)
{
 Caption="fn"
 Type=2
}
Add(FileTools,2400353,882,217)
{
 DelToRecycle=1
 link(FileName,10872257:getVar,[])
}
Add(LineBreakEx,10872257,882,189)
{
 Caption="fn"
 Type=2
}
Add(Hub,14473367,847,294)
{
 link(onEvent1,2400353:doDelete,[(873,300)(873,237)])
 link(onEvent2,14525305:doCopyFromStream,[])
}
Add(LineBreakEx,1237800,434,252)
{
 Caption="fn"
 Type=2
}
Add(Edit,11392414,588,140)
{
 Left=15
 Top=95
 Width=295
 Text=" - WEBSITE X5 UNREGISTERED VERSION - Мои русификаторы"
}
Add(Charset,14044514,588,189)
{
 Type=6
 link(onCharset,6298953:doValue,[])
 link(Text,11392414:Text,[])
}
Add(Memory,6298953,630,189)
{
}
Add(Edit,14905986,630,245)
{
 Left=455
 Top=330
 Width=170
 Visible=1
 Text=" "
}
Add(Edit,4437191,672,245)
{
 Left=475
 Top=250
 Width=170
 Visible=1
 Text=" "
}

а так нет
Add(Replace,1283668,588,294)
{
 link(onReplace,3661319:doReplace,[])
 link(Sub_str,6298953:Value,[(601,227)(636,227)])
 link(Dest,14905986:Text,[(608,282)(636,282)])
}
Add(Replace,3661319,658,294)
{
 SubStr="<meta name="generator" content="Incomedia WebSite X5 Professional 11.0.2.13 - UNREGISTERED VERSION - www.websitex5.com" />"
 link(onReplace,7576923:doEvent1,[])
 link(Dest,4437191:Text,[])
}
Add(FileStream,13593382,434,287)
{
 link(onLoad,4445344:doConvert,[])
 link(FileName,1237800:getVar,[])
}
Add(Hub,1904592,539,287)
{
 OutCount=3
 link(onEvent1,14044514:doCharset,[(571,293)(571,195)])
 link(onEvent2,1283668:doReplace,[])
 link(onEvent3,13593382:doClose,[(565,307)(565,326)(424,326)(424,300)])
}
Add(StreamConvertor,4445344,483,287)
{
 Mode=6
 link(onResult,1904592:doEvent1,[])
}
Add(LineBreakEx,11614009,882,259)
{
 Caption="fn"
 Type=2
}
Add(FileStream,14525305,882,287)
{
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
 link(FileName,11614009:getVar,[])
}
Add(StreamConvertor,3924327,798,294)
{
 Mode=7
 link(onResult,14473367:doEvent1,[])
}
Add(Memo,7745330,756,336)
{
 Left=15
 Top=125
 Width=415
 Height=145
 ScrollBars=3
 link(Str,8856110:getVar,[(762,329)(755,329)])
}
Add(Hub,7576923,707,294)
{
 link(onEvent1,3924327:doConvert,[])
 link(onEvent2,7745330:doAdd,[(742,307)(742,342)])
}
Add(LineBreakEx,8856110,749,308)
{
 Caption="fn"
 Type=2
}
Add(FileTools,2400353,882,217)
{
 DelToRecycle=1
 link(FileName,10872257:getVar,[])
}
Add(LineBreakEx,10872257,882,189)
{
 Caption="fn"
 Type=2
}
Add(Hub,14473367,847,294)
{
 link(onEvent1,2400353:doDelete,[(873,300)(873,237)])
 link(onEvent2,14525305:doCopyFromStream,[])
}
Add(LineBreakEx,1237800,434,252)
{
 Caption="fn"
 Type=2
}
Add(Edit,11392414,588,140)
{
 Left=15
 Top=95
 Width=295
 Text=" - WEBSITE X5 UNREGISTERED VERSION - Мои русификаторы"
}
Add(Charset,14044514,588,189)
{
 Type=6
 link(onCharset,6298953:doValue,[])
 link(Text,11392414:Text,[])
}
Add(Memory,6298953,630,189)
{
}
Add(Edit,14905986,630,245)
{
 Left=455
 Top=330
 Width=170
 Visible=1
 Text=" "
}
Add(Edit,4437191,672,245)
{
 Left=475
 Top=250
 Width=170
 Visible=1
 Text=" "
}
карма: 0

0
Ответов: 4631
Рейтинг: 749
#14: 2016-01-07 15:04:18 ЛС | профиль | цитата
Udokanec, логика такая:
1) открыть файл для чтения
2) прочитать содержимое в память
3) закрыть открытый файл
4) выполнить обработку
5) удалить файл и создать заново

Если не выполнять п.3, то п.5 не выполнится: нельзя удалить/записать в уже открытый файл.
Во втором случае ты перенес п.3 в конец, что и приводило к этой ошибке.
карма: 26

0
Ответов: 287
Рейтинг: 5
#15: 2016-01-07 15:08:59 ЛС | профиль | цитата
Netspirit Вот спасибо а я думал что Hub типа развевителя
карма: 0

0
ФорумыПомощь по пакетуРабота с файлами в папке ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика