السلام عليكم ورحمة الله تعالى وبركاته
اخواني الافاضل اعضاء المنتدي هلا ساعدتموني رجاءا
اريد ان اكتب في التكست بوكس ارقام و بين كل رقمين فاصلين مثل 12 01 86 73 07
FAIRE 2 ESPACE ENTRE DEUX CHIFRES
وشكرا مسبقا
(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
مشكووووووووووووووووووووور اخي الفاضل و الله ما قصرت
لكن انا اريد الكتابة مباشرة في التكست بوكس ارقام الهاتف المتكونة من عشرة ارقام
بشرط ان يكون فاصلين ما بين كل رقمين مثل
12 01 86 73 07
00 55 33 75 07
[/align] 33 55 33 75 07
(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
[attachment=1882]ها هو مثالي لاجل التعديل عليه
غير الحدث الى change في التكست بـوكس
Text2.Text = MySplit(Text1.Text)
اضغط ع التكست بوكس مرتان واكتب الكود
[attachment=1886]عفوا ها هو المثال المعدل عليه