تقييم الموضوع :
  • 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
مشكور و تمت الاستفادة
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل هنالك امكانية لطباعة النص داخل الداتا ريبورت بشكل عامودي mohammed_atallah 2 704 11-09-22, 06:00 PM
آخر رد: mohammed_atallah
  المساعدة - في تجزئة النص hamedi2727 7 3,296 19-12-17, 07:20 PM
آخر رد: Amir_Alzubidy
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 3,074 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 2,627 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
  سؤال عن اداة النص AhmedSamir3 16 5,880 19-08-13, 09:44 PM
آخر رد: AGASHE
  مرحبا؟اريد كود تصوير الفورم ووضع الصورة في اداة مربع النص واظهار حوار لحفظ الصورة بتنسيق bmp وشكرا طارق 2 3,332 13-08-13, 04:32 AM
آخر رد: VB_Coder
  التعرف على الافلات asto 2 1,770 05-08-13, 11:09 PM
آخر رد: asto
  تغير لون النص الكوماند عند مرور المؤشر عليه ويرجع اللون الى اصله عند ابتعاد المؤشر عنه علي عبد الوهاب 2 2,434 31-07-13, 09:21 PM
آخر رد: عبد الله190
  جعل مربع النص يقبل أرقام فقط Ahmed Abdulla 5 7,087 22-07-13, 05:20 PM
آخر رد: الهجري
  كيف اعمل text.SetFocus اخر النص ابو بدران 5 3,043 21-07-13, 09:30 PM
آخر رد: ابو بدران

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


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