[Iska]

Номера строк приведены для указания того, что между строками бывают и пустые. В самом текстовом документе нумерации строк нет. »

Это лишнее. Достаточно оформить текст тэгом [code] (что Вы и так сделали), либо, если важно сохранить кодировку, вид концов строк и т.п. — упаковав файл в архив.

Теперь вопрос: После того как мы нашли животное, например, Кот (5 строка в документе), как присвоить переменной $kartinka значение "D:\Image\Кот.jpeg" (6 строка), а переменной $video - "D:\Video\Кот.mpeg" (7 строка)? »

Например, так:

Код:

#include <Array.au3>

AutoItSetOption("MustDeclareVars", 1)

Local $aContent = StringSplit(FileRead("1.txt"), @CRLF, 3)
Local $sName    = InputBox("Название", "Введите животное:", "Здесь вводим", "", 250, 150, Default, Default, 0)

Local $lIndex = _ArraySearch($aContent, $sName)

if $lIndex >=0 Then
	MsgBox(1, "", $aContent[$lIndex + 1])
	MsgBox(1, "", $aContent[$lIndex + 2])
EndIf

Крайне рекомендую перевести Ваш текстовый файл в формат ini-файла и пользовать соответствующие функции.