Refresh("")
ged$='Загружается обновление...'
DisplayValue("Text","ged$")
Pause("200")
Hide("Info")
Hide("Info_list")
Show("online_box")
Show("online_list")
FromLin  e1=17
FromLine2=18
FromLine3=19
FromLine4=20
URL$='http://80.251.126.41/index.html'
PluginSet("Internet","URL$")
PluginRun("Internet","URL")
Dest$ = 'C:\online.txt'
PluginSet("Internet","Dest$")
PluginRun("Internet","Download")
For Runner1=1 To 50
text$='C:\online.txt'
NumOfLines=1
RetString$=StrFromFile(text$,FromLine1,NumOfLines)
a$=RetString$
a$=StrDel(a$,1,1)
a=POS(>,a$)+1  
b=POS(<,a$)
c=b-a
a$=StrCopy(a$,a,c)
string$=a$
FromString$='<'
ToString$='<'
a$=StrChange(string$,FromString$,ToString$)
string$=a $
FromString$='>'
ToString$='>'
a$=StrChange(string$,FromString$,ToString$)
If (a$='/TABLE>') Then
a$=''
End
If (a$='TD CLASS=name></TD>') Then
a$=''
End
onliner$[all1+1]=a$
all1=all1+1
runner1=runner1+1
FromLine1=FromLine1+6
Next Runner1
For Runner2=1 To 50
text$='C:\online.txt'
NumOfLines=1
RetString$=StrFromFile(text$,FromLine2,NumOfLines)
a$=RetString$
a$=StrDel(a$,1,1)
a=POS(>,a$)+1  
b=POS(<,a$)
c=b-a
a$=StrCopy(a$,a,c)
If (a$='/BODY>') Then
a$=''
End
lvler$[all2+1]=a$
all2=all2+1
runner2=runner2+1
FromLine2=FromLine2+6
Next Runner2
For Runner3=1 To 50
text$='C:\online.txt'
NumOfLines=1
RetString$=StrFromFile(text$,FromLine3,NumOfLines)
a$=RetString$
a$=StrDel(a$,1,1)
a=POS(>,a$)+1  
b=POS(<,a$)
c=b-a
a$=StrCopy(a$,a,c)
If (a$='/HTML>') Then
a$=''
End
locker$[all3+1]=a$
all3=all3+1
runner3=runner3+1
FromLine3=FromLine3+6
Next Runner3
For Runner4=1 To 50
text$='C:\online.txt'
NumOfLines=1
RetString$=StrFromFile(text$,FromLine4,NumOfLines)
a$=RetString$
a$=StrDel(a$,1,1)
a=POS(>,a$)+1  
b=POS(<,a$)
c=b-a
a$=StrCopy(a$,a,c)
shiper$[all4+1]=a$
all4=all4+1
runner4=runner4+1
FromLine4=FromLine4+6
Next Runner4
For z=1 To 50
If (onliner$[z]='') Then
lol$=lol$+''
If (onliner$[1]='') Then
lol$='На сервере сейчас нет игроков.'
End
Else
lol$=lol$+CHAR(z)+') '+onliner$[z]+', уровень: '+lvler$[z]+', система: '+locker$[z]+', корабль: '+shiper$[z]+CHR(13)+CHR(10)
End
z=z+1
Next z
DisplayValue("online_list","lol$")
red$='Готово'
DisplayValue("Text","red$")
Refresh("")

URL$ = 'http://80.251.126.41/index.html'
PluginSet("Internet","URL$")
PluginRun("Internet","Codice")
PluginGet("Internet","Result$")
a=StrToFile('C:\online.txt', Result$,0,0)

Свойство InnerHtml возвращает весь HTML-код, содержащийся в текущем элементе, исключая окружающие теги, а свойство OuterHtml включает тег текущего элемента, а также HTML-код, содержащийся в этом теге

** Инициализируем переменные
b$=''
k=0
count=0
** Считаем с файла все строки с 16
a$=StrFromFile(c:\online.txt,16,-1)
** Уберём из текста всё лишнее
a$=StrChange(a$,</TD>,'')
a$=StrChange(a$,<TD CLASS=name>,'')
a$=StrChange(a$,<TD CLASS=rank>,'')
a$=StrChange(a$,<TD CLASS=system>,'')
a$=StrChange(a$,<TD CLASS=ship>,'')
a$=StrChange(a$,<TR>,'')
a$=StrChange(a$,</TR>,'')
a$=StrChange(a$,& lt;,<) <-- убрать пробел после &
a$=StrChange(a$,& gt;,>) <-- убрать пробел после &
delim$=CHR(10)
del$=CHR(13)
** Количество строк в файле
num=GetArrayNum(a$,delim$)
For i=1 To (num-6)
    k=k+1
    ** Получаем каждую строку
    s$=GetArrayItem(a$,delim$,i)
    ** Убираем из неё перенос строки
    s$=StrChange(s$,del$,'')
    ** И формируем будущий выводимый текст
    If (s$<>'') Then
      If (k=2) Then
        count=count+1
        b$=b$+CHAR(count)+') '+s$
      End
      If (k=3) Then
        b$=b$+', уровень: '+s$
      End
      If (k=4) Then
        b$=b$+', система: '+s$
      End
      If (k=5) Then
        b$=b$+', корабль: '+s$
      End
    End
    ** Первого игрока разобрали - следующий...
    If (k=6) Then
      b$=b$+CHR(13)+CHR(10)
      k=0
    End
Next i
If (count>0) Then
    LoadText("online_list","b$")
    Message("Найдено игроков:","count")
Else
    LoadText("online_list","Игроков в он-лайн: 0")
End