http://sfsys.ru/index.php?action=history&feed=atom&title=Text.Size
Text.Size - Revision history
2026-04-04T15:27:15Z
Revision history for this page on the wiki
MediaWiki 1.31.1
http://sfsys.ru/index.php?title=Text.Size&diff=2944&oldid=prev
Admin: 1 revision imported
2021-02-07T06:54:46Z
<p>1 revision imported</p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr class="diff-title" lang="en">
<td colspan="1" style="background-color: #fff; color: #222; text-align: center;">← Older revision</td>
<td colspan="1" style="background-color: #fff; color: #222; text-align: center;">Revision as of 06:54, 7 February 2021</td>
</tr><tr><td colspan="2" class="diff-notice" lang="en"><div class="mw-diff-empty">(No difference)</div>
</td></tr></table>
Admin
http://sfsys.ru/index.php?title=Text.Size&diff=2943&oldid=prev
Admin at 10:31, 7 February 2020
2020-02-07T10:31:15Z
<p></p>
<p><b>New page</b></p><div>{{infobox function<br />
|name=Size<br />
|object=[[Текст]]<br />
|caption=Размер текста в строках<br />
|type=1<br />
|status=2<br />
|db=0<br />
|visual=0}}<br />
{{HeadLinks|<br />
* [[Main_Page|Начальная страница]]<br />
* [[Общее_описание_языка|Общее описание]]<br />
* [[Объекты]]<br />
* [[Текст]]}}<br />
Функция возвращает количество строк в тексте. Текст должен содержать разделители между строками, состоящие из двух символов chr(13) и chr(10) (_NEWLINE).<br />
<br />
== Синтаксис ==<br />
<code><br />
{{Grey|Text.}}'''Size'''():''<Количество строк в тексте (INT)>''<br />
</code><br />
<br />
==== Возвращаемое значение ====<br />
Возвращается числовое значение, количество строк в тексте.<br />
<br />
== Примеры ==<br />
<pre><br />
СпНоменклатураПродаж:=List.Create();<br />
Т:=Text.Create();<br />
Т.Load(Файл,0);<br />
If Т.Size()=0 Then<br />
Message("Файл пустой!","!");<br />
Exit;<br />
EndIf;<br />
For i:=1 To Т.Size() Do<br />
Form.StatusText("Подготовка "+i+" из "+Т.Size());<br />
Стр:=Т.GetLine(i);<br />
If Trim(Стр)="" Then<br />
Continue;<br />
EndIf;<br />
аКод:=TearStr(Стр,";");<br />
аТМЦ:=Ref.Номенклатура;<br />
//Не загружаем объекты (ускорение загрузки)<br />
If аТМЦ.FindEx(3,,"Code",аКод)=0 Then<br />
Message("Не найдена номенклатура с кодом "+аКод+"!","!");<br />
Exit;<br />
EndIf;<br />
If СпНоменклатураПродаж.Find(аТМЦ)=0 Then<br />
СпНоменклатураПродаж.Add(аТМЦ);<br />
EndIf;<br />
EndDo; <br />
</pre></div>
Admin