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

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


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