تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التاكد من تنسيق عنوان ويب
#1
كاتب الموضوع : سعود

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته.

كنت زمان ايام فيجوال بيسك 6.0 محتار كيف اتاكد من تنسيق النص هل هو فعلا عنوان ويب صحيح ام لا والان مع الدوت نت اجدني مرتاح البال فهذا كود ابسط ما يكون للتحقق من عنوان الويب

والتحقق بحر اخترت منه بداية النص وهو http://

فاليكم الكود ....

كود :
[color=#000000][COLOR=#0000bb]   [/color][color=#007700]If [/color][color=#0000bb]Not TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]StartsWith[/color][color=#007700]([/color][color=#dd0000]"http://"[/color][color=#007700]) [/color][COLOR=#0000bb]Then
            Dim x [/COLOR][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][COLOR=#0000bb]Text

            TextBox1[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= ([/color][color=#dd0000]"http://" [/color][color=#007700]& [/color][color=#0000bb]x[/color][COLOR=#007700])



        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If  
[/COLOR][color=#0000bb][/color][/COLOR]


ومثلها للتاكد من نهاية نص الايميل مثل

كود :
[color=#000000][COLOR=#0000bb][/color][color=#007700]If [/color][color=#0000bb]Not TextBox2[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]EndsWith[/color][color=#007700]([/color][color=#dd0000]"@hotmail.com"[/color][color=#007700]) [/color][COLOR=#0000bb]Then
            MsgBox[/COLOR][color=#007700]([/color][color=#dd0000]"يرجى التاكد من البريد"[/color][COLOR=#007700])

        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If  
[/COLOR][color=#0000bb][/color][/COLOR]



واذا كانا مربعي نص واحد لعنوان ويب والاخر لبريد

كود :
[color=#000000][COLOR=#0000bb]      [/color][color=#007700]If [/color][color=#0000bb]Not TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]StartsWith[/color][color=#007700]([/color][color=#dd0000]"http://"[/color][color=#007700]) [/color][COLOR=#0000bb]Then
            Dim x [/COLOR][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][COLOR=#0000bb]Text

            TextBox1[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= ([/color][color=#dd0000]"http://" [/color][color=#007700]& [/color][color=#0000bb]x[/color][COLOR=#007700])
        ElseIf [/COLOR][color=#0000bb]Not TextBox2[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]EndsWith[/color][color=#007700]([/color][color=#dd0000]"@hotmail.com"[/color][color=#007700]) [/color][COLOR=#0000bb]Then
            MsgBox[/COLOR][color=#007700]([/color][color=#dd0000]"يرجى التاكد من البريد"[/color][COLOR=#007700])

        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If  
[/COLOR][color=#0000bb][/color][/COLOR]

هذا ليطمئن قلب من انتقل للدوت نت وان لا يفكر بـ 6.0
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال للحفاظ على تنسيق الاداوت اثناء تكبير الفورم في الفيجول دوت نت 2008 RaggiTech 0 960 17-10-12, 08:40 PM
آخر رد: RaggiTech
  معرفة اسم الدومين من عنوان الأي بي ip RaggiTech 0 348 17-10-12, 06:18 PM
آخر رد: RaggiTech
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 216 17-10-12, 06:17 PM
آخر رد: RaggiTech
  للتأكد من أن عنوان البريد الاكتروني صحيح (باستعمال ال Regular Expressions) RaggiTech 0 294 17-10-12, 06:14 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم