تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيفية قلب نص TextBox من اليمين إلى اليسار
#1
السلام عليكم يا عالم المبرمجين


لو سمحتم أريد كود يمكنه أن يعكس النص من اليمين إلى اليسار 

مثال مرفق :

أريد الكود أن يعكس النص التالي :
12,13,14,20,30,40

ليصبح بعد عكسه إلى التص التالي :
40,30,20,14,13,12

مرفق لكم مشروع مبسط لتسهيل الموضوع !

ولكم خالص الشكر والتقدير .


الملفات المرفقة
.rar   Reverse_Text.rar (الحجم : 1.56 ك ب / التحميلات : 11)
الرد }}}
تم الشكر بواسطة: سعود
#2
وعليكم السلام ورحمة الله وبركاته

قم باضافة Listbox للنافذة واعمل لها اخفاء

واستخدم الكود التالي :
كود :
Private Sub Comman1_Click()
  Dim sStr1 As String, sStr2 As String, sStr3 As String
  Dim p, i, i1
 
  sStr1 = Text1.Text
  sStr2 = sStr1
 
  List1.Clear
 
  For p = 1 To Len(sStr1)
      For i = 1 To Len(sStr2)
          If Mid$(sStr2, i, 1) = "," Then
              sStr3 = Mid$(sStr2, 1, i - 1)
              List1.AddItem sStr3
              sStr2 = Right$(sStr2, Len(sStr2) - Len(sStr3) - 1)
              Me.Caption = sStr2
              i = 1
              Exit For
          End If
          If Len(sStr1) - p <= 0 Then
              List1.AddItem sStr2
              p = Len(sStr1)
              Exit For
          End If
      Next i
  Next p
 
  sStr1 = ""
 
  i1 = List1.ListCount - 1
  sStr1 = List1.List(i1)
  For i = -(i1 - 1) To 0
      sStr1 = sStr1 & "," & List1.List(-i)
  Next i
  Text2.Text = sStr1
End Sub
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: سعود , سعود
#3
PHP كود :
txt.Text ""
Dim lb As Integer
Dim ub 
As Integer
lb 
LBound(Split(TextBox1.Text","))
ub UBound(Split(TextBox1.Text","))
For 
ub To lb Step -1
txt
.Text txt.Text Split(TextBox1.Text",")(i)
If 
0 Then
txt
.Text txt.Text ","
End If
Next 
مشاركة لكم كتبت هذا المثال البسيط.


الملفات المرفقة
.zip   Reverse_Text.zip (الحجم : 1.94 ك ب / التحميلات : 18)
الرد }}}
تم الشكر بواسطة: نهى علي
#4
(22-12-21, 03:58 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

قم باضافة Listbox للنافذة واعمل لها اخفاء

واستخدم الكود التالي :

كود :
Private Sub Comman1_Click()
   Dim sStr1 As String, sStr2 As String, sStr3 As String
   Dim p, i, i1
   
   sStr1 = TextBox1.Text
   
   sStr2 = sStr1
   
   List1.Clear
   
   For p = 1 To Len(sStr1)
       For i = 1 To Len(sStr2)
           If Mid$(sStr1, i, 1) = "," Then
               sStr3 = Mid$(sStr2, 1, i - 1)
               List1.AddItem sStr3
               sStr2 = Right$(sStr2, Len(sStr2) - Len(sStr3) - 1)
               Me.Caption = sStr2
               i = 1
               Exit For
           End If
           If Len(sStr1) - p <= 1 Then
               List1.AddItem sStr2
               p = Len(sStr1)
               Exit For

           End If
       Next i
   Next p
   
   sStr1 = ""
   
   i1 = List1.ListCount - 1
   sStr1 = List1.List(i1)
   For i = -(i1 - 1) To 0
       sStr1 = sStr1 & "'" & List1.List(-i)
   Next i
   txt.Text = sStr1
End Sub


مساء الخير أستاذ Taha Okla

أشكرك جزيلا على تفضلك بعمل الكود للمطلوب وهو يعمل على الوضع الحالي بنسبة 100%
ولكن أستاذي كما تعلم بأن الأرقام المدخلة في TextBox ليست ثابتة فهي متغيرة حسب الحاجة
فأحيانا تكون أعداد مفردة من رقم واحد مثل ( 1 ، 2 ، 3 ) ، أو أرقام عشرية من رقمين مثل ( 11 ، 86 ، 25 ) أو أرقام مئوية مثل ( 837 ، 192 ، 200 ) 

ولكن للأسف الكود أخفق ولم يعمل بالشكل المطلوب عند تغيير بعضها إلى آحاد ، ومئات .
أنا أدخلت في TextBox  الأرقام التالية : 40,816,20,7,13,12  وللأسف الكود لم يعمل بالشكل المطلوب .

ولكن لك مني خالص الشكر والتقدير على الكود ، وما قصرت بارك الله فيك  .

(22-12-21, 05:00 PM)سعود كتب :
PHP كود :
txt.Text ""
Dim lb As Integer
Dim ub 
As Integer
lb 
LBound(Split(TextBox1.Text","))
ub UBound(Split(TextBox1.Text","))
For 
ub To lb Step -1
txt
.Text txt.Text Split(TextBox1.Text",")(i)
If 
0 Then
txt
.Text txt.Text ","
End If
Next 
مشاركة لكم كتبت هذا المثال البسيط.


مساك الله بالخير أستاذ سعود


ما شاء الله عليك الكود الذي تفضلت به رائع جدًا جدًا ما شاء الله

اشتغل الكود بنسبة 100% على كل الأرقم المدخلة سواء آحاد أو عشرات أو مئات

يعجز لساني وكذلك لوحة مفاتيح الكمبيوتر عن شكرك أستاذي .

بارك الله فيك ، ورحم الله والديك .
الرد }}}
تم الشكر بواسطة: نهى علي
#5
(22-12-21, 05:07 PM)أبو خالد الشكري كتب :
مساك الله بالخير أستاذ سعود


ما شاء الله عليك الكود الذي تفضلت به رائع جدًا جدًا ما شاء الله

اشتغل الكود بنسبة 100% على كل الأرقم المدخلة سواء آحاد أو عشرات أو مئات

يعجز لساني وكذلك لوحة مفاتيح الكمبيوتر عن شكرك أستاذي .

بارك الله فيك ، ورحم الله والديك .

الله يبشرك بالخير و الحمدلله اني قدمت فائدة هذا اليوم في منتدانا الطيب.
الرد }}}
#6
تم تصحيح الكود وهو يعمل بشكل جيد الان ..
أخطأت باسناد قيمة السلسلة المتجددة لمتغير أساسي بدل من ثانوي
نتيجة التسرع بالاجابة دون تجريب ..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة:
#7
(23-12-21, 03:55 AM)Taha Okla كتب : تم تصحيح الكود وهو يعمل بشكل جيد الان ..
أخطأت باسناد قيمة السلسلة المتجددة لمتغير أساسي بدل من ثانوي
نتيجة التسرع بالاجابة دون تجريب ..


نعم ، الآن أصبح الكود يعمل بشكل ممتاز Smile
أشكرك أستاذ Taha على تفضلك بالكود
ما قصرت بارك الله فيك ، ونفعنا الله بعلمك مدى الزمان .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart كيفية تغيير نوعية الــ DataBase أبو خالد الشكري 4 239 10-01-24, 10:55 PM
آخر رد: أبو خالد الشكري
Question [vb6.0] كيف يمكن استدعاء اسم البرنامج من النافدة هذه وضعة في textbox ؟ Microformt 1 161 02-01-24, 10:06 PM
آخر رد: Taha Okla
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 551 14-09-23, 05:12 AM
آخر رد: جلال اليمني
  [سؤال] كيفية حذف إسم شخص من listbox من دون الضغط على الإسم؟ ihabgh123 2 406 12-06-23, 10:09 PM
آخر رد: ihabgh123
  [vb6.0] كيفية برمجة ادات "Office Ribbon" في الفيجوال بيزك 0.6 Hammam Khalfi 0 428 21-04-23, 03:39 PM
آخر رد: Hammam Khalfi
Question [vb6.0] كيف اجعل الصورة تتحرك تدريجياً الى منتصف الفورة من جهة اليمين ؟ Microformt 1 367 13-04-23, 04:57 PM
آخر رد: Taha Okla
  [سؤال] كيفية عمل group على اكثر من متغير ف تقرير active report 2 aboezzat84 1 847 12-02-22, 11:00 PM
آخر رد: Taha Okla
  [vb6.0] سؤال مهم : كيفية عمل progress bar يتحرك فعليا مع تنفيذ العمليات التي يتم اجراؤها hamada salah90 2 1,325 22-12-21, 07:50 PM
آخر رد: hamada salah90
  [vb6.0] كيفية تغيير خاصية Style للCommandButton في زمن التنفيذ ياسر عبد الكريم 0 921 16-11-20, 09:00 PM
آخر رد: ياسر عبد الكريم
  سؤال حول كيفية تصغيرحجم الخط ليناسب حجم التكست بوكس عن طريق الكود haider kh 6 2,482 04-07-20, 05:00 PM
آخر رد: haider kh

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


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