پیدا کردن یک متن در تکس باکس

[saeedhord]

با سلام

دوستان یه تکس باکس دارم توش 1000 خط نوشته شده

میخوام فقط اونایی که اولشون http:// و اخرشون .mp3 داررو جدا کنم بزارم رو تکس باکس هرکاری کردم نشد

گفتن باید با تابع instr ولی سعی کردم اما جواب نداد ممنون میشم کمک کنید

[SlowCode]

سلام
بهتره از تابع like استفاده کنی.

Items = Split("http://site.com/file1.mp3" & vbCrLf & "http://site.com/file2.avi" & vbCrLf & "http://site.com/file3.mp3", vbCrLf)
For Each Item In Items
If Item Like "http://*.mp3" Then MsgBox Item
Next

تو خط 1 اسم تکست باکست رو داخل تابع split بنویس.

[saeedhord]

سلام
بهتره از تابع like استفاده کنی.

Items = Split("http://site.com/file1.mp3" & vbCrLf & "http://site.com/file2.avi" & vbCrLf & "http://site.com/file3.mp3", vbCrLf)
For Each Item In Items
If Item Like "http://*.mp3" Then MsgBox Item
Next

تو خط 1 اسم تکست باکست رو داخل تابع split بنویس.



دادش کار نکرد

الگریتم کارم ااینه اول سورس سایت رو میگیرم

.Text1.Text = Inet1.OpenURL("http://mp3skull.com/")

بعد حالا همون کاری که شما میگید انجام دادم کار نمیکنه

Items = Split(Text1.Text & vbCrLf & Text1.Text & vbCrLf & Text1.Text, vbCrLf)
For Each Item In Items
If Item Like "http://*.mp3" Then MsgBox Item
Next

[SlowCode]

پسر چرا اینطوری نوشتی؟:لبخند:
خط اول بدجوری سوتی دادی.
من اینطور فرض کردم که شما تو تکست باکس لینک ها رو وارد کردی و Enter زدی. خط اول رو هم واسه نمونه نوشتم! باید اینطوری مینوشتی:
Items = Split(Text1.Text)
ولی چون سورس html رو میخونی قضیه یکم فرق میکنه.

اگه میخوای راحت باشی بهتره از وب بروزر استفاده کنی.

Dim link As Object

For Each link In WebBrowser1.Document.All.tags("a")
If link.href Like "http://*.mp3" Then
Text1.Text = Text1 & link.href & vbCrLf
End If
Next

خاصیت مالی لاین تکست باکس رو روشن کن بعد این کد رو مثلا داخل یه دکمه بنویس.
در ضمن تو صفحه اول سایت لینک آهنگ وجود نداره. فقط صفحه html اون آهنگ ها هست، یکیشون رو انتخاب کن تا لینکها برات بیان.

نمیدونم چیکار میخوای بکنی ولی میتونی تو صفحه اصلی هم لینکها رو بخونی بریزی تو یه لیست باکس بعد روی هرکدوم دابل کلیک شد لینک های داخل اون صفحه رو بخونی و دوباره بریزی داخل یه لیست باکس دیگه.
از لیست Tree view هم میتونی استفاده کنی.

[saeedhord]

مرسی داداشی

یه سوال دیگه چجوری میتونم ایتم هارو از تکس باکس بریزم تو لیست باکسم :-؟

[SlowCode]

نیازی نیست از تکست باکس بریزی تو لیست باکس. کافیه به جای اضافه کردن به تکست باکس به لیست باکس اضافه کنی.

Dim link As Object

For Each link In WebBrowser1.Document.All.tags("a")
If link.href Like "http://*.mp3" Then
List1.AddItem link.href
End If
Next

[saeedhord]

نیازی نیست از تکست باکس بریزی تو لیست باکس. کافیه به جای اضافه کردن به تکست باکس به لیست باکس اضافه کنی.

Dim link As Object

For Each link In WebBrowser1.Document.All.tags("a")
If link.href Like "http://*.mp3" Then
List1.AddItem link.href

End If
Next





اخرین سوال x_X میخوام هر ایتم رو یه خط در میون بنویسه :دی

[SlowCode]

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