تقييم الموضوع :
  • 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,071 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 2,623 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
  سؤال عن اداة النص AhmedSamir3 16 5,878 19-08-13, 09:44 PM
آخر رد: AGASHE
  مرحبا؟اريد كود تصوير الفورم ووضع الصورة في اداة مربع النص واظهار حوار لحفظ الصورة بتنسيق bmp وشكرا طارق 2 3,331 13-08-13, 04:32 AM
آخر رد: VB_Coder
  التعرف على الافلات asto 2 1,769 05-08-13, 11:09 PM
آخر رد: asto
  تغير لون النص الكوماند عند مرور المؤشر عليه ويرجع اللون الى اصله عند ابتعاد المؤشر عنه علي عبد الوهاب 2 2,433 31-07-13, 09:21 PM
آخر رد: عبد الله190
  جعل مربع النص يقبل أرقام فقط Ahmed Abdulla 5 7,085 22-07-13, 05:20 PM
آخر رد: الهجري
  كيف اعمل text.SetFocus اخر النص ابو بدران 5 3,041 21-07-13, 09:30 PM
آخر رد: ابو بدران

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


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