تقييم الموضوع :
  • 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 ك ب / التحميلات : 7)
الرد
تم الشكر بواسطة: سعود
#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 ك ب / التحميلات : 12)
الرد
تم الشكر بواسطة:
#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 على تفضلك بالكود
ما قصرت بارك الله فيك ، ونفعنا الله بعلمك مدى الزمان .
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] سؤال مهم : كيفية عمل progress bar يتحرك فعليا مع تنفيذ العمليات التي يتم اجراؤها hamada salah90 2 185 22-12-21, 07:50 PM
آخر رد: hamada salah90
  [vb6.0] كيفية تغيير خاصية Style للCommandButton في زمن التنفيذ ياسر عبد الكريم 0 486 16-11-20, 09:00 PM
آخر رد: ياسر عبد الكريم
  سؤال حول كيفية تصغيرحجم الخط ليناسب حجم التكست بوكس عن طريق الكود haider kh 6 1,416 04-07-20, 05:00 PM
آخر رد: haider kh
Heart [سؤال] مساعده كيفية اضافة محتوى ملف نصي txt على المشروع؟ eapda 2 954 22-06-20, 03:52 PM
آخر رد: eapda
  منع تكرار كلمة في حال وجود اكثر من textbox gonm64 2 779 25-05-20, 03:23 AM
آخر رد: gonm64
  [vb6.0] برجاء الافادة عن كيفية جمع عدد ساعات MEDHAT_R_S 1 867 22-03-20, 12:14 AM
آخر رد: Amir_Alzubidy
  [سؤال] كيفية منع تكرار رقم الفاتورة او العقد tlbreem 3 1,162 20-03-20, 03:04 PM
آخر رد: Amir_Alzubidy
  سوال اخوانى الاحباب كيفية الجمع و الطرح فى اكتف ريبورت mhareek 1 1,007 14-01-20, 05:21 AM
آخر رد: Ahmed_Mansoor
  كيفية استعمال دالة sum مع التاريخ للشهر والسنة gonm64 5 1,315 24-12-19, 09:20 PM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية تعديل النصوص الموجودة في تطبيق يستخدم res بالفيجوال بيسك 6 بوعيسى 0 938 24-10-19, 10:16 PM
آخر رد: بوعيسى

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


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