جدا کردن متن در صفحه به وسیله Web Browser

[maniaf69]

سلام به اساتید محترم
من یک کدی نوشتم که یک فرم رو پر میکنه و اطلاعات برگشت داده میشه و روص سایت نشون داده میشه
میخواستم بدونم راهی هست که بشه با Web Browser متن بازگشتی را توی یک تکست باکس ریخت؟
البته یک توضیح بدم که کلمه من بین تگ قرار داره و متن بین اون دوتا تگ رو من میخواهم بدست بیارم
مثلاً

<span class="statusValue">TEXT SAMPLE</span>
متن Text Sample رو من میخواهم بدست بیارم
آیا راهی هست؟
سریع ترین روش رو من میخواهم

[butterfly8528]

سلام دوست عزیز .
برای جستجو بین دو تگ ، در پست اول این (http://barnamenevis.org/showthread.php?302508-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%A8%D9%87-%D8%AF%D8%B3%D8%AA-%D8%A2%D9%88%D8%B1%D8%AF%D9%86-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D9%88-%D8%B3%D8%A7%D8%B9%D8%AA-%D8%B3%D8%B1%D9%88%D8%B1&p=1327684&highlight=#post1327684) تاپیک یک تابع قرار دادم .
موفق باشید :لبخندساده:.

[maniaf69]

من اینو تست کردم ولب با اون کدی که توی صفحه من هست جواب نداد
اینو بگم تگ استفاده شده من در صفحه چند بار بکار رفته اینجوری از اولین تگ تا آخرین تگ رو برای من نشون میده
کد صفحه من حدود 3000 کاراکتر است با این روش جواب نداد
راه دیگری نیست؟

[ramzdar]

سورس صفحه رو بگیر و statusValue رو توش سرچ کن(t1)
بعد پیداش که کردی دوباره از اون قسمت سورس تا آخر رو بگیر(s1)
حالا دوباره توی قسمت جدید </span> رو سرچ کن.(t2)
با این کار دیگه اون سمپل تکستت پیدا شده که میشه:
txtSample = Mid(s1, t1, t2)

موفق باشی دوست عزیز

[maniaf69]

من نفهیمدم چطوری میشه اگه میتونید یک نمونه کد یا یک پروژه نمونه بزارید تا من بفهمم
ممنون می شوم

[ramzdar]

اصلاً این Sample Text چیه؟
توی یه تکست نوشته شده یا نه؟
میتونی آدرس صفحه رو بدی؟

[ramzdar]

این یه نمونه برای گرفتن فضای خالی توی GMail هست. همونجا که نوشته Lots of space. این برنامه اون عدد رو میریزه تو تکست باکس.
فقط یه نمونه هست و خیلی هم راحته. یه متن رو توی سورس جستجو کرده.
ببین همونیه که میخوای یا نه.

[maniaf69]

نه این هم به درد نخورد ولی یکی از دوستان برا الگوریتم رو نوشت این دقیقاً همون چیزیه که من می خواستم



Dim SP() As String
Dim Word As String
SP = Split(WebBrowser1.Document.body.innerhtml, "<DIV class=statusLine><SPAN class=statusLabel>", , vbTextCompare)
For Each match In SP
If InStr(1, match, "</SPAN><SPAN class=statusValue>", vbTextCompare) > 0 Then
Word = Split(Split(match, "<SPAN class=statusValue>", , vbTextCompare)(1), "</span>", , vbTextCompare)(0)

MsgBox Word

End If
Next

[محسن واژدی]

Значение фамилии кожин


Фамильный герб история рода бурцевыхФамилия багрецПроисхождение родословной гримчакФамилия бертовИстория происхождения литовской фамилии клейния Осокин дерево семейное (http://suppvalwolfcap.cba.pl/osokin-derevo-semeynoe.html)янин фамилии Значение (http://suppvalwolfcap.cba.pl/yanin-familii-znachenie.html)аляпин Прозвище (http://17jaxopuvawivarozygedagisycucaqe.info/alyapin-prozvishe.html)фамилии зонов Значение (http://buttlesibi.cba.pl/familii-zonov-znachenie.html)ганага Тайна рода (http://17henyfawezynahasusazugolemypyki.info/ganaga-tayna-roda.html) Значение фамилии бузниИстория русских фамилий со времён язычествабелоусовыТайна рода цюпкоЧто обозначают буквы в твоей фамилииОткуда пошли фамилии на русси дирева Значение фамилии (http://17jaxopuvawivarozygedagisycucaqe.info/direva-znachenie-familii.html)История строгановы происхождения фамилии (http://17henyfawezynahasusazugolemypyki.info/istoriya-stroganovi-proishozhdeniya-familii.html)балах рода Тайна (http://reisunghigpo.cba.pl/balah-roda-tayna.html)егодов фамилии Значение (http://suppvalwolfcap.cba.pl/egodov-familii-znachenie.html)Тайна рода июшина (http://17henyfawezynahasusazugolemypyki.info/tayna-roda-iyushina.html) Происхождение родословной ревиспроисхождение фамилии ГусаровЗначение фамилии чвырьПроисхождение родословной звездичТайна рода сабгир

لطفا" فارسی تایپ کنید

[maniaf69]

کار بر Pastysnisse (http://barnamenevis.org/member.php?222832-Pastysnisse) اسپمره مدیران سایت هرچه سریعتر حساب کاربری را مسدود کنید