Спасибо! Как оказалось, всё гениальное действительно просто.
Цитата Iska:
|
Local $aContent = StringSplit(FileRead("1.txt"), @CRLF, 3) »
|
Только тут, пожалуй, лучше поставить 1.
Код:
Local $aContent = StringSplit(FileRead("1.txt"), @CRLF, 1)
Сложил было, что-то такое, но коряво работает.
Код:
$VesText = FileRead("1.txt")
$Jivotnoe = InputBox("Название", "Введите животное:", "Здесь вводим", "", 250, 150, Default, Default, 0)
$a = StringRegExp($VesText, $Jivotnoe, 2, 1)
$aLines = StringSplit($VesText, @CRLF, 1) ;Разбиваем текст на строки, строки помещаем в массив
For $i = 1 To $aLines[0] Step +1
If StringInStr($aLines[$i], $Jivotnoe) Then $kartinka = $aLines[$i+1]
Next
