Вверх ↑
Этот топик читают: Гость
Ответов: 32
Рейтинг: 1
#1: 2013-06-09 15:40:04 ЛС | профиль | цитата
Делаю мини прогу, которая (в крации) - скачивает файл (List1.txt) из него построчно вытаскивает ссылки и по ним скачивает Файлы (Fail1.txt и т.д.) всё неплохо, но немогу вытащить строку с ссылкой.
Если кто знает помогите
I need help!
карма: 1

0
Ответов: 9906
Рейтинг: 351
#2: 2013-06-09 15:42:11 ЛС | профиль | цитата
Почему-то не отвечают
карма: 9

0
Ответов: 32
Рейтинг: 1
#3: 2013-06-09 17:33:35 ЛС | профиль | цитата
Galkov, а зачем забивать лишней инфой если вопрос только о strlist функции?
карма: 1

0
Ответов: 9906
Рейтинг: 351
#4: 2013-06-09 17:55:34 ЛС | профиль | цитата
Поэтому, мы Вам рекомендуем тщательно выполнить рекомендации по пп. 1-6...
Но можно этого и не делать...
Если Вас не интересует Результат ((c) Жванецкий)

карма: 9

0
Ответов: 32
Рейтинг: 1
#5: 2013-06-10 08:33:34 ЛС | профиль | цитата
подскажите как из strlist функции вытащить строку а не всё подрят

карма: 1

0
Ответов: 196
Рейтинг: 43
#6: 2013-06-10 08:53:55 ЛС | профиль | цитата
Ну так покажи свою схему, глядишь и подскажут. А то не совсем понятно что именно нужно.
------------ Дoбавленo в 08.53:
Типа этого что-ли?
Add(StrList,10048340,273,84)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,10124648:doGetString,[(317,97)(317,132)])
}
Add(StrList,10124648,329,84)
{
Strings=#17:http://file_1.txt|17:http://file_2.txt|17:http://file_3.txt|17:http://file_4.txt|17:http://file_5.txt|17:http://file_6.txt|17:http://file_7.txt|17:http://file_8.txt|17:http://file_9.txt|
Point(doGetString)
Point(onGetString)
link(onGetString,11773768:doText,[])
}
Add(Label,11773768,406,91)
{
Left=40
Top=20
Width=85
}
Add(Button,14636082,147,126)
{
Left=50
Top=60
link(onClick,9400024:doNext,[])
}
Add(CounterEx,9400024,210,126)
{
Max=9
link(onNext,10048340:doGetIndex,[])
}

Или там ссылки в перемешку с текстом?
карма: 2

0
Ответов: 32
Рейтинг: 1
#7: 2013-06-10 09:38:51 ЛС | профиль | цитата
вот что то типа схемы.
а как дальше не знаю

Add(MainForm,2953706,406,42)
{
Width=933
Height=593
PColor(onDeactivate,22015)
link(onDeactivate,15636224:doWork1,[(492,55)])
}
Add(Memo,15297897,546,203)
{
Left=135
Top=20
Width=280
Height=75
Name="блок 1"
ScrollBars=2
ReadOnly=0
}
Add(Button,5838427,308,133)
{
Left=5
Top=15
Width=100
Caption="Открыть"
link(onClick,11184954:doExecute,[])
}
Add(Button,10123464,308,168)
{
Left=5
Top=45
Width=100
Caption="Сохранить"
link(onClick,1155437:doExecute,[])
}
Add(SDialog,1155437,392,168)
{
link(onExecute,15297897:doSave,[(481,174)(481,244)])
}
Add(ODialog,11184954,392,133)
{
link(onExecute,15297897:doLoad,[(485,139)(485,237)])
}
Add(Memo,15099167,693,203)
{
Left=135
Top=105
Width=280
Name="блок 2"
ScrollBars=2
}
Add(Button,16728847,308,98)
{
Left=5
Top=75
Width=100
Caption="Очистить"
PColor(onClick,22015)
link(onClick,15636224:doWork2,[])
}
Add(HubEx,15636224,488,98)
{
Angle=1
PColor(onEvent,22015)
link(onEvent,15297897:doClear,[(492,216)])
}
Add(Button,1393162,308,259)
{
Left=5
Top=130
Width=125
Height=35
Caption="Переместить строку 2"
}


карма: 1

0
Ответов: 16884
Рейтинг: 1239
#8: 2013-06-10 09:49:38 ЛС | профиль | цитата
suslik-101, вверху страницы нажми Файлообмен и выложи свой файл (List1.txt)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 32
Рейтинг: 1
#9: 2013-06-10 10:36:11 ЛС | профиль | цитата
буду пробывать


карма: 1

0
Ответов: 9906
Рейтинг: 351
#10: 2013-06-10 10:41:19 ЛС | профиль | цитата
спасибо - это слишком много. Файла то нет
карма: 9

0
Ответов: 32
Рейтинг: 1
#11: 2013-06-10 10:43:52 ЛС | профиль | цитата
Galkov, а нафига вам файл?
вопрос то по конкретной функции а не по конкретному файлу!
карма: 1

0
Ответов: 9906
Рейтинг: 351
#12: 2013-06-10 10:49:33 ЛС | профиль | цитата
Нафиг не нужен.
Ни мне, ни всем остальным на форуме.

Если нет желания ответить на "I need help!"
карма: 9

0
Ответов: 196
Рейтинг: 43
#13: 2013-06-10 10:53:32 ЛС | профиль | цитата
А что файл какой-то секретный? Сейчас просто лето, телепаты в отпуске
Ну если там ссылки вперемешку с текстом то вот так можно.
code_31204.txt

карма: 2

1
Голосовали:suslik-101
Ответов: 32
Рейтинг: 1
#14: 2013-06-10 11:14:19 ЛС | профиль | цитата
halt, )) да я код дал? могу повторить)) а какой файл то хотите?))

карма: 1

0
Ответов: 196
Рейтинг: 43
#15: 2013-06-10 11:55:33 ЛС | профиль | цитата
Нужен файл с которого хочешь дёргать ссылки.Сам же написал List1.txt
------------ Дoбавленo в 11.55:
Я же тебе дал примерчик.Вот ещё один, так нагляднее.
Add(MainForm,2953706,49,91)
{
Width=588
}
Add(Button,14636082,105,142)
{
Left=105
Top=230
link(onClick,37223:doSearch,[])
}
Add(BlockFind,37223,168,142)
{
StartBlock="http"
EndBlock="txt"
link(onSearch,16177069:doAdd,[])
link(Text,10111112:Text,[(174,128)(173,128)])
}
Add(Memo,16177069,266,142)
{
Left=290
Top=10
Width=250
Height=200
}
Add(Memo,10111112,167,68)
{
Left=20
Top=10
Width=250
Height=200
Strings=#17:http://file_1.txt|13:это не ссылка|17:http://file_2.txt|8:это тоже|17:http://file_3.txt|5:и это|17:http://file_4.txt|11:и сдесь нет|17:http://file_5.txt|17:http://file_6.txt|17:http://file_7.txt|17:http://file_8.txt|17:http://file_9.txt|
}


карма: 2

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