Что нового

[Сеть, интернет] прочитать файл из хостинга

andreitrane

Новичок
Сообщения
141
Репутация
3
вот файл
http://4-links.net/files/170/friendslist.txt
дайте какой нибудь код, чтобы можно было прочитать этот файл и вывести оттуда данные
 

edward_freedom

Осваивающий
Сообщения
200
Репутация
44
может так...
Код:
#include <INet.au3>

$sServer_Page = 'http://4-links.net/files/170/friendslist.txt'

    $silk = _INetGetSource($sServer_Page)
    If Not @error Then
     
        MsgBox(0, 'Info', $silk)
    EndIf


ну или каждый номер в своей переменной

Код:
#include <INet.au3>

$sServer_Page = 'http://4-links.net/files/170/friendslist.txt'

    $silk = _INetGetSource($sServer_Page)
    If Not @error Then
       ; MsgBox(0, 'Info', $silk)
		$STRR = StringSplit($silk, @CRLF)
		for $I = 1 to $STRR[1] Step 2
		MsgBox(0, 'Info', $STRR[$i])
		next
		
    EndIf
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
andreitrane,
Можно еще так:
Код:
$sUrl = 'http://4-links.net/files/170/friendslist.txt'
$sSource = InetRead($sUrl, 1)
If @error Or Not $sSource Then
	MsgBox(16, 'Error', @error)
	Exit
EndIf
$sSource = BinaryToString($sSource)
MsgBox(64, 'Info', $sSource)


edward_freedom
Если использовать StringSplit(), то лучше так:
Код:
;...
$aSource = StringSplit($sSource, @CRLF, 1)
;или так:
$aSource = StringSplit(StringStripCR($sSource), @LF)
;...
 
Верх