تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مطلوب كود حساب حروف النص بلا مسافات
#1
السلام عليكم ورحمة الله
مطلوب كود حساب حروف النص بلا مسافات
فمثلا ( بسم الله الرحمن الرحيم ) 19 حرف
ولكم جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- أدرج على الفورم Text1 و Label1 و Command1 ثم ضع هذا الكود في داخل كود الزر Command1 :

كود :
Dim zStr As String

zStr = Replace$(Trim$(Text1.Text), " ", "")

Label1.Caption = Len(Trim$(zStr))

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: ناجي إبراهيم
#3
شكرا جزيلا
بارك الله فيك
وجزيت خيرا كثرا
الرد }}}}
تم الشكر بواسطة: VB_Coder


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أضافة كلمة لأخر النص Jonewickk 1 65 27-10-16, 11:24 PM
آخر رد: Ahmed_Mansoor
  اريد تعديل هذا الكود للبحث لاى كلمه فى النص رجل الكهرباء 2 120 03-10-16, 02:19 AM
آخر رد: رجل الكهرباء
  [ تمّ الحل ] : حساب الفرق بين تاريخين عبد العزيز البسكري 6 215 24-09-16, 12:31 AM
آخر رد: Amir_alzubidy
  احتاج الى الكود لتحويل الارقام الى حروف hicham716 10 439 07-07-16, 09:29 PM
آخر رد: hicham716
  [سؤال] حساب مواقيت الصلاة بالفيجوال بيسك 6 بوعيسى 7 330 29-06-16, 02:00 AM
آخر رد: بوعيسى
  [سؤال] تحويل النص من ping الى text (التعرف على النصوص) hsansalhh 4 189 26-06-16, 01:52 PM
آخر رد: hsansalhh
  حساب مجاميع الحركات المالية هل يمكن مع فيجوال بيسك ؟ princeofislam 13 710 10-04-16, 10:01 AM
آخر رد: Ahmed_Mansoor
  [سؤال] مطلوب كود تفقيط الأرقام بالانجليزي aboezzat84 2 203 07-04-16, 02:56 PM
آخر رد: aboezzat84
  [vb6.0] كود منع تكرار و حساب عدد mohfar 9 410 08-03-16, 02:35 PM
آخر رد: Ahmed_Mansoor
  كشف حساب الموردين ahmedabdelaliem 16 948 01-03-16, 10:42 AM
آخر رد: mhareek

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


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