گرفتن قسمت خاصی از سورس سایت

[alinoori 123]

سلام

http://www.rozblog.com/whois?domain=http://answercenter.ir/

میخوام تو این سورس ازDomain ID:تا اخر رو فراخونی کنم

ولی ؟؟؟؟؟؟/

میشه یه کمک اساسی کنید.کل امروزو درگیر این whois بودم.

[پژمان نیکروان 6,055]

سلام علی جان.

این همه دردسر نیاز نیست.

تو اومدی با کد getElementsByTagNme تگ ، Pre رو گرفتی. اما اومدی آخرش گذاشتی InnerHTML

که این میاد کل سورس رو با همراه تگ ها میده به ادیت تکست ، الان کافیه آخر کد جاوا اسکریپتت بجای InneHTML بذار: InnerText

همین.

[alinoori 123]

از طریق تگ pre گت المنت گرفتم و متن رو توی وب ویو گداشتم تا لودش کنه

خب مشکل حالا اینجاس:

توی ادیت تکست میزارم

<a href='http://answercenter.ir' target='_blank'><span style='color:red'>basic4android.org</span></a> domain lookup results from whois.pir.org server:

Domain Name:<a href='http://answercenter.ir' target='_blank'><span style='color:red'>basic4android.org</span></a>

این قسمت از سورس رو به همین صورت نشون میده

 

و برای همین مجبورم شدم تو وب ویو بزارم تا نتیجه این کد ها به نمایش در بیاد 

 

 

ولی تو وب ویو .طرف روی لینک ها بزنه وارد همین سایت میشه.

و متاسفانه تمام این کد ها پشت سر هم نشون میدن

و تو خط های جداگونه نیستن.

و رنگ لینک هم متفاوته .

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[alinoori 123]

کسی نیست کمک کنه؟

اقا پژمان دستم به دامنت.

[alinoori 123]

مشکلم تقریبا با replaceحل شد.

Sub get(g As String)

Dim xxx As String

xxx=g

xxx=xxx.replace("<a href=","")

xxx=xxx.replace("""","")
xxx=xxx.replace("http://","")
xxx=xxx.replace("target=_blank><span style=color:red>","")
xxx=xxx.replace("http://","")
xxx=xxx.replace("</span></a>","")

EditText2.Text = xxx