Otto_Romwel Это оно? Вот исходные коды блоков (фактически два разных поста), где не копируется текст
[more=Исходный код]
<span class="ucoz-forum-post" id="ucoz-forum-post-14558" edit-url=""><span style="color:blue"><span style="font-size:12pt;">Сортировка секций INI файла в алфавитном порядке</span></span><br /><b><span style="color:red">Используется скрипт</span> <a class="link" href="http://tc-image.3dn.ru/forum/9-346-1076-16-1333500845" rel="nofollow" target="_blank">Functions.vbs</a></b> - Скрипт с различными Функциями, которые можно использовать в других скриптах<br /><br /><!--BBhide--><span class="UhideBlockL"><a href="javascript://" onclick="new _uWnd('LF',' ',-250,-110,{autosize:1,closeonesc:1,resize:1},{url:'/index/40'});return false;">Доступно только для пользователей</a></span><span class="UhideBlock"><!--uzcode--><div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');"><!--uzc-->' SortSectionINI.vbs<br />'======================== Описание =====================================<br />' Сортировка секций INI файла в алфавитном порядке<br />'======================= Параметры ======================================<br />' 1-й параметр: <br />' 1 - сортировать выделенные секции, если ничего не выделено, то сортируется все секции <br />' File - полный путь к INI файлу в котором необходима сортировка секций<br />'======================== Примеры ======================================<br />' -"Сортировать выделенные секции активного INI файла" Call("Scripts::Main", 1, "SortSectionINI.vbs", `"1"`)<br />' -"Сортировать секции C:\Test.ini" Call("Scripts::Main", 1, "SortSectionINI.vbs", `"C:\Test.ini"`)<br /><br />' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\<br /><br />' Автор: Аверин Андрей<br />' Версия: 1.0 (26.01.2016)<br />' Mail: Averin-And@yandex.ru<br />' Site: http://tc-image.3dn.ru/forum/9-1010-14558-16-1453766841<br />'===========================================================================<br />With WScript Cnt = .Arguments.Count<br /> If Cnt = 0 Then .Quit<br /> P = .Arguments(0)<br />End With<br /><br />With AkelPad .Include("Functions.vbs") : K = 1 : S = 0<br /> Select Case P<br /> Case "1"<br /> SetRedraw .GetEditWnd, False<br /> Text = .GetSelText(3)<br /> If Len(Text) = 0 Then<br /> Text = .GetTextRange(0, -1, 3)<br /> S = 1<br /> End If<br /> If Len(Text) = 0 Then EndRedraw<br /> Case Else<br /> File = GetPath(P)<br /> If Not FFExists(File, 1) Then Wscript.Quit<br /> aFile = ReadInfoFile(File,4)<br /> If aFile(0) = -4 Then Wscript.Quit<br /> Text = aFile(3)<br /> K = 0<br /> End Select<br /><br /> aSection = GetInfoINI(Text, 7, "")<br /> If Not IsArray(aSection) Then EndRedraw<br /> aTS = GetInfoINI(Text, 23, aSection)<br /> SortingUpTwoArray aSection, 0, Ubound(aSection), aTS<br /> Text = DelLastEmptyLine(TextFormat(vb & Join(aTS, vb), 19))<br /> <br /> If K = 1 Then<br /> If S = 1 Then .SetSel 0, -1<br /> .ReplaceSel(Text) : SaveEditFile : EndRedraw<br /> Else<br /> .WriteFile File, Text, -1, aFile(1), aFile(2), 1<br /> End If<br />End With<!--/uzc--></div></div><!--/uzcode--></span><!--/BBhide--><br /><a class="link" href="http://tc-image.3dn.ru/forum/9-143-1" rel="nofollow" target="_blank"><div align="right"><img src="http://tc-image.3dn.ru/TC_image_files/AkelPad_Image_logo.png" border="0" alt=""/></div></a></span>
[/more]
и где копируется
[more=Исходный код]
<span class="ucoz-forum-post" id="ucoz-forum-post-14561" edit-url=""><b>Andrey_A</b>, <br />Большое спасибо. Но что-то не работает. Сделал пункт <br /><!--uzcode--><div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');"><!--uzc--> - "Сортировать секции" Call("Scripts::Main", 1, "SortSectionINI.vbs", `"1"`)<!--/uzc--></div></div><!--/uzcode--><br />При запуске выдает ошибку в строке 43 символ 3:<br /><!--uzquote--><div class="bbQuoteBlock"><div class="bbQuoteName" style="padding-left:5px;font-size:7pt"><b>Цитата</b></div><div class="quoteMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');"><!--uzq-->Несоответствие типа GetInfoINI<!--/uzq--></div></div><!--/uzquote--></span>
[/more]
Буду очень признателен, если ткнете, на что смотреть и в чем причина некопирования?
function(){var a=document.activeElement,t=document.createElement('textarea');var sel=window.getSelection().toString()||a.innerText;t.style='position:fixed;opacity:0;left:0;top:0;';t.value='
)