Вверх ↑
Этот топик читают: Гость
Ответов: 249
Рейтинг: 4
#16: 2022-05-16 15:14:20 ЛС | профиль | цитата
проверил вин 10 та же ошибка (Runtime Error)
карма: 1

0
Ответов: 5227
Рейтинг: 587
#17: 2022-05-16 15:25:39 ЛС | профиль | цитата
так работать не будет, нужно дать время для инициализации OLE. Запусти через таймер

Add(MainForm,3929769,350,238)
{
Left=0
Top=0
Width=776
Height=300
Align=0
akLeft=0
akTop=0
akRight=1
akBottom=1
MarginLeft=0
MarginTop=0
MarginRight=0
MarginBottom=0
Margin=0
MaxWidth=0
MaxHeight=0
MinWidth=0
MinHeight=0
Color=-16777201
Font=[MS Sans Serif,8,0,0,1]
ParentFont=1
Visible=0
Enabled=0
Cursor=0
TabOrder=0
Ctl3D=1
WinStyle=0
Name=""
Hint=""
HintManager="(empty)"
ReBarCtrl="(empty)"
StrID=""
Layout="(empty)"
WidthScale=0
HeightScale=0
AlphaBlendValue=255
Caption="Form"
BorderStyle=2
WindowsState=0
Icon=[]
TaskBar=0
DragForm=1
KeyPreview=0
TransparentColor=16777215
Picture=[]
SavePosName=""
MouseCapture=1
ClientSize=1
Position=0
ShiftLeft=0
ShiftTop=0
TransparentManager="(empty)"
FormFastening="(empty)"
}
Add(StrList,1415467,441,168)
{
FileName=""
AddType=0
Strings=#1578:‹div aria-label="" ‹span class="role="button" tabindex="0" class="css-18t94o4 css-1dbjc4n r-1777fci r-bt1l66 r-1ny4l3l r-bztko3 r-lrvibr" data-testid=""›‹span class="css-901oao css-16my406 r-poiln3 r-bcqeeo r-qvutc0"›Follow‹/span›‹div dir="ltr" class="css-901oao r-1awozwy r-14j79pv r-6koalj r-1qd0xha r-a023e6 r-16dba41 r-1h0z5md r-rjixqe r-bcqeeo r-o7ynqc r-clp7b1 r-3s2u2q r-qvutc0" style=""›‹div class="css-1dbjc4n r-xoduu5"›‹div class="css-1dbjc4n r-1niwhzg r-sdzlij r-1p0dtai r-xoduu5 r-1d2f490 r-xf4iuw r-1ny4l3l r-u8s1d r-zchlnj r-ipm5af r-o7ynqc r-6416eg"›‹/div›‹svg viewBox="0 0 24 24" aria-hidden="true" class="r-4qtqp9 r-yyyyoo r-1xvli5t r-dnmrzs r-bnwqim r-1plcrui r-lrvibr r-1hdv0qi"›‹g›‹path d="M12 21.638h-.014C9.403 21.59 1.95 14.856 1.95 8.478c0-3.064 2.525-5.754 5.403-5.754 2.29 0 3.83 1.58 4.646 2.73.814-1.148 2.354-2.73 4.645-2.73 2.88 0 5.404 2.69 5.404 5.755 0 6.376-7.454 13.11-10.037 13.157H12zM7.354 4.225c-2.08 0-3.903 1.988-3.903 4.255 0 5.74 7.034 11.596 8.55 11.658 1.518-.062 8.55-5.917 8.55-11.658 0-2.267-1.823-4.255-3.903-4.255-2.528 0-3.94 2.936-3.952 2.965-.23.562-1.156.562-1.387 0-.014-.03-1.425-2.965-3.954-2.965z"›‹/path›‹/g›‹/svg›‹/div›‹div class="css-1dbjc4n r-xoduu5 r-1udh08x"›‹span data-testid="app-text-transition-container" style="transition-property: transform; transition-duration: 0.3s; transform: translate3d(0px, 0px, 0px);"›‹span class="css-901oao css-16my406 r-poiln3 r-n6v787 r-1cwl3u0 r-1k6nrdp r-1e081e0 r-qvutc0"›‹span class="css-901oao css-16my406 r-poiln3 r-bcqeeo r-qvutc0"›59‹/span›‹/span›‹/span›‹/div›‹/div›‹/div›|
}
Add(Memo,10673181,497,252)
{
Left=0
Top=0
Width=760
Height=262
Align=5
akLeft=0
akTop=0
akRight=1
akBottom=1
MarginLeft=0
MarginTop=0
MarginRight=0
MarginBottom=0
Margin=0
MaxWidth=0
MaxHeight=0
MinWidth=0
MinHeight=0
Color=-16777211
Font=[MS Sans Serif,8,0,0,1]
ParentFont=1
Visible=0
Enabled=0
Cursor=0
TabOrder=0
Ctl3D=0
WinStyle=0
Name=""
Hint=""
HintManager="(empty)"
ReBarCtrl="(empty)"
StrID=""
Layout="(empty)"
WidthScale=0
HeightScale=0
ModeSp=0
SizeSp=4
ColorSp=-16777201
MinOwn=0
MinRest=0
FileName=""
Strings=#
AddType=0
ScrollBars=0
ReadOnly=1
}
Add(RegExp,4273246,441,252)
{
Pattern="‹span class=".*?"›Follow‹\/span›"
Global=0
IgnoreCase=0
Multiline=0
PatternList=#
link(onExecute,10673181:doAdd,[])
link(strSource,1415467:Text,[])
}
Add(Timer,9453998,329,322)
{
Interval=100
Enable=0
AutoStop=1
OverCall=0
link(onTimer,4273246:doExecute,[(401,328)(401,258)])
}

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 249
Рейтинг: 4
#18: 2022-05-16 15:28:27 ЛС | профиль | цитата
через кнопку работает
карма: 1

0
Ответов: 5227
Рейтинг: 587
#19: 2022-05-16 15:31:01 ЛС | профиль | цитата
ric писал(а):
через кнопку работает

Ну так ясен пень, это пример для старта
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 249
Рейтинг: 4
#20: 2022-05-16 15:36:11 ЛС | профиль | цитата
andrestudio писал(а):


Ну так ясен пень, это пример для старта

Sersey
сейчас напишет что не работает, тоже самое выходит что и в стандартном компоненте.
карма: 1

0
Ответов: 537
Рейтинг: 14
#21: 2022-05-16 16:08:59 ЛС | профиль | цитата
Ну да, так же в жадном режиме ищет
карма: 4

0
Ответов: 249
Рейтинг: 4
#22: 2022-05-16 16:25:40 ЛС | профиль | цитата
на тебе решение
Add(MainForm,3929769,63,56)
{
Width=651
Height=346
}
Add(Memo,10673181,224,126)
{
Left=10
Top=10
Width=615
Height=153
Strings=#78:‹div aria-label="" ‹span class="role="button" tabindex="0" class="css-18t94o4 |75:css-1dbjc4n r-1777fci r-bt1l66 r-1ny4l3l r-bztko3 r-lrvibr" data-testid=""›|77:‹span class="css-901oao css-16my406 r-poiln3 r-bcqeeo r-qvutc0"›Follow‹/span›|128:‹div dir="ltr" class="css-901oao r-1awozwy r-14j79pv r-6koalj r-1qd0xha r-a023e6 r-16dba41 r-1h0z5md r-rjixqe r-bcqeeo r-o7ynqc |71:r-clp7b1 r-3s2u2q r-qvutc0" style=""›‹div class="css-1dbjc4n r-xoduu5"›|136:‹div class="css-1dbjc4n r-1niwhzg r-sdzlij r-1p0dtai r-xoduu5 r-1d2f490 r-xf4iuw r-1ny4l3l r-u8s1d r-zchlnj r-ipm5af r-o7ynqc r-6416eg"›|136:‹/div›‹svg viewBox="0 0 24 24" aria-hidden="true" class="r-4qtqp9 r-yyyyoo r-1xvli5t r-dnmrzs r-bnwqim r-1plcrui r-lrvibr r-1hdv0qi"›‹g›|176:‹path d="M12 21.638h-.014C9.403 21.59 1.95 14.856 1.95 8.478c0-3.064 2.525-5.754 5.403-5.754 2.29 0 3.83 1.58 4.646 2.73.814-1.148 2.354-2.73 4.645-2.73 2.88 0 5.404 2.69 5.404|121: 5.755 0 6.376-7.454 13.11-10.037 13.157H12zM7.354 4.225c-2.08 0-3.903 1.988-3.903 4.255 0 5.74 7.034 11.596 8.55 11.658 |27: 1.518-.062 8.55-5.917 8.55|
ScrollBars=3
}
Add(RegExp,4273246,224,175)
{
Multiline=1
Point(Pattern)
link(onExecute,4237804:doAdd,[])
link(strSource,10673181:Text,[])
link(Pattern,16140728:Text,[(237,167)(279,167)])
}
Add(Button,12056842,133,175)
{
Left=10
Top=180
link(onClick,4273246:doExecute,[])
}
Add(Memo,4237804,280,175)
{
Left=10
Top=220
Width=610
}
Add(Edit,16140728,273,126)
{
Left=85
Top=180
Width=440
Text="class=(.+?)Follow‹/span›"
}


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

Редактировалось 1 раз(а), последний 2022-05-16 16:39:22
карма: 1

0
Ответов: 537
Рейтинг: 14
#23: 2022-05-16 18:27:34 ЛС | профиль | цитата
Да, теперь правильно находит, спасибо всем
карма: 4

0
Ответов: 537
Рейтинг: 14
#24: 2022-05-19 17:53:23 ЛС | профиль | цитата
Все равно неправильно работает компонент, плевать ему на модификаторы. В архиве тестовая программа, код сайта и компонент https://forum.hiasm.com/getfile/39464 программа должна найти вот этот код <span class="css-901oao css-16my406 r-poiln3 r-bcqeeo r-qvutc0">Follow</span>
карма: 4

0
Ответов: 249
Рейтинг: 4
#25: 2022-05-20 04:09:09 ЛС | профиль | цитата
только так
Add(MainForm,3929769,483,203)
{
Width=651
Height=346
}
Add(Button,12056842,490,273)
{
Left=10
Top=5
link(onClick,1562111:doExecute,[])
}
Add(ODialog,1562111,539,273)
{
FileName=""
link(onExecute,12472652:doLoad,[])
}
Add(StrList,12472652,623,245)
{
Point(doLoad)
}
Add(Memo,4237804,721,315)
{
Left=10
Top=40
Width=610
Height=260
ScrollBars=2
}
Add(Edit,16140728,665,252)
{
Left=200
Top=5
Width=420
Text="(([<]{1}span.class="){1}[a-z]{3}.[0-9]{3}[a-z]{3}.[a-z]{3}.[0-9]{2}[a-z]{2}[0-9]{3}...[a-z]{5}....[a-z]{6}...[a-z]{5}.(">Follow<.span[>]){1})"
}
Add(Button,11317539,539,315)
{
Left=75
Top=5
Caption="="
link(onClick,7005506:doEvent1,[])
}
Add(Hub,7005506,588,315)
{
link(onEvent1,4237804:doClear,[(669,321)(669,328)])
link(onEvent2,14453739:doExecute,[(616,328)(616,335)])
}
Add(RegExp,14453739,630,329)
{
IgnoreCase=1
Multiline=1
Point(Pattern)
link(onExecute,4237804:doAdd,[(688,335)(688,321)])
link(strSource,12472652:Text,[(636,306)(629,306)])
link(Pattern,16140728:Text,[(643,307)(671,307)])
}


Редактировалось 1 раз(а), последний 2022-05-20 04:10:55
карма: 1

0
Ответов: 537
Рейтинг: 14
#26: 2022-05-21 07:17:04 ЛС | профиль | цитата
Для такой элементарной задачи такую регулярку писать, кошмар. Компоненты RE_Search и RegExp не правильно работают, хотя RE_Replace правильно ищет
карма: 4

0
Ответов: 2059
Рейтинг: 132
#27: 2022-05-21 07:51:43 ЛС | профиль | цитата
Sersey писал(а):
Компоненты RE_Search и RegExp не правильно работают, хотя RE_Replace правильно ищет

Каким образом они по-разному могут работать?

unit hiRE_Search;
interface
uses Kol, Share, RegExpr,Debug;
type ....
и
unit hiRE_Replace;
interface
uses Kol,Share,Debug,RegExpr;
type ....
Это практически один и тот же компонент.
При написании регулярки (в RE_Search) надо учитывать модификаторы, или поставить их все в False.
Все примеры на RE в интернете для разных 'пород', для JScript - одни, для python - совсем другие, а у IBM - своя песня с припевом и просто так их передерать нельзя.
Надо сформулировать задачу по конкретным признакам, а не
программа должна найти вот этот код <span class="css-901oao css-16my406 r-poiln3 r-bcqeeo r-qvutc0">Follow</span>

карма: 6

0
Ответов: 537
Рейтинг: 14
#28: 2022-05-21 09:18:24 ЛС | профиль | цитата
https://forum.hiasm.com/getfile/39467 В архиве программа для теста и html текст где искать, RE_Replace правильно находит и заменяет все вхождения, подставляет найденное в замену, а RE_Search ищет только в жадном режиме, хотя регулярка используется одинаковая
карма: 4

0
Ответов: 537
Рейтинг: 14
#29: 2022-05-21 12:19:57 ЛС | профиль | цитата
При тщательной проверке RE_Replace так же ищет в жадном режиме, вот схема с тестом

Add(MainForm,3929769,266,189)
{
Width=651
Height=346
}
Add(Button,12056842,266,245)
{
Left=10
Top=5
Width=80
Caption="RE_Replace"
link(onClick,1562111:doExecute,[])
}
Add(Memo,4237804,511,231)
{
Left=10
Top=40
Width=610
Height=260
ScrollBars=2
}
Add(ODialog,1562111,315,245)
{
StartDir=""
FileName=""
link(onExecute,11947701:doEvent1,[])
}
Add(Hub,11947701,364,245)
{
link(onEvent1,12472652:doLoad,[(396,251)(396,223)])
link(onEvent2,3275006:doReplace,[])
}
Add(StrList,12472652,413,189)
{
Point(doLoad)
}
Add(Edit,16140728,455,196)
{
Left=185
Top=5
Width=440
Text="<span class="(.+?)">Follow</span>"
}
Add(RE_Replace,3275006,413,252)
{
ReplaceStr="(@@@1)$1(@@@2)"
Point(Expression)
link(onReplace,5291507:doWork2,[])
link(SourceStr,3600910:Var2,[])
link(Expression,13774920:Var1,[(426,237)])
}
Add(Button,15336326,264,322)
{
Left=100
Top=5
Width=75
Caption="RE_Search"
link(onClick,12397301:doExec,[])
}
Add(RE_Search,12397301,413,322)
{
ModifierG=1
ModifierM=0
link(onMatch,5291507:doWork3,[(480,328)])
link(SourceStr,3600910:Var1,[(419,302)(404,302)(404,236)])
link(Expression,13774920:Var2,[(426,302)(461,302)])
}
Add(HubEx,5291507,476,252)
{
link(onEvent,4237804:doText,[])
}
Add(GetDataEx,3600910,413,231)
{
link(Data,12472652:Text,[])
}
Add(GetDataEx,13774920,455,232)
{
link(Data,16140728:Text,[])
}

карма: 4

0
Ответов: 2059
Рейтинг: 132
#30: 2022-05-21 16:04:02 ЛС | профиль | цитата
Sersey, наверняка в RE_Search, а точнее в RegExpr.pas есть недоделки.
Мне когда то понадобилось делить текст на предложения и слова(задача не простая, как может показаться) не одного компонента нормально работающего не нашёл! Что мне надо было - допилил в RE Search, а остальное практически не трогал. Этим надо заниматься..., или когда приспичит. Если такая схема будет нормально работать, то вот этот компонент и надо допиливать.

Add(Button,3126655,56,238)
{
Left=665
Top=5
link(onClick,4880804:doExecute,[])
}
Add(ODialog,4880804,119,238)
{
Filter="All|*.txt"
link(onExecute,8606974:doLoad,[(167,244)(167,181)])
}
Add(MainForm,4093148,63,175)
{
Width=880
Height=565
}
Add(Memo,8259123,323,271)
{
Top=377
Width=872
Height=160
Align=4
ScrollBars=2
Point(doSetSelStart)
}
Add(Edit,16768161,287,168)
{
Left=25
Top=5
Width=465
Height=30
Font=[MS Sans Serif,14,0,0,1]
Text="([А-ЯA-Z|–|—|«|"]((\..\..|н. э.)|[^\n…?!.\(]|\([^\)]*\))*[\n….?!]+)"
}
Add(Button,9345993,35,280)
{
Left=500
Top=5
link(onClick,2414294:doEvent1,[(89,286)(89,279)])
}
Add(RE_Search,5386917,203,252)
{
link(onMatch,999126:doEvent1,[(243,258)(243,244)])
link(SourceStr,8606974:Text,[(209,232)(188,232)])
link(Expression,16768161:Text,[(216,226)(293,226)])
}
Add(Button,10206297,98,301)
{
Left=575
Top=5
link(onClick,1191662:doWork2,[(166,307)(166,265)])
}
Add(Hub,999126,252,238)
{
OutCount=4
link(onEvent1,8259123:doAdd,[(291,244)(291,277)])
link(onEvent2,7399570:doOperation,[(278,251)(278,314)(149,314)(149,377)])
link(onEvent3,15111858:doData,[(278,258)(278,318)(219,318)(219,377)])
link(onEvent4,1191662:doWork1,[(278,265)(278,256)(179,256)])
}
Add(DoData,15111858,231,371)
{
link(onEventData,8606974:doSetSelLength,[(289,377)(289,289)(170,289)(170,202)])
link(Data,5386917:MatchLen,[(237,327)(223,327)])
}
Add(Math,7399570,161,371)
{
OpType=1
Op2=1
link(onResult,8606974:doSetSelStart,[(205,377)(205,286)(170,286)(170,195)])
link(Op1,5386917:MatchPos,[(167,327)(216,327)])
}
Add(Hub,2414294,112,273)
{
link(onEvent1,8259123:doClear,[(221,279)(221,284)])
link(onEvent2,5386917:doExec,[(164,286)(164,258)])
}
Add(Scintilla,8606974,182,147)
{
Top=47
Width=872
Height=330
Align=4
Font=[Courier New,10,0,0,1]
Strings=#457:Как правило, в мирах научной фантастики люди живут везде. А если «везде» и не люди, то всё равно в чужих землях хомо сапиенс, как правило, могут существовать без скафандра. Заселены все звёздные системы с собственными именами, а часто обитаемых планет по несколько штук в каждой системе. Для художественного произведения это в порядке вещей и вопросов не вызывает, потому что, как правило, для реализации идеи достоверность не нужна, нужна правдоподобность.|0:|22:А что же в реальности?|0:|33:А реальность — бессердечная сука.|0:|149:Начну с главного, что определяет условия в родной хате — со звезды. Все известные нам звёзды делятся на несколько спектральных классов. Вот основные:|0:|235:Класс О — очень горячие (30000-60000 °K) голубые звёзды. Очень молодые (порядка десятков миллионов лет). По причине молодости никаких планет у них быть не может, а если и захватят какую планету-сироту, ничего хорошего бедняжку не ждёт.|0:|885:Класс B — горячие голубовато-белые звёзды. Примеры — ? Ориона, то бишь Ригель, и Плеяды. Ригель — звезда довольно известная, но, увы, безжизненная. Её светимость — в среднем примерно 130000 солнечных. Дальнейшие комментарии, полагаю, излишни, но я продолжу: Ригель, как и многие другие звёзды класса B, вдобавок ещё и переменный, а его возраст — всего 8 млн лет, что исключает наличие родных планет — они попросту не успели сформироваться. Захваченная же из космоса планета-сирота должна обращаться вокруг него на расстоянии минимум 400 а.е. (для сравнения — афелий Плутона всего каких-то жалких 50), причём из-за переменности материнской звезды на ней с периодом примерно в 20 дней будет то жара, то чудовищный холод. Год на ней будет длиться сотни лет. Бедные тамошние детишки — они не знают, что такое день рождения. Впрочем, им бы вообще выжить для начала под этим адским светилом…|0:|1180:Класс А — это горячие белые звёзды. Типичный пример — всем известный Сириус, крайне популярный и любимый фантастами. Увы, любителя фантастики тут тоже ждёт разочарование: своих планет у Сириуса быть не может — слишком молод. Жалкие 280 млн лет — для нормальной звезды это младенчество, а для белых — пора зрелости, потому что они всего живут около миллиарда, после чего превращаются в красных гигантов с понятным результатом для всех окружающих объектов. В случае же Сириуса имеется ещё и спутник — Сириус B, которые уже прошёл стадию гиганта и испепелил всё вокруг (Сириуса С, к сожалению, не существует, догоны насвистели). Другими словами, у Сириуса, скорее всего, планет попросту нет, а если и были, давно прогорели. Если же он всё-таки ухитрился захватить из космоса что-то блуждающее, то для приемлемой температуры расстояние от планеты до него должно составлять 4,6 а.е. — это чуть ближе, чем от Солнца до Юпитера. В принципе, нормальная орбита, но Сириус также испускает сильное ультрафиолетовое и рентгеновское излучение — даже научная база в таких условиях вряд ли будет располагаться на поверхности планеты. Печаль, в общем. Не позагорать нам под белым солнцем пустыни.|0:|384:Класс F — жёлтые звёзды, чуть горячее Солнца. Типичный пример — Процион, не совсем типичный — Канопус. Светимость Проциона — 7,7 солнечных, а Канопуса — 15100, и вдобавок он, как и Сириус, очень любит рентгеновский спектр. Располагающийся там по версии Фрэнка Герберта Арракис был бы совершенно безжизненным каменным шаром, на который без экзоскелета выйти смог бы разве что Супермен.|0:|383:У Проциона и большинства остальных F-звёзд шансов больше, но его потенциальные планеты слишком молоды (около 1,7 млрд лет), и вряд ли встретят экспедиторов приятными условиями. При этом на Проционе побывали и Сергей Снегов, и Ларри Нивен, и ещё немало фантастов (и я вот тоже теперь), и это первые в нашем списке места, где вообще возможно хоть какое-то существование и терраформинг.|0:|458:Класс G — жёлтые звёзды, к которым относится и наше Солнце. Пока что это единственная звезда, на планете у которой обнаружена жизнь, так что другие вопросы, полагаю, излишни. Типичный пример такой звезды — это Альфа Центавра А, по которой не потоптался только ленивый. И, собственно, не зря: это действительно один из самых серьёзных кандидатов на наличие внеземной жизни. В ту же копилку идёт Тау Кита, которая тоже гиперпопулярна в фантастике. Есть за что.|0:|346:Класс K — оранжевые звёзды. К таковым относится, например, Эпсилон Индейца, Эпсилон Эридана, Альфа Центавра B и ещё целый набор. Это тусклые холодные звёзды, которые, впрочем, вполне могут поддерживать жизнь. Полуоси орбит обитаемых планет у таких звёзд будут гораздо меньше, чем у Земли, а значит, и год короче. В остальном они похожи на Солнце.|0:|195:Класс M — красные карлики. Собственно, весь список выше — это меньше 20 % звёзд Млечного пути, а все остальные — это как раз красные карлики. Наиболее известный пример такого — Проксима Центавра.|0:|369:В качестве исключения класс М имеют красные гиганты вроде Бетельгейзе. Именно вокруг Бетельгейзе вращается Сорора из оригинальной «Планеты обезьян». Увы, жизнь там вряд ли возможна: её светимость — переменная, от 40000 до 100000 солнечных, да к тому же звезда дышит на ладан и вполне может взорваться в ближайшие годы (ближайшие — это не миллион лет, а гораздо меньше).|0:|168:Если же вернуться к красным карликам, то один только вопрос о том, насколько вероятна жизнь на планете у такой звезды, уже генерирует ворох идей для научной фантастики.|0:|407:Во-первых, планет у таких звёзд известно немало. А буквально недавно NASA устроило целую пресс-конференцию по причине открытия в системе TRAPPIST-1 аж четырёх планет (присутствовали пять астрономов и астрофизиков, которые с нескрываемым восторгом про эти планеты рассказывали), в дополнение к трём имеющимся. Все семь планет близки по размеру к Земле, и из них три находятся в обитаемой зоне. Круто, однако.|0:|505:Во-вторых, сама по себе такая планета достаточно специфична. Период её обращения в случае TRAPPIST-1 составляет от 6 до 12 дней — если несчастные дети Ригеля не празднуют день рождения никогда, то здесь ребятишки уподобляются мальчику из анекдота, который пожелал праздновать его каждый день и умер через два месяца. Планеты эти из-за близости к звезде оказываются в приливном захвате, подобно Меркурию, и всегда обращены к светилу одной стороной. Что творится на её поверхности — можете себе представить.|0:|382:Есть, однако, и куча проблем. Первая — это, разумеется, приливный захват. Вечный день на одной стороне и вечная ночь на другой — жить, скорее всего, можно либо под землёй, либо в зонах вдоль колеблющегося из-за либраций терминатора. Вторая — вспышки. Красные карлики — нестабильные звёзды, они часто вспыхивают, буквально сдувая атмосферу со своих планет. С понятными последствиями.|0:|208:Может ли человек существовать на такой планете без скафандра? Чёрт его знает, дебаты по этому поводу пока не утихают. Но ведь и смысл научной фантастики именно в том, чтобы пытаться ответить на такие вопросы.|
IndentationGuides=0
VLines=0
WrapVisualFlags=0
ScrollBars=2
Point(doSetSelStart)
Point(doSetSelLength)
Point(doEnsureVisible)
}
Add(HubEx,1191662,175,259)
{
link(onEvent,5386917:doExecNext,[])
}


Редактировалось 4 раз(а), последний 2022-05-21 16:15:39
карма: 6

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