تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كشف حساب للعميل w123eg 1 0 أمس, 06:35 PM
آخر رد: w123eg
  تعديل كشف حساب للعميل w123eg 0 0 22-02-18, 07:56 PM
آخر رد: w123eg
  اريد حساب checksum شيك سوم لسطر معين wolf1120 1 0 19-02-18, 11:23 PM
آخر رد: wolf1120
  حساب عمود ب هيكس ديسمال wolf1120 0 28 09-01-18, 07:52 PM
آخر رد: wolf1120
  مطلوب طريقة الفرز على حسب عمودين في جدول واحد w123eg 2 68 26-12-17, 09:33 PM
آخر رد: w123eg
  تحديد رقم حرف في النص... كيف ؟ Etos 3 122 15-10-17, 11:20 AM
آخر رد: Mohamad Anan
  مطلوب كود select all للأداة chekbox Abo Mnsour 6 229 19-07-17, 08:56 AM
آخر رد: Abo Mnsour
  برنامج حساب ساعات إضافية فيصل علي 2 288 30-03-17, 02:17 AM
آخر رد: فيصل علي
  سؤال - توزيع حروف الكلمة في التكستات بالترتيب الأبجدي abusofy 8 579 09-12-16, 11:03 AM
آخر رد: abusofy
Lightbulb سؤال - توزيع حروف الكلمة في تكستات abusofy 3 424 07-12-16, 10:25 PM
آخر رد: abusofy

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


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