تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
دمج مجموعة مربعات نصوص
#11
معذرة أخي ، يجب أن يدخل المستخدم البيانات في مستند نص واحد فقط بحيث يكون ما يدخله مجموع واحد من المجموعة الأولي + واحد من المجموعة الثانية + واحد من المجموعة الثالثة
الرد }}}
تم الشكر بواسطة:
#12
السلام عليكم

تفضل


الملفات المرفقة
.rar   New folder3.rar (الحجم : 2.61 ك ب / التحميلات : 47)
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#13
جزاك الله خيرا يا أخي الكريم وبارك لك في علمك

كيف يمكنني إزالة المسافات بحيث أكتب ما هو داخل المربع فقط بدون مسافات وجزاك الله خيرا ؟؟
يعني 741 وليس 7 4 1
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#14
تفضل
PHP كود :
Private Sub Command2_Click()
Dim m As String
sp 
Split("1 2 3 4 5 6 7 8 9"" ")


For 
0 To UBound(sp)
Trim((sp(i)))
 
      
Next
MsgBox m
End Sub 
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#15
لم أفهم أخي الكريم ، أنا عندما أدخل الأرقام كما أعطيتني الكود مشكورا يلزمني أن أضع بينها مسافات فيجب أن أكتب 1 4 7 ليعتبرها صحيحة ، وأنا أريد أن أكتب 147 هكذا بدون مسافات ، وسامحني لكثرة أسئلتي ..
الرد }}}
تم الشكر بواسطة:
#16
أهلا أخي الكريم , هذا تعديل على مثال الأخ العزيز السندباد100 .


الملفات المرفقة
.rar   Newfolder3_1.rar (الحجم : 2.87 ك ب / التحميلات : 48)
الرد }}}
تم الشكر بواسطة: sendbad100
#17
السلام عليكم و رحمة الله وبركاته
لقد أتعبتكم جدا معي ولكن باقي مشكلة بسيطة خالص أحتاج إلي حلها
عند تنفيذ الأمر فإنه يكتب صحيح حتي لو كتبت شيئا بعد النصوص
يعني لو كتبت واحد أربعة سبعة فإنه يقول صحيح
ولو كتبت واحد أربعة سبعة عشرة خمستاشر فإنه يقول صحيح برضه
أريده أن يكتب صحيح فقط إذا كانت واحد أربعة سبعة دون شيء ورائها
وجزاكم الله خيرا كثيرا
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#18
وعليكم السلام و رحمة الله وبركاته

أهلا بك أخي الكريم , تم تعديل المثال .


الملفات المرفقة
.rar   Newfolder3_2.rar (الحجم : 2.92 ك ب / التحميلات : 31)
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#19
السلام عليكم و رحمة الله و بركاته
جزاك الله خيرا علي الاستجابة و زادك علما ، بقيت مشكلة أخري ..
أن الكود يعمل بالترتيب الأصلي والعكسي
يعني واحد أربعة سبعة و
سبعة أربعة واحد
أنا أريد واحد أربعة سبعة فقط
وجزاك الله خيرا كثيرا
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy
#20
السلام عليكم
فكرتي كالاتي وعليك تحويلها الى كود
بالاضافة الى
أنا اعمل فقط على vb.Net ولست متأكد من أن الفكرة يمكن تطبيقها في vb6

قم بتقطيع النص من التكست بوكس وضع نص كل تكست بوكس داخل مصفوفة خاصة
ثم أختبر تشابه الكلمة الاولى مع أي كلمة من المجموعة الاولى وكذلك الكلمة الثانية مع المجموعة الثانية وهكذا ...

PHP كود :
   Private Function CheckWord(word As Stringqueue As String()) As Boolean

        For i 
As Integer 0 To UBound(queue)
 
           If word queue(iThen Return True
        Next

        Return False
    End 
Function

Private 
Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click

        Dim txt 
As String TextBox1.Text
        Dim words
() As String txt.Split(" ")
 
       Dim queue_1queue_2queue_3 As String() ' إملأها بنفسك

        If words.Count <> 3 Then Exit Sub ' 
لان عدد المجموعات 3

        If CheckWord
(words(0), queue_1) And
 
           CheckWord(words(1), queue_2) And
 
           CheckWord(words(2), queue_3Then

            MsgBox
("Exact !")
 
       End If
 
   End Sub 

أتمنى أن الفكرة قد وصلت
<يعطيك العافية>
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عمل checked على مجموعة معينة داخل listview بالفجويل باسيك 6 abdouhai 5 3,817 27-12-15, 03:41 AM
آخر رد: awidan76
  نسخ مجموعة من الملفات alglad 1 1,773 07-05-14, 10:31 PM
آخر رد: سعود
  نواة محرر نصوص متعدد الصفحات ناجي إبراهيم 19 5,930 13-06-13, 03:31 AM
آخر رد: AhmedSamir3

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


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