ما هو كود استخلاص عنوان الموقع من اول www الى com

النص اللى هتبحث فيه عبارة عن جملة بسيطة برابط واحد مثلا و صفحة HTML أو PHP أو غيره ؟

الأخ الفاضل ...

DomainExtractor.zip

أرجوأ أن يفيدك هذا المثال فى ما تريد إنجازه

بإستخدام (MS-VB 6.0)

Private Function ExtractDomain(sFAddress As String) As String
	Dim sAddress As String
	Dim ch As String
	Dim n As Long

	' Get address
	sAddress = Trim(sFAddress)

	' Convert all to ascii, sometimes / wrote as %2F, ? wrote as %3F
	sAddress = Replace(sAddress, "%2F", "/", , , vbTextCompare)
	sAddress = Replace(sAddress, "%3F", "?", , , vbTextCompare)

	' Remove prefix, like http:, ftp:, ... etc
	sAddress = Right$(sAddress, Len(sAddress) - InStr(1, sAddress, ":"))

	' Remove prefix /, sometimes like file protocol appears more 2 /, file:///
	Do
		ch = Mid$(sAddress, 1, 1)
		If ch = "/" Then sAddress = Right$(sAddress, Len(sAddress) - 1)
	Loop While ch = "/"

	' Remove suffix /, sometimes extra links, like domain.com/sub/dir/page.htm
	n = InStr(1, sAddress, "/")
	If n Then sAddress = Left$(sAddress, n - 1)

	' Remove suffix ?, sometimes extra links, like domain.com?pageId=241
	n = InStr(1, sAddress, "?")
	If n Then sAddress = Left$(sAddress, n - 1)

	' Now, at here you get the domain name
	ExtractDomain = Trim(sAddress)
End Function

شكراً

أخي , انا حتى الآن بأدور على دالة تلغي أجزاء معينة من النص وتستخلص الباقي ,

(إحنا في الهوا سوا)

ههههههه

انا عندي حل بس خايف تقوله عليه بدائي علشان كده مش عايز ارد علي الموضوع من الاول يمكن فيه اكواد احسن من اللي انا هعمله علي العموم لحظات وراجع

أخى أسامة أعتقد أنه عايز Parser كامل لجملة ما مش بس الـ Domain Name

kindy_ibrahim كتب:

انا عندي حل بس خايف تقوله عليه بدائي علشان كده مش عايز ارد علي الموضوع من الاول يمكن فيه اكواد احين من اللي انا هعمله علي العموم لحظات وراجع

مفيش حاجة أسمها بدائية طالما أنك عندك حل حطه , ده علم يعنى مفيش كسوف.

Private Sub Form_Load()
Dim x As String
Dim z As Integer
Dim y() As String
x = "http://www.kindy.com"
y = Split(x, ".")
x = ReplaceAll(x, "http://www.", "")
x = ReplaceAll(x, ".com", "")

Text1.Text = x

End Sub
Function ReplaceAll(SourceString As String, ReplaceThis As String, WithThis As String)
	Dim Temp As Variant
	Temp = Split(SourceString, ReplaceThis)
	ReplaceAll = Join(Temp, WithThis)
End Function

طبعاً تحط كل الاحتمالات هنا زي كده

x = ReplaceAll(x, "http://www.", "")
x = ReplaceAll(x, ".com", "")

علشان كده هو بدائي

Kindy_ex.rar

مبروك يا محمد بقيت من اعضاء الشرف

هو تقريبا شبه كود الاخ Eng. Usama El-Mokadem

بس الكود بتاعة فيه ديناميكية اكتر مع انه طويل

الف شكر يا باشمهندس اسامة جربت الكود وشغال 10 على 10