Разобрался.
1. Загрузить файл с инета.
2. передать туда то что нужно.
Проблемы.
1. Перекодировать символы. или как сделать замену по соответствию в файле? - частично решено.
2. как удалить все "Enter" в файле.?
файл который скачивается вложил
код
1. Загрузить файл с инета.
2. передать туда то что нужно.
Проблемы.
1. Перекодировать символы. или как сделать замену по соответствию в файле? - частично решено.
2. как удалить все "Enter" в файле.?
файл который скачивается вложил
код
Код:
_SetListData()
Local $sURL = "http://smotri.n3.ru/services/gc.in?chtype=1"
Local $dl = InetRead($sURL, 2) ; Загружаем всё в переменную
Local $file = FileOpen("test.txt", 2) ; Создаём файл
FileWrite($file, $dl) ; Записываем в него полученные данные с сайта
FileClose($file)
Func _SetListData()
Local $sFileRead = FileRead("test.txt")
Local $aList1 = StringRegExp($sFileRead, 'address":"(.*?)","chan', 3)
; Local $aList1 = StringRegExp($sFileRead, 'address":"(.*?)","chan', 3)
; Local $aList2 = StringRegExp($sFileRead, 'chans\\/(.*?).png",', 3)
Local $aList2 = StringRegExp($sFileRead, 'name":"(.*?)","id', 3)
Local $str = 0
Local $stroka_1 = '=http://127.0.0.1:12701/Open?filename='
Local $stroka_2 = '&displayname='
Local $stroka_3 = '='
Opt("GUIDataSeparatorChar", "#")
$file = FileOpen("PCPlayerChannelSelector.ini", 1)
FileWrite($file, "[Options]" & @CRLF)
FileWrite($file, "LastChannelID=1" & @CRLF)
FileWrite($file, "[ChannelListURLs]" & @CRLF)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
;первая прогонка
For $i = 0 To UBound($aList1) - 1
$str = $str + 1
$aSplit_Data = StringSplit($aList1[$i], "#")
$sData = ""
If $aSplit_Data[0] = 5 Then ContinueLoop ;It's the header data
For $j = 1 To $aSplit_Data[0]
$stroka = $str & $stroka_1 & $aSplit_Data[$j] & $stroka_2 & $str
FileWrite($file, $stroka & @CRLF)
Next
Next
;вторая прогонка
FileWrite($file, "[ChannelListNames]" & @CRLF)
$str = 0
For $i = 0 To UBound($aList2) - 1
$str = $str + 1
$aSplit_Data = StringSplit($aList2[$i], "#")
$sData = ""
If $aSplit_Data[0] = 5 Then ContinueLoop ;It's the header data
For $j = 1 To $aSplit_Data[0]
$stroka = $str & $stroka_3 & $aSplit_Data[$j]
FileWrite($file, $stroka & @CRLF)
Next
Next
FileClose($file)
EndFunc