[Ahmed_Mansoor]

أهلا أخي الكريم ، جرب الكود التالي :

PHP كود :

Dim OrgLine As String
Dim TmpLine As String
Dim NewLine As String
Dim Lines_Array() As String
Dim Is_individual As Boolean
Dim LeftIndex As Integer
Dim RightIndex As Integer
Dim Lines_Count As Integer
Dim I As Integer

OrgLine = "2015"
TmpLine = OrgLine
LeftIndex = 1
RightIndex = Len(OrgLine)
Lines_Count = 1

IF Len(OrgLine) Mod 2 = 0 Then
    Is_individual = False
Else
  Is_individual = True
End IF

ReDim Lines_Array(1 To Lines_Count) As String

Lines_Array(Lines_Count) = OrgLine

Do

      IF LeftIndex = RightIndex Then
          IF Is_individual = True Then
              NewLine  = NewLine & Mid$(TmpLine,LeftIndex,1)
          End IF
          Lines_Count = Lines_Count + 1
          ReDim Preserve Lines_Array(1 To Lines_Count) As String
          Lines_Array(Lines_Count) = NewLine
          IF NewLine = OrgLine Then Exit Do
          TmpLine = NewLine
           NewLine = ""
           LeftIndex = 1
           RightIndex = Len(TmpLine)
      Else
          NewLine  = NewLine & Mid$(TmpLine,LeftIndex,1)
          NewLine  = NewLine & Mid$(TmpLine,RightIndex,1)
          LeftIndex = LeftIndex + 1
          RightIndex = RightIndex - 1
      End IF

Loop

For I = LBound(Lines_Array) To UBound(Lines_Array) 
      MsgBox Lines_Array(I)
Next 


ملاحظه : لم أجرب الكود لأني كتبته من الهاتف لكن إن شاء الله يعمل بشكل جيد