[vbnet]

(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