دمج حقلين بالفراغات

بالنسة للسؤال الأول إن كنت فهمته واقولك مافهمته أنه يجمع الفراغ من الحقلين وانت تريد إزالته استخدم دالة trime()

الثاني عدد الأحرف استخدم len

أما عدد الفراغات فاستخدم

Public Function sp(str As String)

' هذه الدالة تحصي عدد الفراغات في النص

Dim A As String

For I = 1 To Len(str)

A = Mid(str, I, 1)

If A = " " Then 'التعرف على الفسحات الفارغة

sp = sp + 1 'عملية عد الفراغات

End If

Next I

End Function

اخي العزيز ابو حمود

الف شكر لتجاوبك السريع معي

بالنسبة للسؤال الاول راح اوضع لك المثال التالي :

text1="خالد" وحجم الحقل 50

text2="الدمام"وحجم الحقل 10

المطلوب عند دمجهم يكون

text2+text=text3

text3="خالد 10 "

اي يعطيني فراغات حسب حجم الحقل

اما ردك على السؤال الثاني لم اجرب المثال بعد

واشكرك واشكر الاخوان