+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : دمج مجموعة مربعات نصوص (/showthread.php?tid=20746)
RE: دمج مجموعة مربعات نصوص - المعتصم بالله القليعي - 17-06-17
معذرة أخي ، يجب أن يدخل المستخدم البيانات في مستند نص واحد فقط بحيث يكون ما يدخله مجموع واحد من المجموعة الأولي + واحد من المجموعة الثانية + واحد من المجموعة الثالثة
RE: دمج مجموعة مربعات نصوص - sendbad100 - 17-06-17
السلام عليكم
تفضل
RE: دمج مجموعة مربعات نصوص - المعتصم بالله القليعي - 17-06-17
جزاك الله خيرا يا أخي الكريم وبارك لك في علمك
كيف يمكنني إزالة المسافات بحيث أكتب ما هو داخل المربع فقط بدون مسافات وجزاك الله خيرا ؟؟
يعني 741 وليس 7 4 1
RE: دمج مجموعة مربعات نصوص - sendbad100 - 17-06-17
تفضل
PHP كود :
Private Sub Command2_Click()
Dim m As String
sp = Split("1 2 3 4 5 6 7 8 9", " ")
For i = 0 To UBound(sp)
m = m + Trim((sp(i)))
Next
MsgBox m
End Sub
RE: دمج مجموعة مربعات نصوص - المعتصم بالله القليعي - 17-06-17
لم أفهم أخي الكريم ، أنا عندما أدخل الأرقام كما أعطيتني الكود مشكورا يلزمني أن أضع بينها مسافات فيجب أن أكتب 1 4 7 ليعتبرها صحيحة ، وأنا أريد أن أكتب 147 هكذا بدون مسافات ، وسامحني لكثرة أسئلتي ..
RE: دمج مجموعة مربعات نصوص - Ahmed_Mansoor - 18-06-17
أهلا أخي الكريم , هذا تعديل على مثال الأخ العزيز السندباد100 .
RE: دمج مجموعة مربعات نصوص - المعتصم بالله القليعي - 18-09-17
السلام عليكم و رحمة الله وبركاته
لقد أتعبتكم جدا معي ولكن باقي مشكلة بسيطة خالص أحتاج إلي حلها
عند تنفيذ الأمر فإنه يكتب صحيح حتي لو كتبت شيئا بعد النصوص
يعني لو كتبت واحد أربعة سبعة فإنه يقول صحيح
ولو كتبت واحد أربعة سبعة عشرة خمستاشر فإنه يقول صحيح برضه
أريده أن يكتب صحيح فقط إذا كانت واحد أربعة سبعة دون شيء ورائها
وجزاكم الله خيرا كثيرا
RE: دمج مجموعة مربعات نصوص - Ahmed_Mansoor - 19-09-17
وعليكم السلام و رحمة الله وبركاته
أهلا بك أخي الكريم , تم تعديل المثال .
RE: دمج مجموعة مربعات نصوص - المعتصم بالله القليعي - 19-09-17
السلام عليكم و رحمة الله و بركاته
جزاك الله خيرا علي الاستجابة و زادك علما ، بقيت مشكلة أخري ..
أن الكود يعمل بالترتيب الأصلي والعكسي
يعني واحد أربعة سبعة و
سبعة أربعة واحد
أنا أريد واحد أربعة سبعة فقط
وجزاك الله خيرا كثيرا
RE: دمج مجموعة مربعات نصوص - Fantastico - 20-09-17
السلام عليكم
فكرتي كالاتي وعليك تحويلها الى كود
بالاضافة الى
أنا اعمل فقط على vb.Net ولست متأكد من أن الفكرة يمكن تطبيقها في vb6
قم بتقطيع النص من التكست بوكس وضع نص كل تكست بوكس داخل مصفوفة خاصة
ثم أختبر تشابه الكلمة الاولى مع أي كلمة من المجموعة الاولى وكذلك الكلمة الثانية مع المجموعة الثانية وهكذا ...
PHP كود :
Private Function CheckWord(word As String, queue As String()) As Boolean
For i As Integer = 0 To UBound(queue)
If word = queue(i) Then Return True
Next
Return False
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim txt As String = TextBox1.Text
Dim words() As String = txt.Split(" ")
Dim queue_1, queue_2, queue_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_3) Then
MsgBox("Exact !")
End If
End Sub
أتمنى أن الفكرة قد وصلت