Вверх ↑
Ответов: 793
Рейтинг: 168
#1: 2023-12-09 07:49:34 ЛС | профиль | цитата
Пример использования целого числа вместо доменного имени в адресной строке.

Add(MainForm,2953706,154,105)
{
Height=162
Caption="Domain name to integer"
link(onCreate,3095644:doEvent1,[])
}
Add(Host,1760141,266,161)
{
link(onIPByHost,3196710:doEvent1,[])
link(HostName,8865534:Var2,[])
}
Add(VisualStrings,7962421,273,56)
{
Lines=#15:forum.hiasm.com|
Width=88
}
Add(Hub,3196710,315,168)
{
link(onEvent1,3045089:doStrCatDlm,[])
link(onEvent2,5258912:doEnum,[(340,181)(340,209)(144,209)(144,223)])
}
Add(ConvertorEx,3409500,210,217)
{
Mode=6
link(onResult,2271008:doValue,[])
}
Add(Str_Enum,5258912,154,217)
{
Delimiter="."
link(onEnum,3409500:doConvert,[])
link(onEndEnum,5651232:doString,[(200,230)(200,272)])
}
Add(MemFIFO,2271008,266,217)
{
Count=4
}
Add(FormatStr,5651232,266,266)
{
DataCount=4
Mask="%4%3%2%1 "
link(onFString,14063332:doWork,[])
link(Str1,2271008:Value1,[])
link(Str2,2271008:Value2,[])
link(Str3,2271008:Value3,[])
link(Str4,2271008:Value4,[])
}
Add(VBJScript,14063332,322,266)
{
WorkPoints=#6:doWork|
EventPoints=#7:onEvent|0:|
Language=1
Script=#27:function doWork(data,index)|5: { |36: sys.onEvent(parseInt(data,16));|5: }|5: |
UseName=0
link(onEvent,9409233:doStrCatDlm,[])
}
Add(StrCatDelim,3045089,378,168)
{
Str1="https://"
Str2="/forum/0"
Point(Delimiter)
link(onStrCatDlm,6274648:doText,[])
}
Add(StrCatDelim,9409233,378,266)
{
Str1="https://"
Str2="/forum/0"
Point(Delimiter)
link(onStrCatDlm,1776293:doText,[])
}
Add(WinExec,10475682,504,112)
{
}
Add(Label,14772331,434,119)
{
Left=20
Top=15
Height=20
Font=[MS Sans Serif,12,0,-16777203,1]
Underline=0
CaptionOnClick=0
link(onClick,15332757:doWork2,[])
}
Add(Label,6274648,434,168)
{
Left=20
Top=45
Height=20
Font=[MS Sans Serif,12,0,-16777203,1]
Underline=0
CaptionOnClick=0
link(onClick,740295:doWork2,[])
}
Add(Label,1776293,434,266)
{
Left=20
Top=75
Height=20
Font=[MS Sans Serif,12,0,-16777203,1]
Underline=0
CaptionOnClick=0
link(onClick,740295:doWork3,[(487,272)])
}
Add(Hub,3095644,196,119)
{
link(onEvent1,12016116:doStrCatDlm,[])
link(onEvent2,1760141:doIPByHost,[(221,132)(221,174)])
}
Add(StrCatDelim,12016116,378,119)
{
Str1="https://"
Str2="/forum/0"
Point(Delimiter)
link(onStrCatDlm,14772331:doText,[])
link(Delimiter,8865534:Var3,[(398,103)])
}
Add(GetDataEx,8865534,273,98)
{
link(Data,7962421:Text,[])
}
Add(HubEx,15332757,483,119)
{
link(onEvent,10475682:doShellExec,[])
}
Add(HubEx,740295,483,168)
{
Angle=3
link(onEvent,15332757:doWork3,[])
}


--- Добавлено в 2023-12-09 07:52:38

На работе попросили сделать программу для экспорта данных из большого количества pdf документов в один excel файл.
Сделал небольшой пример с файлом, скаченным из интернета. Для работы примера на компьютере должен быть установлен microsoft office 2019 или microsoft office 365.

https://forum.hiasm.com/getfile/39646
карма: 16

0
файлы: 1pdf parser.zip [172.8KB] [611]
Редактировалось 1 раз(а), последний 2023-12-09 07:52:38