Сократитель ссылок используя API (возможно?)

Форумы Помощь по пакетуСократитель ссылок используя API (возможно?) ← Ctrl12Ctrl →

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

Ответов: 9

Рейтинг: 0

#1: 2023-04-11 01:27:56 ЛС | профиль | цитата

Здравствуйте. У меня такая задача:
К примеру есть сайт для сокращения ссылок https://linksly.co
Там предоставляют API для быстрого создания сокращенной ссылки.

https://linksly.co/st?api=ebe9fdbf04176bcb0a7d727e9c8857f8da8b5deb&url=

Как это работает? Если после знака равно поставить свою ссылку

https://linksly.co/st?api=ebe9fdbf04176bcb0a7d727e9c8857f8da8b5deb&url=https://forum.hiasm.com

и все это открыть в браузере, произойдет сокращение ссылки.
В данном примере ссылка https://forum.hiasm.com сократиться на https://linksly.co/NDb0pBvw

Вопрос: как создать программу, чтобы она брала из txt файла список ссылок и сокращала их. А затем в отдельный файл сохраняла результат. Например в файл csv, чтобы в одной колонке были начальные ссылки, а в другой сокращенные. Также думаю, что надо будет сделать возможность указывать интервал в секундах между обработкой каждой ссылки, иначе сервер не даст возможности очень быстро сокращать ссылки. Так же важно, чтобы программа не пропускала ссылки, но последовательно сокращала все имеющиеся в списке ссылки, не перемешивая строки и последовательность. То есть, чтобы в файле с результатом сохранилась первичная последовательность ссылок.

Также в документации предоставлена еще такая информация, возможно это будет полезным:
Using the API in PHP
To use the API in your PHP application, you need to send a GET request via file_get_contents or cURL. Please check the below sample examples using file_get_contents

Using JSON Response

$long_url = urlencode('yourdestinationlink.com');
$api_token = 'ebe9fdbf04176bcb0a7d727e9c8857f8da8b5deb';
$api_url = "https://linksly.co/api?api={$api_token}&url={$long_url}&alias=CustomAlias";
$result = @json_decode(file_get_contents($api_url),TRUE);
if($result["status"] === 'error') {
echo $result["message"];
} else {
echo $result["shortenedUrl"];
}

Using Plain Text Response

$long_url = urlencode('yourdestinationlink.com');
$api_token = 'ebe9fdbf04176bcb0a7d727e9c8857f8da8b5deb';
$api_url = "https://linksly.co/api?api={$api_token}&url={$long_url}&alias=CustomAlias&format=text";
$result = @file_get_contents($api_url);
if( $result ){
echo $result;
}

Возможно ли в принципе такое сделать?
Буду рад любой помощи!

Редактировалось 18 раз(а), последний 2023-04-11 02:23:45

карма: 0

Google vip	#1.1контекстная реклама от партнеров

Ответов: 685

Рейтинг: 142

#2: 2023-04-11 19:36:25 ЛС | профиль | цитата

georgmann писал(а):

Возможно ли в принципе такое сделать?

Конечно.


Add(MainForm,2953706,147,154)
{
 Width=477
 link(onCreate,13695360:doString,[])
}
Add(HTTP_Get,16243313,252,168)
{
 link(onDownload,13978849:doConvert,[])
}
Add(StreamConvertor,13978849,308,175)
{
 Mode=6
 link(onResult,5984309:doWork,[])
}
Add(FormatStr,13695360,203,168)
{
 DataCount=1
 Mask="https://linksly.co/api?api=ebe9fdbf04176bcb0a7d727e9c8857f8da8b5deb&url=%1"
 link(onFString,16243313:doDownload,[])
 link(Str1,3347710:Text,[])
}
Add(VisualStrings,3347710,203,112)
{
 Lines=#35:https://forum.hiasm.com/topic/68217|
 Width=221
}
Add(Label,2260200,406,175)
{
 Width=461
 Align=5
 Font=[MS Sans Serif,23,0,0,1]
 Caption=""
 ColorHover=16711680
 Underline=0
 link(onClick,10724698:doPutText,[])
}
Add(VBJScript,5984309,357,175)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|0:|
 Language=1
 Script=#27:function doWork(data,index)|9:		 { 	   |37:		   eval('var result = '+data);		   |48:		   sys.onEvent(result.shortenedUrl);		   		   |5:		 } |3:		 |
 UseName=0
 link(onEvent,2260200:doText,[])
}
Add(VisualStrings,14478949,203,49)
{
 Lines=#23:https://forum.hiasm.com|
 Width=165
}
Add(Clipboard,10724698,497,175)
{
 Point(PutText)
 link(PutText,2260200:Caption,[(503,166)(489,166)(489,215)(412,215)])
}

карма: 15

Ответов: 9

Рейтинг: 0

#3: 2023-04-11 23:48:26 ЛС | профиль | цитата

Gunta писал(а):

Конечно.

Спасибо большое за формулу. Вы наверное здесь предоставили общий принцип работы. Для меня HiAsm - это вообще что-то новое. Чувствую, что мою задачу здесь реализовать можно, но пока не понимаю как.
Нашел вашу формулу для открытия ссылок в браузере:

Add(MainForm,3824534,406,98)
{
 Width=880
 Height=526
}
Add(Button,8467833,574,168)
{
 Left=5
 Top=10
 Width=125
 Caption="Открыть список"
 link(onClick,4767590:doExecute,[])
}
Add(CheckBox,10547583,630,217)
{
 Left=10
 Top=70
 Width=120
 Caption="Случайный порядок"
}
Add(Edit,7065250,518,175)
{
 Left=65
 Top=40
 Width=25
 Text="5"
 DataType=2
 ClearAfterEnter=1
 link(onEnter,5122062:doEvent1,[(563,188)(563,165)(452,165)(452,230)])
}
Add(Label,10823011,469,98)
{
 Left=10
 Top=45
 Width=53
 Height=17
 Caption="Интервал"
}
Add(Label,5324941,518,98)
{
 Left=95
 Top=45
 Width=25
 Height=17
 Caption="сек."
}
Add(Button,15230804,413,231)
{
 Left=5
 Top=100
 Width=125
 Caption="Начать выборку"
 link(onClick,5122062:doEvent2,[])
}
Add(ListBox,9901049,756,140)
{
 Left=20
 Top=175
 Width=130
 Height=305
 Strings=#5:ya.ru10:google.com|9:hiasm.com|
 DataType=1
 Point(doLoad)
 Point(doSelect)
 Point(onSelect)
 Point(EndIdx)
 link(onSelect,1507637:doNavigate,[])
}
Add(ODialog,4767590,630,168)
{
 Filter="Текстовый документ|*.txt"
 link(onExecute,13127934:doEvent1,[])
}
Add(Hub,13127934,679,168)
{
 link(onEvent1,9901049:doLoad,[])
 link(onEvent2,2134394:doData,[(704,181)(704,237)])
}
Add(DoData,2134394,777,231)
{
 link(onEventData,542141:doMax,[])
 link(Data,7449360:Var2,[])
}
Add(Button,11849292,413,273)
{
 Left=5
 Top=125
 Width=125
 Caption="Стоп"
 link(onClick,15352547:doStop,[])
}
Add(WebBrowser,1507637,840,154)
{
 Left=164
 Width=700
 Height=487
 Align=3
 URL=""
}
Add(Timer,15352547,574,266)
{
 Interval=0
 Enable=1
 Point(doInterval)
 link(onTimer,1620092:doEvent,[])
}
Add(Hub,5122062,462,224)
{
 InCount=2
 link(onEvent1,8356632:doOperation,[])
 link(onEvent2,15352547:doTimer,[(501,237)(501,272)])
}
Add(CounterEx,542141,847,224)
{
 Max=2
 Default=-1
 Point(doMax)
 Point(doReset)
 Point(onThroughMax)
 link(onNext,9718124:doWork1,[(893,230)(893,279)])
 link(onThroughMax,542141:doReset,[(886,237)(886,265)(837,265)(837,244)])
}
Add(IndexToChanel,1620092,630,266)
{
 Point(Index)
 link(onEvent1,542141:doNext,[(828,272)(828,230)])
 link(onEvent2,12809008:doRandom,[])
 link(Index,10547583:Checked,[])
}
Add(Math,8356632,511,224)
{
 OpType=2
 Op1=1000
 ResultType=0
 link(onResult,15352547:doInterval,[(550,230)(550,286)])
 link(Op2,7065250:Text,[])
}
Add(Random,12809008,686,273)
{
 Max=3
 Point(Max)
 link(onRandom,9718124:doWork2,[])
 link(Max,7449360:Var1,[(692,215)])
}
Add(GetDataEx,7449360,777,210)
{
 link(Data,9901049:EndIdx,[])
}
Add(HubEx,9718124,735,273)
{
 Angle=3
 link(onEvent,9901049:doSelect,[(739,181)])
}

В ней как раз есть функция открытия списка ссылок из файла. Наверное теперь все это нужно совместить, правильно? Или я ошибаюсь?

Редактировалось 7 раз(а), последний 2023-04-11 23:51:34

карма: 0

Ответов: 685

Рейтинг: 142

#4: 2023-04-12 04:25:44 ЛС | профиль | цитата

georgmann писал(а):

Для меня HiAsm - это вообще что-то новое. Чувствую, что мою задачу здесь реализовать можно, но пока не понимаю как.

Вышли пример txt файла со списком ссылок. И пример того что ты хочешь получить.

карма: 15

Ответов: 685

Рейтинг: 142

#5: 2023-04-12 14:19:50 ЛС | профиль | цитата

georgmann, Вот схема, проверяй.


Add(MainForm,7670060,70,28)
{
 Width=477
}
Add(MST_ArrayRows,5429603,525,77)
{
 MSTControl="asd"
}
Add(MTStrTbl,6542947,133,28)
{
 Left=405
 Top=210
 Align=5
 Name="asd"
 Columns=#8:long_url|12:shortenedUrl|
}
Add(MST_Load,11685183,238,119)
{
 ColNameHeader=1
 MSTControl="asd"
}
Add(IndexToChanel,8532413,126,119)
{
 Count=3
 link(onEvent1,13303500:doExecute,[])
 link(onEvent2,2686662:doData,[(179,132)(179,167)])
 link(onEvent3,3379452:doExecute,[(172,139)(172,209)])
}
Add(ODialog,13303500,189,119)
{
 link(onExecute,11685183:doLoad,[])
}
Add(SDialog,3379452,189,203)
{
 link(onExecute,184413:doSave,[])
}
Add(MST_Save,184413,238,203)
{
 SaveColumn=1
 SaveColProp=1
 MSTControl="asd"
 link(onSave,9772385:doClear,[])
}
Add(MST_ColAction,5297033,987,168)
{
 Action=9
 Index=-2
 MSTControl="asd"
}
Add(CounterEx,8899381,987,238)
{
 Max=1000
 Point(doReset)
 link(onNext,3786934:doWork3,[(1026,244)(1026,230)(368,230)])
}
Add(If_else,5514474,420,161)
{
 Type=4
 link(onTrue,1025522:doValue,[])
 link(Op1,5429603:EndIdx,[(426,152)(545,152)])
}
Add(DoData,2686662,189,161)
{
 Data=Integer(0)
 link(onEventData,3786934:doWork2,[])
}
Add(MT_MTArrayRW,7985455,525,161)
{
 link(onRead,9040420:doSeparateMT,[])
 link(Array,5429603:Strings,[])
}
Add(MenuEx,8319746,49,112)
{
 Menu=#16:Загрузить Список|10:Обработать|9:Сохранить|
 Bitmaps=[]
 Point(doEnablIdx)
 link(MenuItemIdx,2470131:doEvent1,[])
}
Add(Hub,2470131,91,112)
{
 link(onEvent1,1901754:doWork1,[(116,118)(116,104)(39,104)])
 link(onEvent2,8532413:doEvent,[])
}
Add(Hub,2549451,364,245)
{
 OutCount=5
 link(onEvent1,8899381:doReset,[])
 link(onEvent3,14204392:doWork1,[])
 link(onEvent4,14204392:doWork2,[])
 link(onEvent5,14204392:doWork3,[])
}
Add(HubEx,1901754,35,112)
{
 link(onEvent,8319746:doEnablIdx,[])
}
Add(ChanelToIndex,14204392,399,259)
{
 Count=3
 link(onIndex,1901754:doWork3,[(444,265)(444,303)(39,303)])
}
Add(MST_Clear,9772385,287,203)
{
 MSTControl="asd"
 link(onChange,2549451:doEvent1,[(354,209)(354,251)])
}
Add(MST_RowAction,791201,896,168)
{
 Action=2
 MSTControl="asd"
 link(onChange,1696207:doEvent1,[])
}
Add(MT_MultiData,9040420,574,161)
{
 Count=1
 link(onData1,4522093:doValue,[])
}
Add(HTTP_Get,12325246,721,161)
{
 link(onDownload,16204259:doConvert,[])
}
Add(StreamConvertor,16204259,763,168)
{
 Mode=6
 link(onResult,6483062:doAdd,[])
}
Add(FormatStr,10659343,672,161)
{
 DataCount=1
 Mask="https://linksly.co/api?api=ebe9fdbf04176bcb0a7d727e9c8857f8da8b5deb&url=%1&format=text"
 link(onFString,12325246:doDownload,[])
}
Add(Memory,1025522,476,161)
{
 link(onData,7985455:doRead,[])
}
Add(MT_AddData,6483062,840,168)
{
 Count=3
 InputMT=3
 link(onAdd,791201:doRowAction,[])
 link(Data1,1025522:Value,[(846,159)(832,159)(832,215)(482,215)])
 link(Data2,4522093:Value,[(853,152)(822,152)(822,206)(629,206)])
}
Add(Memory,4522093,623,161)
{
 link(onData,10659343:doString,[])
}
Add(Hub,1696207,945,168)
{
 link(onEvent1,5297033:doColAction,[])
 link(onEvent2,8899381:doNext,[(977,181)(977,244)])
}
Add(HubEx,3786934,364,161)
{
 link(onEvent,5514474:doCompare,[])
}

карма: 15

Голосовали: georgmann

Ответов: 9

Рейтинг: 0

#6: 2023-04-12 22:17:57 ЛС | профиль | цитата

Gunta писал(а):

georgmann, Вот схема, проверяй.

Ух ты! Просто шикарно! А я только собрался ответить. Схема работает, но если в списке десятки или сотни ссылок, то процесс зависает от частоты запросов. Думаю, здесь обязательно нужно добавить возможность устанавливать задержку в ms - например на панели инструментов сделать окно, куда можно вставить число, например (1000) для интервала ожидания в 1 секунду между каждой ссылкой.
Сохранение файла реализовано отлично - точка с запятой между ссылками - это то, что надо!

Не сочтите за наглость, но хочу попросить вас прикрутить еще несколько необходимых функций.
Пожалуйста добавьте справа от кнопки Загрузить Список кнопку Очистить Список. Если по ошибке загрузить не тот список, то приходится или перезапускать приложение, или выполнять сохранение, чтобы остальные кнопки снова становились активными. И желательно, чтобы программа спрашивала подтверждение об очистке. Также было бы удобно, чтобы была кнопка остановки процесса, после нажатия которой, процесс сокращения останавливается и все кнопки снова активны.

И если это возможно, пожалуйста добавьте счетчик количества всех и обработанных ссылок. Например на той же панели инструментов (или там, где это возможно) можно было бы добавить надпись Всего/Обработано и справа от нее счетчик, который отображает соответственно два числа, например 20/7 - то есть загружено 20 ссылок, а обработано 7. Если список вовсе не загружен, на счетчике отображается 0/0.
И вообще я начинаю понимать, что среда HiAsm крутая вещь. Здесь столько всего! Есть где ковыряться.

Редактировалось 11 раз(а), последний 2023-04-13 10:57:14

карма: 0

Ответов: 8886

Рейтинг: 823

#7: 2023-04-12 22:35:31 ЛС | профиль | цитата

Gunta, "Взялся за гуж, не говори, что не дюж"!

карма: 19

Ответов: 9

Рейтинг: 0

#8: 2023-04-13 12:32:23 ЛС | профиль | цитата

georgmann писал(а):

Gunta писал(а): georgmann, Вот схема, проверяй.
Не сочтите за наглость, но хочу попросить вас прикрутить еще несколько необходимых функций.

Так, кнопку Очистить и Остановить я смог сам добавить! Вроде работает! Также сделал, чтобы кнопки всегда были активными - меня так больше устраивает. Проверьте пожалуйста:

Add(MainForm,7670060,700,588)
{
 Left=100
 Top=100
 Width=1000
 Height=1000
 Caption="Shortener"
 Point(doHeight)
 Point(doWidth)
}
Add(MST_ArrayRows,5429603,1155,637)
{
 MSTControl="asd"
}
Add(MTStrTbl,6542947,763,588)
{
 Width=459
 Height=255
 Align=5
 Name="asd"
 Columns=#8:long_url|12:shortenedUrl|
 ColumnWidth=400
}
Add(MST_Load,11685183,868,679)
{
 ColNameHeader=1
 MSTControl="asd"
}
Add(IndexToChanel,8532413,756,679)
{
 Count=5
 link(onEvent1,13303500:doExecute,[])
 link(onEvent2,2686662:doData,[(809,692)(809,727)])
 link(onEvent3,3379452:doExecute,[(802,699)(802,769)])
 link(onEvent4,1497313:doEvent2,[(795,706)(795,832)])
 link(onEvent5,12325246:doStop,[(788,890)(1070,888)(1343,888)(1343,734)])
}
Add(ODialog,13303500,819,679)
{
 Filter="All Files|*.*"
 Title="Открыть"
 FileName=""
 link(onExecute,11685183:doLoad,[])
}
Add(SDialog,3379452,819,763)
{
 Filter="csv|*.csv"
 Title="Сохранить"
 FileName="out_links.csv"
 link(onExecute,184413:doSave,[])
}
Add(MST_Save,184413,868,763)
{
 SaveColumn=1
 SaveColProp=1
 MSTControl="asd"
 link(onSave,1497313:doEvent1,[(902,769)(902,825)])
}
Add(MST_ColAction,5297033,1617,728)
{
 Action=9
 Index=-2
 MSTControl="asd"
}
Add(CounterEx,8899381,1617,798)
{
 Max=1000
 Point(doReset)
 link(onNext,3786934:doWork3,[(1656,804)(1656,790)(998,790)])
}
Add(If_else,5514474,1050,721)
{
 Type=4
 link(onTrue,1025522:doValue,[])
 link(Op1,5429603:EndIdx,[(1056,712)(1175,712)])
}
Add(DoData,2686662,819,721)
{
 Data=Integer(0)
 link(onEventData,3786934:doWork2,[])
}
Add(MT_MTArrayRW,7985455,1155,721)
{
 link(onRead,9040420:doSeparateMT,[])
 link(Array,5429603:Strings,[])
}
Add(MenuEx,8319746,679,672)
{
 Menu=#7:Открыть|9:Сократить|9:Сохранить|8:Очистить|10:Остановить|
 Bitmaps=[]
 Point(doEnablIdx)
 link(MenuItemIdx,2470131:doEvent1,[])
}
Add(Hub,2470131,721,672)
{
 link(onEvent1,1901754:doWork1,[(746,678)(746,664)(669,664)])
 link(onEvent2,8532413:doEvent,[])
}
Add(Hub,2549451,994,805)
{
 OutCount=5
 link(onEvent1,8899381:doReset,[])
 link(onEvent3,14204392:doWork1,[])
 link(onEvent4,14204392:doWork2,[])
 link(onEvent5,14204392:doWork3,[])
}
Add(HubEx,1901754,665,672)
{
}
Add(ChanelToIndex,14204392,1029,819)
{
 Count=3
 link(onIndex,1901754:doWork3,[(1074,825)(1074,863)(669,863)])
}
Add(MST_Clear,9772385,917,763)
{
 MSTControl="asd"
 link(onChange,2549451:doEvent1,[(984,769)(984,811)])
}
Add(MST_RowAction,791201,1526,728)
{
 Action=2
 MSTControl="asd"
 link(onChange,1696207:doEvent1,[])
}
Add(MT_MultiData,9040420,1204,721)
{
 Count=1
 link(onData1,4522093:doValue,[])
}
Add(HTTP_Get,12325246,1351,721)
{
 link(onDownload,16204259:doConvert,[])
}
Add(StreamConvertor,16204259,1393,728)
{
 Mode=6
 link(onResult,6483062:doAdd,[])
}
Add(FormatStr,10659343,1302,721)
{
 DataCount=1
 Mask="https://linksly.co/api?api=ebe9fdbf04176bcb0a7d727e9c8857f8da8b5deb&url=%1&format=text"
 link(onFString,12325246:doDownload,[])
}
Add(Memory,1025522,1106,721)
{
 link(onData,7985455:doRead,[])
}
Add(MT_AddData,6483062,1470,728)
{
 Count=3
 InputMT=3
 link(onAdd,791201:doRowAction,[])
 link(Data1,1025522:Value,[(1476,719)(1462,719)(1462,775)(1112,775)])
 link(Data2,4522093:Value,[(1483,712)(1452,712)(1452,766)(1259,766)])
}
Add(Memory,4522093,1253,721)
{
 link(onData,10659343:doString,[])
}
Add(Hub,1696207,1575,728)
{
 link(onEvent1,5297033:doColAction,[])
 link(onEvent2,8899381:doNext,[(1607,741)(1607,804)])
}
Add(HubEx,3786934,994,721)
{
 link(onEvent,5514474:doCompare,[])
}
Add(Hub,1497313,903,819)
{
 InCount=2
 OutCount=1
 link(onEvent1,9772385:doClear,[(929,825)(929,797)(905,797)(905,769)])
}

Потихоньку начинаю разбираться.

Но все же пока не могу сделать счетчик количества всех и обработанных ссылок. Здесь вообще не соображаю, как такое делается.
А также не знаю как сделать задержку, а это очень важно! Если поможете, буду благодарен!

Редактировалось 7 раз(а), последний 2023-04-13 13:03:01

карма: 0

Ответов: 685

Рейтинг: 142

#9: 2023-04-13 13:52:28 ЛС | профиль | цитата

georgmann писал(а):

Схема работает, но если в списке десятки или сотни ссылок, то процесс зависает от частоты запросов. Думаю, здесь обязательно нужно добавить возможность устанавливать задержку в ms

Повторяю

Gunta писал(а):

Вышли пример txt файла со списком ссылок.


Add(MainForm,7670060,77,28)
{
 Width=477
 Caption="Сократитель ссылок используя API "
}
Add(MST_ArrayRows,5429603,469,196)
{
 MSTControl="asd"
}
Add(MTStrTbl,6542947,245,315)
{
 Top=40
 Width=461
 Height=221
 Align=5
 Name="asd"
 Columns=#8:long_url|12:shortenedUrl|
}
Add(MST_Load,11685183,252,84)
{
 ColNameHeader=1
 MSTControl="asd"
 link(onLoad,16128552:doEvent1,[(298,90)(298,118)])
}
Add(IndexToChanel,8532413,126,77)
{
 Count=7
 link(onEvent2,13303500:doExecute,[])
 link(onEvent3,5897095:doMessage,[(193,97)(193,125)])
 link(onEvent4,3379452:doExecute,[(186,104)(186,167)])
 link(onEvent6,5122062:doEvent1,[(179,118)(179,237)])
 link(onEvent7,15352547:doStop,[(172,125)(172,265)])
}
Add(ODialog,13303500,203,84)
{
 link(onExecute,11685183:doLoad,[])
}
Add(SDialog,3379452,203,161)
{
 link(onExecute,184413:doSave,[])
}
Add(MST_Save,184413,252,161)
{
 SaveColumn=1
 SaveColProp=1
 MSTControl="asd"
}
Add(MST_ColAction,5297033,889,259)
{
 Action=9
 Index=-2
 MSTControl="asd"
}
Add(CounterEx,8899381,420,252)
{
 Min=-1
 Max=1000
 Default=-1
 Point(doReset)
 Point(onSet)
 link(onNext,7985455:doRead,[])
}
Add(MT_MTArrayRW,7985455,469,252)
{
 link(onRead,9040420:doSeparateMT,[])
 link(Array,5429603:Strings,[])
}
Add(MenuEx,8319746,70,77)
{
 Menu=#13:Список ссылок|1:(|9:Загрузить|8:Очистить|9:Сохранить|1:)|10:Обработать|1:(|5:Старт|4:Стол|1:)|
 GutterLineOn=1
 Bitmaps=[]
 Point(doEnablIdx)
 link(MenuItemIdx,8532413:doEvent,[])
}
Add(MST_RowAction,791201,833,259)
{
 Action=2
 MSTControl="asd"
 link(onChange,5297033:doColAction,[])
}
Add(MT_MultiData,9040420,518,252)
{
 Count=1
 link(onData1,4522093:doValue,[])
}
Add(HTTP_Get,12325246,665,252)
{
 link(onDownload,16204259:doConvert,[])
 link(onStop,2520169:doEvent1,[(704,279)(704,356)])
}
Add(StreamConvertor,16204259,721,259)
{
 Mode=6
 link(onResult,6483062:doAdd,[])
}
Add(FormatStr,10659343,616,252)
{
 DataCount=1
 Mask="https://linksly.co/api?api=ebe9fdbf04176bcb0a7d727e9c8857f8da8b5deb&url=%1&format=text"
 link(onFString,12325246:doDownload,[])
}
Add(MT_AddData,6483062,784,259)
{
 Count=3
 InputMT=3
 link(onAdd,791201:doRowAction,[])
 link(Data1,13476879:Var1,[(790,250)(775,250)])
 link(Data2,4522093:Value,[(797,243)(766,243)(766,297)(573,297)])
}
Add(Memory,4522093,567,252)
{
 link(onData,10659343:doString,[])
}
Add(MST_Clear,14408073,252,119)
{
 MSTControl="asd"
 link(onChange,16128552:doEvent2,[])
}
Add(StatusBar,15598512,931,350)
{
 Panels=#14:Всего -  0=100|19:Обработано -  0=100|
}
Add(MT_Add,8229165,868,350)
{
 Data=Integer(0)
 link(onAdd,8673821:doWork2,[])
}
Add(StrCat,4937689,826,350)
{
 Str1="Всего - "
 link(onStrCat,8229165:doAdd,[])
 link(Str2,791201:Count,[])
}
Add(MT_Add,10775179,868,406)
{
 Data=Integer(1)
 link(onAdd,8673821:doWork3,[(914,412)])
}
Add(StrCat,16506296,826,406)
{
 Str1="Обработано - "
 link(onStrCat,10775179:doAdd,[])
 link(Str2,11331378:Result,[(839,397)(818,397)(818,446)(776,446)])
}
Add(HubEx,8673821,910,350)
{
 link(onEvent,15598512:doText,[])
}
Add(Hub,2520169,735,350)
{
 InCount=2
 link(onEvent1,4937689:doStrCat,[])
 link(onEvent2,11331378:doOperation,[(760,363)(760,412)])
}
Add(LineBreak,13506759,665,357)
{
 link(Out,2520169:doEvent2,[])
 Primary=[13555651,-280,-245]
}
Add(Label,7002827,126,28)
{
 Width=461
 Height=40
 Align=2
 Caption=""
 AutoSize=1
}
Add(Message,5897095,203,119)
{
 Message="Вы уверены?"
 Caption="Предупреждение"
 Type=2
 Point(onYES)
 link(onYES,14408073:doClear,[(242,132)(242,125)])
}
Add(Edit,7065250,252,203)
{
 Left=215
 Top=10
 Width=45
 Text="500"
 DataType=2
 ClearAfterEnter=1
}
Add(Timer,15352547,336,252)
{
 Interval=0
 Enable=1
 Point(doInterval)
 Point(doAutoStop)
 link(onTimer,8899381:doNext,[])
}
Add(Hub,5122062,196,231)
{
 OutCount=4
 link(onEvent1,16128552:doEvent3,[(291,237)(291,132)])
 link(onEvent2,2868133:doData,[(228,244)(228,279)])
 link(onEvent3,7089343:doData,[(221,251)(221,370)])
 link(onEvent4,15352547:doTimer,[])
}
Add(DoData,2868133,252,273)
{
 link(onEventData,15352547:doInterval,[(291,279)(291,272)])
 link(Data,7065250:Text,[])
}
Add(DoData,7089343,259,364)
{
 link(onEventData,15352547:doAutoStop,[(305,370)(305,279)])
 link(Data,6542947:Count,[])
}
Add(Hub,16128552,350,112)
{
 InCount=3
 link(onEvent1,13555651:In,[])
 link(onEvent2,8899381:doReset,[(375,125)(375,265)])
}
Add(Label,11383313,175,28)
{
 Left=15
 Top=10
 Width=198
 Height=20
 Font=[MS Sans Serif,10,0,0,1]
 Caption="Время между запросами в мс."
}
Add(Math,11331378,770,406)
{
 Op2=1
 Point(doClear)
 link(onResult,16506296:doStrCat,[])
 link(Op1,13476879:Var2,[])
}
Add(GetDataEx,13476879,770,301)
{
 Angle=3
 link(Data,8899381:Count,[(426,306)])
}

карма: 15

Ответов: 9

Рейтинг: 0

#10: 2023-04-13 15:28:08 ЛС | профиль | цитата

Gunta писал(а):

Gunta писал(а):
Вышли пример txt файла со списком ссылок.

Извиняюсь. Я подумал, что уже не надо. Вот собственно список ссылок:

https://forum.hiasm.com/topic/68217
https://forum.hiasm.com/topic/68216
https://forum.hiasm.com/topic/68215
https://forum.hiasm.com/topic/68214
https://forum.hiasm.com/topic/68213
https://forum.hiasm.com/topic/68212
https://forum.hiasm.com/topic/68211
https://forum.hiasm.com/topic/68210
https://forum.hiasm.com/topic/68209
https://forum.hiasm.com/topic/68208
https://forum.hiasm.com/topic/68207
https://forum.hiasm.com/topic/68206
https://forum.hiasm.com/topic/68205
https://forum.hiasm.com/topic/68204
https://forum.hiasm.com/topic/68203
https://forum.hiasm.com/topic/68202
https://forum.hiasm.com/topic/68201
https://forum.hiasm.com/topic/68200
https://forum.hiasm.com/topic/68199
https://forum.hiasm.com/topic/68198

Если нужно выслать файлом txt, не проблема. Только каким файлообменником лучше?

карма: 0

Ответов: 685

Рейтинг: 142

#11: 2023-04-13 16:06:38 ЛС | профиль | цитата

Последняя схема вроде проавильно работает.

--- Добавлено в 2023-04-13 16:06:58

Редактировалось 1 раз(а), последний 2023-04-13 16:06:58

карма: 15

файлы: 1

Сократитель ссылок.PNG [149.8KB] [420]

Голосовали:

georgmann

Ответов: 9

Рейтинг: 0

#12: 2023-04-13 16:25:40 ЛС | профиль | цитата

Gunta писал(а):

Последняя схема вроде правильно работает.

Дорогой друг, схема работает отлично! Огромнейшее вам спасибо!
Единственное, никак не могу найти, как изменить (расширить) размер поля StatusBar, где отображается результат Всего - 20 и Обработано - 20. Если ссылок много, то там где отображается обработано, трехзначное число уже не видно. Вроде бы все пересмотрел, но где же эти размеры устанавливаются, не пойму.
И еще вопрос: что это за значение Max=1000:

Add(CounterEx,8899381,644,616)
{
 Min=-1
 Max=1000
 Default=-1
 Point(doReset)
 Point(onSet)
 link(onNext,7985455:doRead,[])
}

Это что, максимальное количество ссылок, которые можно обработать?

Редактировалось 1 раз(а), последний 2023-04-13 16:27:16

карма: 0

Ответов: 685

Рейтинг: 142

#13: 2023-04-13 16:38:59 ЛС | профиль | цитата

georgmann писал(а):

Единственное, никак не могу найти, как изменить (расширить) размер поля StatusBar, где отображается результат Всего - 20 и Обработано - 20. Если ссылок много, то там где отображается обработано, трехзначное число уже не видно.

Замени на этот


Add(StatusBar,15598512,406,98)
{
 Panels=#14:Всего -  0=200|19:Обработано -  0=200|
}

georgmann писал(а):

И еще вопрос: что это за значение Max=1000:
Это что, максимальное количество ссылок, которые можно обработать?

Да, если нужно больше просто исправь на своё значение.

карма: 15

Голосовали: georgmann

Ответов: 9

Рейтинг: 0

#14: 2023-04-13 16:42:07 ЛС | профиль | цитата

Gunta писал(а):

Да, если нужно больше просто исправь на своё значение.

Благодарю!!!

Редактировалось 1 раз(а), последний 2023-04-13 16:42:18

карма: 0

Ответов: 9

Рейтинг: 0

#15: 2023-04-14 01:40:56 ЛС | профиль | цитата

Протестировав программу, обнаружил небольшой, но существенный баг.
Иногда по каким-то причинам (это не проблема самой программы, а сервера, который должен обрабатывать ссылки), не сокращенные ссылки не обрабатываются и получаются пропуски в колонке сокращенных ссылок. Так вот в этом случае происходит смещение результата. И после ряда пропусков это не соответствие увеличивается. В итоге сложно определить какая сокращенная ссылка соответствует не сокращенной.
Вопрос такой, можно ли каким-то образом решить данную проблему? Например чтобы программа при какой-либо заминке не продолжала процесс, а старалась выполнить сокращение той ссылки, на которой "задержалась". Возможно надо заставить программу проверять строку, в которой выводится результат и в случае отсутствия результата, возвращаться к последней обрабатываемой ссылке, чтобы повторить процесс заново. Или использовать другой, подходящий для решения данной проблемы, алгоритм работы. Даже если это повлияет на скорость работы программы! Здесь главное качество выполнения обработки ссылок!
Также получается, что и счетчик выдает не совсем верный результат обработанных ссылок.
Вот такая проблема.

Редактировалось 3 раз(а), последний 2023-04-14 02:02:57

карма: 0

Форумы Помощь по пакетуСократитель ссылок используя API (возможно?) ← Ctrl12Ctrl →


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