السلام عليكم
dim a as string
a=inputbox("hello","hello")
for i=1 to len(a)
print tab(20);mid(a,i,1)
next i
هذا الكود يقوم بجعل النص عمودى بالاحرف
المهم ما اريده هو اذا كتبت كلمتين وبينهما مسافة فيقسم الكلام من عند المسافة
اى اذا صادف مسافة فى النص يقسم الكلام او يقوم بعمل اى حدث المهم يحس بالمسافة
جزاكة الله خيرا
جرب هذا
Dim a As String
a = InputBox("hello", "hello")
k = 10
For i = 1 To Len(a)
If Mid(a, i, 1) = " " Then k = 20
Print Tab(k); Mid(a, i, 1)
Nextأشكرك اخى الفاضل
ساجرب واقول لك
الف شكر
اخى الفاضل
لقد عمل الكود جيدا ولكن
انا اود عندما يقبل مسافة ان يستقطع الكلمة التى قبل المسافى ويطبعها فى سطر مثلا
ثم يستانف بعد المسافة مع الكلمة الاخرى
المهم كل مايقابل مسافة يستقطع كلمة ويستانف
انا فى غاية الخجل للازعاج
لك جزيل الشكر
هذا الموضوع مغلق.