Что нового

Открыть ссылку из текста.

astati

Новичок
Сообщения
145
Репутация
4
Друзья, если такое есть то дайте ссылку плз на тему. Сам не нашел.
Суть такая: Открывается страница в браузере где ТОЛЬКО текст. в тегах
Код:
<pre></pre>
Так вот мне надо 22 строку(там написан адресс-сылка) открыть как ссылку в этом или другом окне.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
astati,
Вы бы показали этот текст и ту ссылку, которую надо открыть.
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
Вот весь текст. То что Выделено тегом<bv> - то что надо использовать как ссылка.
Только в коде нету тегов никаких(я про <bv>).
Код:
<pre>
Received: from ALAAPS01.servers.alaplaya.net ([172.16.1.252])
	by smtp.alaplaya.net (8.14.2/8.13.8) with ESMTP id pAN90fn9013721
	for &lt;[email protected]&gt;; Wed, 23 Nov 2011 10:00:41 +0100
Received: from localhost.localdomain (localhost [127.0.0.1])
	by ALAAPS01.servers.alaplaya.net (8.14.4/8.14.4) with ESMTP id pAN90fBq084373
	for &lt;[email protected]&gt;; Wed, 23 Nov 2011 10:00:41 +0100 (CET)
	(envelope-from [email protected])
Date: Wed, 23 Nov 2011 10:00:41 +0100
From: alaplaya Team &lt;[email protected]&gt;
To: [email protected]
Message-Id: &lt;[email protected]&gt;
Subject: Your alaplaya.net activation link!
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8

Hi xixzv,

You are receiving this after you registered with the E-Mail [email protected] for alaplaya.net. Your Loginname: xixz 

Please click here to verify your account:
<bv>http://en.alaplaya.net/v/23465421/NmcAAZ3puG<bv> 

If you did not register with alaplaya.net and this message has been sent to you by accident, you can unsubscribe below. 

Have fun! 


Your alaplaya Team 
alaplaya.net


ProSiebenSat.1 Games GmbH
Arabellastr. 23, D-81925 Munich, Germany
Phone: +49 (0) 89 / 9250 - 3971 
E-Mail: [email protected]
NO GAME OR PAYMENT SUPPORT
Company Registration: Amtsgericht M&amp;uuml;nchen, HRB 119657
Employer Identification Number (EIN) 98-0689987
Germany: UID DE182196509 / Switzerland: UID 19765 879
Managing Directors: Ingo Griebl, Achim Kaspers


If you would like to annul your subscription to this alaplaya.net email, please click on this link: 
http://en.alaplaya.net/vc/23465421/NmcAAZ3puG
</pre>
P.S. Я бы использовал GET запрос, но непонимаю с session. Поэтому юзаю левые маил :smile:
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
astati,
Попробуйте так Ваши теги <bv> я убрал).
Код:
#include <Array.au3>

$sText = FileRead(@ScriptDir & '\test.txt')
$aHref = StringRegExp($sText, '(?si)(http://.*?)\s', 3)
If @error Then
	MsgBox(16, 'Error', 'StringRegExp')
Else
	_ArrayDisplay($aHref)
EndIf
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
А если этот текст не у меня на компе а в сети?
 

sngr

AutoIT Гуру
Сообщения
981
Репутация
391
ещё вариант:
Код:
$t=FileRead(@ScriptDir & "\123.txt")
$r=StringRegExp($t,"http\S+\b",3)
ConsoleWrite($r[0]&@CRLF)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
astati [?]
А если этот текст не у меня на компе а в сети?
Из сети Вы его как-то получаете? Когда получите, используйте его как $sText.
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
я его не получаю. Я захожу в маил. там жму на письмо. Внутри жму на ссылку посмотреть письмо(содержимое) и на те во всплывающем окне открывается данный текст.

P.S. могу почту сказать. если не понимаешь.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
astati [?]
я его не получаю. Я захожу в маил. там жму на письмо. Внутри жму на ссылку посмотреть письмо(содержимое) и на те во всплывающем окне открывается данный текст.
А я (и не только я) должен был догадаться, что это так происходит?
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
я уже понял что тупанул.
Если Чо
http://shitmail.me/mail/read/plain/1223377
Переходишь и жмешь на cлово RAW.
 

sngr

AutoIT Гуру
Сообщения
981
Репутация
391
Код:
$sUrl = 'http://shitmail.me/mail/raw/1223377'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('GET', $sUrl)
$oHTTP.Send('')
$oHTTP.WaitForResponse
$sHTML = $oHTTP.ResponseText
$r=StringRegExp($sHTML,"http\S+\b",3)
ConsoleWrite($r[0]&@CRLF)
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
чета он ваще ничего не делает :(
 

sngr

AutoIT Гуру
Сообщения
981
Репутация
391
более наглядно
Код:
$sUrl = 'http://shitmail.me/mail/raw/1223377'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('GET', $sUrl)
$oHTTP.Send('')
$oHTTP.WaitForResponse
$sHTML = $oHTTP.ResponseText
$r=StringRegExp($sHTML,"http\S+\b",3)
MsgBox(0,"",$r[0])
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
а сразу перейти никак? без вывода на эран?
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
astati
Код:
#include <IE.au3>

$sLink = ''
$oIE = _IECreate('http://shitmail.me/mail/read/plain/1223377')
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
	If $oLink.innertext == 'RAW' Then
		$sLink = $oLink.href
		ExitLoop
	EndIf
Next
If $sLink Then
	_IENavigate($oIE, $sLink)
	$sText = _IEBodyReadText($oIE)
	If Not @error Then
		$aHref = StringRegExp($sText, '(?si)(http://.*?)\s', 3)
		If @error Then
			MsgBox(16, 'Error', 'StringRegExp')
		Else
			MsgBox(64, 'Info', $aHref[0])
			_IENavigate($oIE, $aHref[0])
		EndIf
	Else
		MsgBox(16, 'Error', '_IEBodyReadText')
	EndIf
Else
	MsgBox(16, 'Error', '$oLink.href')
EndIf
Только письма уже нет.
 

sngr

AutoIT Гуру
Сообщения
981
Репутация
391
Код:
#include <IE.au3>
$sUrl = 'http://shitmail.me/mail/raw/1223377'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('GET', $sUrl)
$oHTTP.Send('')
$oHTTP.WaitForResponse
$sHTML = $oHTTP.ResponseText
$r=StringRegExp($sHTML,"http\S+\b",3)
_IECreate($r[0])
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
mad
работает норм ток ссылка нужная на 12 строк ниже)
 
Верх