[kaster]

торрент файл не текст. поэтому для него символ перевода каретки даже если и есть то только потому, что это какой-нибудь байт от другого блока данных.
другими словами, надо считывать файл в двоичном виде. записывать тоже.

Код:

$file =  FileOpen("E:\tor.torrent", 16 + 0)
$iSize = FileGetSize("E:\tor.torrent")
$dim = Int($iSize/100) + 1
dim $line[$dim]
dim $nl
While 1
    $line[$nl] = FileRead($file, 100)
    If @error = -1 Then ExitLoop
    $nl=$nl+1
Wend
FileClose($file)
 
$file = FileOpen("E:\tor.torrent", 16 + 2)
for $a=0 to $nl-1
    FileWrite($file, $line[$a])
next
FileClose($file)

[madmasles]

vkupriyanov,
kaster,
А у меня так работает:

Код:

$sFile = @ScriptDir & '\1.torrent'
$sFile_new = @ScriptDir & '\2.torrent'
$hRead = FileOpen($sFile)
$hWrite = FileOpen($sFile_new, 2)
$Buf = FileRead($hRead)
FileWrite($hWrite, $Buf)
FileClose($hRead)
FileClose($hWrite)

kaster,
А на Ваш код у меня SciTE ругается:

(7) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.: $line[$nl] = FileRead($file, 100) ^ ERROR

[kaster]

А у меня так работает: »

что неудивительно. прочитать содержимое и переписать его снова. у автора проблемы изза ReadLine, т.к. при записи автоит сам добавляет после каждой строки CRLF, хотя изначально в исходном файле вполне мог бы оказаться CR или LF по отдельности.

А на Ваш код у меня SciTE ругается: »

да. это я недоглядел код автора, и внес туда только то, что касалось бинарного чтения/записи
вот так будет правильнее

Код:

$file =  FileOpen("E:\tor.torrent", 16 + 0)
$iSize = FileGetSize("E:\tor.torrent")
$dim = Int($iSize/100) + 1
dim $line[$dim]
dim $nl = 0
While 1
        $sline = FileRead($file, 100)
	if @error = -1 then exitloop
	$line[$nl] = $sline
	$nl += 1
WEnd
FileClose($file)
 
$file = FileOpen("E:\tor.torrent", 16 + 2)
for $a=0 to $nl-1
    FileWrite($file, $line[$a])
next
FileClose($file)

[kaster]

вот код добавляет трекер указанный в переменной $sNewTracker в общий список трекеров. если изначально в торрент-файле был всего один трекер то создает список трекеров из основного трекера и указанного трекера. если трекеров было изначально несколько то добавляет указанный в список последним

Код:

$sPath = "d:\tor1.torrent"
$hFile =  FileOpen($sPath, 0)
$sLine = FileRead($hFile, 11); Read d8:announce
$sNewTracker = 'http://mynewtrack.tr/passkey'
$iTrackerSize = _SizeFinder($hFile)
$sLine &= $iTrackerSize & ':'
$sMainTracker = FileRead($hFile, $iTrackerSize)
$sLine &= $sMainTracker
$sDigit = Number(FileRead($hFile, 2))
If $sDigit = 10 Then
    $sLine &= '13:announce-listll'
    $sLine &= $iTrackerSize & ':'
    $sLine &= $sMainTracker
    $sLine &= 'el'
    $sLine &= StringLen($sNewTracker) & ':'
    $sLine &= $sNewTracker
    $sLine &= 'ee' & $sDigit
    $sLine &= FileRead($hFile)
ElseIf $sDigit = 13 Then
    $sLine &= $sDigit
    $sLine &= FileRead($hFile, 16)
    $sLine &= FileRead($hFile, StringLen($iTrackerSize) + 1)
    $sLine &= FileRead($hFile, $iTrackerSize)
    While 1
        $sID = FileRead($hFile, 2)
        If $sID = 'ee' Then ExitLoop
        $sLine &= $sID
        $iSize = _SizeFinder($hFile)
        $sLine &= $iSize & ':'
        $sLine &= FileRead($hFile, $iSize)
    WEnd
    $sLine &= 'el'
    $sLine &= StringLen($sNewTracker) & ':'
    $sLine &= $sNewTracker
    $sLine &= $sID
    $sLine &= FileRead($hFile)
EndIf

ConsoleWrite($sLine & @CRLF)
FileWrite('d:\tor8.torrent', $sLine)

Func _SizeFinder(ByRef $hFile)
    $sDigit = ''
    While 1
        $tmp = FileRead($hFile, 1); Read 1st digit for tracker name size
        If $tmp = ':' Then ExitLoop
        $sDigit &= $tmp
    WEnd
    Return Number($sDigit)
EndFunc

[kaster]

а чем не устроила функция добавления трекеров, которая присутствует во мгоих клиентах?

[vkupriyanov]

madmasles, Ваш код мне подошел.
kaster, спасибо, что указали на различие в деле добавления возврата каретки в случае использования FileWriteLine. В русскоязычной справке от Valery Ivanov о FileWriteLine написано

Строка текста. Символы перехода на новую строку автоматически не добавляются.

Зачем вводят в заблуждение?!....
В оригинальной справке, идущей с версией 3.3.6.0:

The line of text to write to the text file. If the line does NOT end in @CR or @LF then a DOS linefeed (@CRLF) will be automatically added.

Сверяю справки постоянно, но этот момент упустил.

торрент файл не текст »

Торрент файл имеет текстовую область в формате UTF-8

The content of a metainfo file (the file ending in ".torrent") is a bencoded dictionary, containing the keys listed below. All character string values are UTF-8 encoded.

В ТоталКомандере можно просмотреть ее по F3 перейдя в кодировку utf-8. В эту область вношу изменения.

А трекер в изначальном торренте всего один? Или возможен случай что их несколько? »

Трекеров и ретрекеров несколько. Мне нужно добавить еще несколько в свой анонс-лист. Вот здесь человек с ником Evolgr разжевывает кодирование торрент файла в части добавления трекеров.

Вот примерный код, которым вношу изменения торрент файл (помещаю новый анонс-лист со списком трекеров перед фразой "7:comment"

Код:

$hRead = FileOpen("E:\tor.torrent")
$hWrite = FileOpen("E:\tor2.torrent", 2)
$Buf = FileRead($hRead)
$location=StringInStr($Buf, "7:comment")
$Buf=StringLeft($Buf,$location-1) & "13:announce-listll32:http://normex.no-ip.org/announceel31:http://retracker.local/announceee" & StringMid($Buf,$location)
FileWrite($hWrite, $Buf)
FileClose($hRead)
FileClose($hWrite)

С бинарным режимом чтения/записи работать не решился - не знаю как добавлять данные к прочитанным из файла

p.s. kaster последний присланный Вами код изучаю

а чем не устроила функция добавления трекеров, которая присутствует во мгоих клиентах? »

В моем случае торрент патчер выполняет еще несколько функций.

[kaster]

Строка текста. Символы перехода на новую строку автоматически не добавляются. »

ну, та справка настолько стара, что порой мне кажется что вреда от нее больше чем пользы, судя по вопросам возникающим у пользователей

Торрент файл имеет текстовую область в формате UTF-8 »

да я уже понял, пока разбирался с протоколом. правда скрипт написал на основе исключительно экспериментов с торрент файлом

Мне нужно добавить еще несколько в свой анонс-лист »

ну в моем скрипте добавляется всего один трекер за раз, но думаю приспособить его для своих целей не составит труда. например в цикле

[vkupriyanov]

Спасибо.
На счет анонс-листов я погорячился. Он всегда должен быть один. Если добавить второй, то он не отобразится в свойствах торрента, загруженного в uTorrent и, наверное, не будет работать.
Тему закрою.

[kaster]

vkupriyanov, так я не понял, мой скрипт тебе подошел или нет? я пробовал на своем клиенте, трекер исправно добавляется в список трекеров, неважно был там один или изначально несколько