منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كتابة فاصل ما بين كل رقم في التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كتابة فاصل ما بين كل رقم في التكست بوكس (/showthread.php?tid=3035)

كتابة فاصل ما بين كل رقم في التكست بوكس - AHMED213 - 28-05-14

السلام عليكم ورحمة الله تعالى وبركاته
اخواني الافاضل اعضاء المنتدي هلا ساعدتموني رجاءا
اريد ان اكتب في التكست بوكس ارقام و بين كل رقمين فاصلين مثل 12 01 86 73 07
FAIRE 2 ESPACE ENTRE DEUX CHIFRES
وشكرا مسبقا

RE: كتابة فاصل ما بين كل رقم في التكست بوكس - vbnet - 28-05-14

(28-05-14, 10:00 PM)AHMED213 كتب : ...
اريد ان اكتب في التكست بوكس ارقام و بين كل رقمين فاصلين مثل
12 01 86 73 07
FAIRE 2 ESPACE ENTRE DEUX CHIFRES
...

.....
كود :
Private Sub Command1_Click()
    Text2.Text = MySplit(Text1.Text)
End Sub

Function MySplit(n As String) As String
    Dim i As Integer
    For i = 1 To Len(n) Step 2
        MySplit = MySplit & Mid(n, i, 2) & " "
    Next i
    MySplit = Trim(MySplit)
End Function


RE: كتابة فاصل ما بين كل رقم في التكست بوكس - AHMED213 - 29-05-14

مشكووووووووووووووووووووور اخي الفاضل و الله ما قصرت
لكن انا اريد الكتابة مباشرة في التكست بوكس ارقام الهاتف المتكونة من عشرة ارقام
بشرط ان يكون فاصلين ما بين كل رقمين مثل
12 01 86 73 07
00 55 33 75 07
[/align] 33 55 33 75 07

RE: كتابة فاصل ما بين كل رقم في التكست بوكس - vbnet - 29-05-14

(29-05-14, 01:01 PM)AHMED213 كتب : ...
لكن انا اريد الكتابة مباشرة في التكست بوكس ارقام الهاتف المتكونة من عشرة ارقام بشرط ان يكون فاصلين ما بين كل رقمين مثل
12 01 86 73 07
00 55 33 75 07
33 55 33 75 07

.....
كود :
Private Sub Command1_Click()
    Text2.Text = MySplits(Text1.Text)
End Sub

Function MySplits(s As String) As String
    Dim l() As String
    l = Split(s, vbNewLine)
    Dim y As Integer
    For y = 0 To UBound(l) - 1
        Dim i As Integer
        For i = 1 To Len(l(y)) Step 2
            MySplits = MySplits & Mid(l(y), i, 2) & " "
        Next i
        MySplits = Trim(MySplits) & vbNewLine
    Next y
    MySplits = Trim(MySplits)
End Function


RE: كتابة فاصل ما بين كل رقم في التكست بوكس - AHMED213 - 29-05-14

[attachment=1882]ها هو مثالي لاجل التعديل عليه

RE: كتابة فاصل ما بين كل رقم في التكست بوكس - a_almisery - 29-05-14

غير الحدث الى change في التكست بـوكس
Text2.Text = MySplit(Text1.Text)


اضغط ع التكست بوكس مرتان واكتب الكود

RE: كتابة فاصل ما بين كل رقم في التكست بوكس - AHMED213 - 30-05-14

[attachment=1886]عفوا ها هو المثال المعدل عليه