Что нового

[Сеть, интернет] Найти текст на странице и копировать

ssvih

Новичок
Сообщения
35
Репутация
1
Всем привет в очередной раз!
Вот кусок html кода
Код:
<tr><td><table border="0" cellpadding="0" cellspacing="0"><td><img src="images/eye.gif"></td><td><font class='main'> IP: 62.109.16.63</td></table></td></tr>
Как можно найти текст "IP: 62.109.16.63" и копировать его в буфер или записать в масив или в текстовый файлик? Первая часть текста IP: всегда остается не изменой вторая сами понимаете зависит от вашего ip адреса )
 

tref777

Новичок
Сообщения
38
Репутация
2
Код:
$sString = '<tr><td><table border="0" cellpadding="0" cellspacing="0"><td><img src="images/eye.gif"></td><td><font class=' & 'main' _ 
& '> IP: 62.109.16.63</td></table></td></tr>'

$aIP = StringRegExp($sString, 'IP:(.*?)<\/td><\/table><\/td><\/tr>', 3)

For $i = 0 To UBound($aIP) - 1
	ConsoleWrite($aIP[$i])
	FileWriteLine('test.txt', $aIP[$i])
	Next
 
Автор
S

ssvih

Новичок
Сообщения
35
Репутация
1
Как будет вести себя скрипт если ip будет другим?

В случае если Ip адрес меняется программа не может его найти!!!

Данное выражение как выход не подходит!
Код:
$sString = '<tr><td><table border="0" cellpadding="0" cellspacing="0"><td><img src="images/eye.gif"></td><td><font class=' & 'main' _
& '> IP: 62.109.16.63</td></table></td></tr>'

$aIP = StringRegExp($sString, 'IP:(.*?)<\/td><\/table><\/td><\/tr>', 3)

For $i = 0 To UBound($aIP) - 1
    ConsoleWrite($aIP[$i])
    FileWriteLine('test.txt', $aIP[$i])
    Next


Решение
Код:
$sHTML = _IEDocReadHTML ($oIE)

$sPatern = '(?smi).*?main"?> IP: ([^&\s].*?)<.*'

$sResult = StringRegExpReplace( $sHTML, $sPatern, '\1', 1 )

    ConsoleWrite($sResult)
    FileWriteLine('test.txt', $sResult)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,323
ssvih,
Можно так попробовать.
Код:
$sIP = ''
For $i = 1 To 4
	$sIP &= Random(0, 255, 1) & '.'
Next
$sIP = StringTrimRight($sIP, 1)
ConsoleWrite('Random IP: ' & $sIP & @LF)

$sString = '<table>' & @CRLF & '<tr><td><table border="0" cellpadding="0" cellspacing="0"><td><img src="images/eye.gif"></td><td><font class=main' _
		 & '> IP: ' & $sIP & '</td></table></td></tr>' & @CRLF & '</table>'

ConsoleWrite('String: ' & $sString & @LF)
$sSearchIP = StringRegExpReplace($sString, '(?is).*ip.*?(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\D.*', '$1')
ConsoleWrite('SearchIP: ' & $sSearchIP & @LF)
 
Верх