[Maza Faka]

Creat0R

Вот такой вот извращённый метод

Отличная идея!

[HORRIBLE]

Всем привет.
У меня вот возник вопрос, можно распознать защитную картинку и получить код который на ней написан?
вот, к примеру картинка:
Или это нереальная задача?

спасибо

[Drsmog]

Привет

У мня вопрос как сделать подсчет строчек до определенного символа "?"

пример:

?
1 строчка
2 строчка
3 строчка
? (здесь останавливается и выводит сообщение здесь 3 строчки) далее
1 строчка
2 строчка
3 строчка
4 строчка
? (здесь останавливается и выводит сообщение а здесь 4 строчки)
1 строчка
2 строчка
3 строчка
4 строчка
5 строчка
6 строчка
? (здесь останавливается и выводит сообщение а здесь 6 строчки)

и.т.д

[HORRIBLE]

Drsmog,

Можно так:

Код:

#include <file.au3>
$sumbol = "?"
$y = 0
Dim $aRecords
If Not _FileReadToArray("error.log",$aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
For $x = 1 to $aRecords[0]
    $y += 1 
    $result = StringCompare($aRecords[$x], $sumbol, 1)
       If $result  = 0 then
          MsgBox(0,"","До искомого символа "&($y-1)&" строк")
          $y = 0
      endif	
Next

[Creat0R]

HORRIBLE,

можно распознать защитную картинку и получить код который на ней написан? »

См. в сторону OCR, на оф. сайте приводили много примеров.

Drsmog,

как сделать подсчет строчек до определенного символа "?" »

Код:

$hFileOpen = FileOpen("File.txt", 0)
If $hFileOpen = -1 Then Exit

$iCounter = 1

While 1
    $sReadLine = FileReadLine($hFileOpen)
    If @error <> 0 Then ExitLoop

    If $sReadLine = "?" Then
        MsgBox(64, "Counter", "Насчитано строк: " & $iCounter)
        $iCounter = 0
    Else
        $iCounter += 1
    EndIf
WEnd

FileClose($hFileOpen)

[HORRIBLE]

Creat0R,
а что такое OCR??? спасибо за направление)

[Creat0R]

HORRIBLE,

что такое OCR? »

OCR - Optical Character Recognition
Оптическое распознавание символов

[Maza Faka]

Creat0R

как сделать подсчет строчек до определенного символа "?"

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

[amel27]

Еще вариант - с точки зрения блоков текста, оптимизирован по скорости чтения файла:
З.Ы. обойтись без RegExp стоило усилий

Код:

$sFile = "C:\File.Txt"
$sChar = "?" & @CRLF

MsgBox(64, "Counter", "Насчитано строк в блоке 1: " & _FileBlockLines($sFile, $sChar))
MsgBox(64, "Counter", "Насчитано строк в блоке 2: " & _FileBlockLines($sFile, $sChar, 2))
MsgBox(64, "Counter", "Насчитано строк в блоке 3: " & _FileBlockLines($sFile, $sChar, 3))
MsgBox(64, "Counter", "Насчитано строк в блоке 4: " & _FileBlockLines($sFile, $sChar, 4))
MsgBox(64, "Counter", "Насчитано строк в блоке 5: " & _FileBlockLines($sFile, $sChar, 5))

Func _FileBlockLines($sFile, $sDelim, $iBlock = 1)
    Local Const $iBufSize = 16384       ; размер буфера
    Local $iFindLen=StringLen($sDelim)  ; длина разделителя
    Local $iLines=0, $iNum=0            ; счетчики
    ; Открытие файла
    Local $hFile = FileOpen($sFile, 0)
    If $hFile = -1 Then Return SetError(1,0,-1)
    ; Цикл поблочного чтения из файла
    While 1
        $sRead = FileRead($hFile, $iBufSize)
        If @error Then ExitLoop
        ; Цикл подсчета блоков и строк в блоке
        Do
            $iFind = StringInStr($sRead, $sDelim)
            If $iFind Then
                StringReplace(StringLeft($sRead, $iFind-1), @LF, "")
                $iLines += @extended
                $iNum +=1
                ; Если номер искомого блока, то Выход
                If $iNum=$iBlock Then ExitLoop 2
                ; Инициализация для следующего блока
                $sRead = StringTrimLeft($sRead, $iFind+$iFindLen)
                $iLines = 0
            Else
                StringReplace($sRead, @LF, "")
                $iLines += @extended
            EndIf
        Until $iFind=0
    WEnd
    If $sRead="" Then $iLines=-1

    FileClose($hFile)
    Return $iLines
EndFunc

[HORRIBLE]

как в созданное GUI поместить картинку находящююся в интернете, к примеру по адресу (http://forum.oszone.net/attachment.p...4&d=1216804832) ?