فراخوانی یه قسمت از سورس بدون آیدی

[shahramlotfi]

می خوام 3173888559 رو از طریق وب بروزر تو یه تکست باکس بریزم ولی این آیدی نداره چطور میشه این کار رو کرد



</td>

<!--endshere for Q2 CR 871 -->
</tr>
<!-- Start : Added by shivasankar as per business requirement for issue ID:137813 -->
<tr class="table2-row-even">
<td height="22">
<span class="label">کد پستی</span>
</td>
<td width="70%">
&nbsp;<label>3173888559</label>
</td>
</tr>
<!-- End : Added by shivasankar as per business requirement for issue ID:137813 -->
<tr class="table2-row-odd">
<td height="22">
<span class="label">بلوک/ پلاک </span><font color="red">*</font>
</td>
<td>

[SlowCode]

سلام
با مرورگر فایرفاکس سایت مورد نظرت رو باز کن.
راست کلیک کن و گزینه Inspect element رو بزن.
تو سمت چپ پنجره باز شد روی خط مربوط به 3173888559 تست کلیک کن و Copy unique selector رو بزن بعد تو نوت پد یا هرچیزی Paste کن. بعد اون مراحل رو طی کن تا به عنصر مورد نظر برسی.
اگه نتونستی نتیجه اون رو بزار اینجا تا من کدش رو بنویسم.

[shahramlotfi]

چون تو این پیج نمیشه راست کلیک کرد تا بتونم المنت آیدی رو توسط کروم پیدا کنم ولی با ترفندی تونستم Inspect element رو باز کنم و اون قسمت رو پیدا کنم ولی نتونستم کاری کنم به همین خاطر اومدم تو کل سورس دنبال LABEL ها گشتم و تعداد LABEL ها رو در آوردم و شماره 9 مربوط به این قسمت میشد رو فیلتر کردم و ما بقی هم مشخصه
حالا میخوام ببینم آیا این کد مشکلی نداره البته درست کار میکنه ولی از لحاظ قانون برنامه نویسی و دستوری میگم
و آیا راه دیگه ای هست بهتر از این عمل کنه
ممنون که وقت میزارین جواب میدین جناب محسن


On Error Resume Next
Dim strNames As String, Names() As String, Found() As String
strNames = Web1.Document.body.innerhtml
ss = "LABEL"
Names = Split(strNames, " ")
Found = Filter(Names, ss)
For G = 0 To 9
Text3.Text = Found(G)
Text3.Text = Right(Text3.Text, 20)
Text3.Text = Replace(Text3.Text, "<", "")
Text3.Text = Replace(Text3.Text, "/", "")
Text3.Text = Replace(Text3.Text, ">", "")
Text3.Text = Replace(Text3.Text, "L", "")
Text3.Text = Replace(Text3.Text, "A", "")
Text3.Text = Replace(Text3.Text, "B", "")
Text3.Text = Replace(Text3.Text, "E", "")

Next

Erase Names

[SlowCode]

واسه غیز فعال کردن محدودیت راست کلیک میتونی جاوا اسکریتپ رو غیز فعال کنی بعد صفحه رو رفرش کن.
اون قابلیتی هم که گفتم(Copy unique selector)فقط تو فایرفاکس هست.

اگه محتویات صفحه ثابت باشه روش شما جواب مبده ولی اگهیه روزی محتویات عوض شد احتمالا روش شما جواب نده.
ارائه روش صحیح هم لازمش دیدن سایت و سورسش هست.

[gorg313]

واسه غیز فعال کردن محدودیت راست کلیک میتونی جاوا اسکریتپ رو غیز فعال کنی بعد صفحه رو رفرش کن.
اون قابلیتی هم که گفتم(Copy unique selector)فقط تو فایرفاکس هست.

اگه محتویات صفحه ثابت باشه روش شما جواب مبده ولی اگهیه روزی محتویات عوض شد احتمالا روش شما جواب نده.
ارائه روش صحیح هم لازمش دیدن سایت و سورسش هست.

آقا محسن سلام مي تونيد به اين پست هم به من کمک کنيد؟


آخرين قسمتش يه سوال پرسيدم ممنون ميشم راهنمايي کنيد :قلب:

ورود به لينک پست (http://barnamenevis.org/showthread.php?431317-%D9%84%D8%A7%DA%AF%D9%8A%D9%86-%D8%B4%D8%AF%D9%86-%D8%A8%D8%A7-%D8%A2%D9%8A-%D8%AF%D9%8A-%D9%8A%D8%A7%D9%87%D9%88-%D9%88-%D8%AF%D8%B1%D9%8A%D8%A7%D9%81%D8%AA-%D9%84%D9%8A%D8%B3%D8%AA-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%A7%D9%86)