جستجو و انتخاب حرفه ای در یک رشته

[Nemesis_0131]

سلام دوستان عزیزم
بازم سوالی برام پیش اومده
خواستم بدونم اگه در کد زیر بخوایید اولین متن http://dl.barnamenevis.org/intro.jpg رو پیدا کنید چطوری این کارو انجام میدید اگه بشه با سورس بهم نشون بدید ممنون می شم

چندتا توضیح هم هست که باید بدم
میخوام اولین dl.barnamenevis رو برام پیدا کنه چون متغییرم در حال تغییر هست و تنها قسمت سابتی که می تونم به عنوان کلید استفاده کنم همین قسمت dl.barnamenevis هست.


<tr>
<td style="background-image: url('/back.jpg'); height: 162px;" align="center" valign="top">
<div style="position: absolute; padding-top: 21px; padding-left: 491px;" align="center"><img src="http://dl.barnamenevis.org/intro.jpg" /></div>
<div style="position: absolute; padding-top: 120px; padding-left: 10px;">
<object width="62" height="28" data="/DM_kolang.swf" type="application/x-shockwave-flash"><param name="movie" value="/DM_kolang.swf" /><param name="quality" value="high" /><param name="wmode" value="transparent" /></object>
<a target="_blank" href="http://barnamenevis.org/index.php?option=com_content&amp;view=article&amp;id=1763&amp; Itemid=248"><img src="http://barnamenevis.org/dl.jpg" alt="Download" style="border: 0px;" /></a> <a target="_blank" href="barnamenevis.org/Eb_400.jpg"><img src="dl.barnamenevis.org/cover.jpg" alt="Cover" style="border: 0px;" /></a></div>
<table style="width: 640px;" align="center" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td style="height: 32px; padding-left: 20px;" align="left">&nbsp;r<span style="font-size: 6pt;"></span></td>
</tr>

[محسن واژدی]

سلام علیکم
کد زیر را بررسی کنید:
Private Sub Command1_Click()
On Error Resume Next
Const sT_URL$ = "dl.barnamenevis"
Dim iSP%, iEP%, sRU$, sContent$
sContent$ = Text1
iSP% = InStr(1, sContent$, sT_URL$, vbTextCompare)
If iSP% > 0 Then
iEP% = InStr(iSP%, sContent$, """")
sRU$ = Mid$(sContent$, iSP%, (iEP% - iSP%))
End If
End Sub

موفق باشید

[Nemesis_0131]

دوست عزیزم اول باید تشکر کنم از شما و راهنمایی های کار راه انداز شما
و عذر خواهی کنم برای نادیده گرفتن قوانین که برای تشکر پست گذاشتم.