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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية عمل group على اكثر من متغير ف تقرير active report 2 aboezzat84 1 401 12-02-22, 11:00 PM
آخر رد: Taha Okla
  [vb6.0] سؤال مهم : كيفية عمل progress bar يتحرك فعليا مع تنفيذ العمليات التي يتم اجراؤها hamada salah90 2 614 22-12-21, 07:50 PM
آخر رد: hamada salah90
  [vb6.0] كيفية تغيير خاصية Style للCommandButton في زمن التنفيذ ياسر عبد الكريم 0 682 16-11-20, 09:00 PM
آخر رد: ياسر عبد الكريم
  سؤال حول كيفية تصغيرحجم الخط ليناسب حجم التكست بوكس عن طريق الكود haider kh 6 1,757 04-07-20, 05:00 PM
آخر رد: haider kh
Heart [سؤال] مساعده كيفية اضافة محتوى ملف نصي txt على المشروع؟ eapda 2 1,193 22-06-20, 03:52 PM
آخر رد: eapda
  منع تكرار كلمة في حال وجود اكثر من textbox gonm64 2 973 25-05-20, 03:23 AM
آخر رد: gonm64
  [vb6.0] برجاء الافادة عن كيفية جمع عدد ساعات MEDHAT_R_S 1 1,116 22-03-20, 12:14 AM
آخر رد: Amir_Alzubidy
  [سؤال] كيفية منع تكرار رقم الفاتورة او العقد tlbreem 3 1,456 20-03-20, 03:04 PM
آخر رد: Amir_Alzubidy
  سوال اخوانى الاحباب كيفية الجمع و الطرح فى اكتف ريبورت mhareek 1 1,258 14-01-20, 05:21 AM
آخر رد: Ahmed_Mansoor
  كيفية استعمال دالة sum مع التاريخ للشهر والسنة gonm64 5 1,616 24-12-19, 09:20 PM
آخر رد: Ahmed_Mansoor

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


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