Что нового

Не работает StringMid

Rivald

Новичок
Сообщения
61
Репутация
1
Код:
StringRegExp($text, '<tr class="search-results__item"><td class="track artist_img_left"><a href="', 1, 1)
$ext = @extended
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $ext = ' & $ext & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
$aray = search('<tr class="search-results__item"><td class="track artist_img_left"><a href="')
$aray1 = search('" itemprop="url audio">')
Dim $sub[$count][1]
For $i = 0 To $count - 1
$sub[$i][0] = ($aray1[$i][0] - $aray[$i][0]) - 23
Next
$data = StringMid($text, $ext, $sub[0][0])
MsgBox(1, "", $data)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sub[0][0] = ' & $sub[0][0] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

Функция почему-то не воспринимает переменные, $data - пустая. В консоли проверял значение верные, если их вставить в stringmid, то все работает, или же так:
Код:
$ext = 24733
$sub[0][0] = 26
$data = StringMid($text, $ext, $sub[0][0])

Пробовал и обозначить переменные как Number-ы, тоже самое.
 

gregaz

AutoIT Гуру
Сообщения
1,166
Репутация
299
Проверь параметры перед выполнением StringMid
Код:
ConsoleWrite("$ext = "& $ext & @CRLF & "$sub[0][0] =" & $sub[0][0])
$data = StringMid($text, $ext, $sub[0][0])
MsgBox(1, "", $data)


И наличие самого текста:

Код:
MsgBox(1, "$text", $text)



Добавлено:
Сообщение автоматически объединено:

Скорее всего у тебя $ext > длины текста или <= 0
 
Автор
R

Rivald

Новичок
Сообщения
61
Репутация
1
Я понял, надо было сразу поставить проверку $ext перед использованием StringMid. Функция затирала его значение, поэтому и не работало.
 
Верх