تقييم الموضوع :
  • 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 192 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 508 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
  سؤال عن اداة النص AhmedSamir3 16 1,606 19-08-13, 09:44 PM
آخر رد: AGASHE
  مرحبا؟اريد كود تصوير الفورم ووضع الصورة في اداة مربع النص واظهار حوار لحفظ الصورة بتنسيق bmp وشكرا طارق 2 1,084 13-08-13, 04:32 AM
آخر رد: VB_Coder
  التعرف على الافلات asto 2 313 05-08-13, 11:09 PM
آخر رد: asto
  تغير لون النص الكوماند عند مرور المؤشر عليه ويرجع اللون الى اصله عند ابتعاد المؤشر عنه علي عبد الوهاب 2 603 31-07-13, 09:21 PM
آخر رد: عبد الله190
  جعل مربع النص يقبل أرقام فقط Ahmed Abdulla 5 1,388 22-07-13, 05:20 PM
آخر رد: الهجري
  كيف اعمل text.SetFocus اخر النص ابو بدران 5 634 21-07-13, 09:30 PM
آخر رد: ابو بدران
  أرجو المساعدة في تغيير النص shafiq 2 361 02-06-13, 12:25 PM
آخر رد: shafiq
  حفظ النص داخل مربع نص الحائطي 6 727 08-05-13, 03:33 AM
آخر رد: VB_Coder

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


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