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

مطلوب كود لمعرفة هل هذا النص المكتوب داخل التكست بوكس هو نص عادي ام رابط انترنت ام مسار ملف
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

اتمنى انك تركز معي
الرابط او مسار الملف لا يحتوي على مسافات اذا نضع شرط عدم وجود مسافات في مربع النص
بعد هذا الشرط تستطيع وضع الشررط الثاني لمرفة الرابط او المسار
الرابط غالبا يكون بدايته " http:// " او " www. " وتستطيع وضع النهايه مثل كوم او نت .... الخ
لكن نكتفي بالبدايه ولك الحريه
والمسار لابد ان يحتوي على " :\ "
وغيرها يكون نص عادي
الموضوع عباره عن فلترة الجمله ولك حريه الفلتره بأكثر من احتمال بما يناسبك

وهذا كود بسيط ولك باقي التطوير ان اردت ذلك :

كود :
[align=left]
If InStr(1, Text1.Text, " ") > 0 Then
If Left(Text1.Text, 7) = "http://" Or Left(Text1.Text, 4) = "www." Then MsgBox "رابط انترنت"
If InStr(1, Text1.Text, ":\") > 0 Then MsgBox "مسار ملف"
Else
megbox "نص عادي"
End If
[/align]

بالتوفيق ,,,
الرد }}}}
تم الشكر بواسطة:
#3
مشكور و تمت الاستفادة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 413 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 662 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
  سؤال عن اداة النص AhmedSamir3 16 1,952 19-08-13, 09:44 PM
آخر رد: AGASHE
  مرحبا؟اريد كود تصوير الفورم ووضع الصورة في اداة مربع النص واظهار حوار لحفظ الصورة بتنسيق bmp وشكرا طارق 2 1,265 13-08-13, 04:32 AM
آخر رد: VB_Coder
  التعرف على الافلات asto 2 358 05-08-13, 11:09 PM
آخر رد: asto
  تغير لون النص الكوماند عند مرور المؤشر عليه ويرجع اللون الى اصله عند ابتعاد المؤشر عنه علي عبد الوهاب 2 687 31-07-13, 09:21 PM
آخر رد: عبد الله190
  جعل مربع النص يقبل أرقام فقط Ahmed Abdulla 5 1,971 22-07-13, 05:20 PM
آخر رد: الهجري
  كيف اعمل text.SetFocus اخر النص ابو بدران 5 778 21-07-13, 09:30 PM
آخر رد: ابو بدران
  أرجو المساعدة في تغيير النص shafiq 2 430 02-06-13, 12:25 PM
آخر رد: shafiq
  حفظ النص داخل مربع نص الحائطي 6 887 08-05-13, 03:33 AM
آخر رد: VB_Coder

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


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