[AhmedEissa]

السلام عليكم

كما هو واضح من العنوان مطلوب إعادة كتابة هذا الكود ليتوافق مع أكواد VBScript

PHP كود :

       Public Shared Sub chrcts()
            dclr.spll = Strings.Split(dclr.cc, "-", -1, CompareMethod.Binary)
            Dim index As Short = 1
            Do While True
                dclr.rc_km(Conversions.ToShort(Strings.LSet(dclr.spll(index), 1)))
                dclr.spll(index) = (dclr.crct & Strings.Mid(dclr.spll(index), 2, 4))
                index = CShort((index + 1))
                If (index > 3) Then
                    Dim strArray As String() = New String() { dclr.spll(0), "-", dclr.spll(1), "-", dclr.spll(2), "-", dclr.spll(3), "-", dclr.spll(4) }
                    dclr.cc = String.Concat(strArray)
                    Return
                End If
            Loop
        End Sub 


وشكراً  جزيلاً مقدماً

---

كذلك يرجى التفضل بالإشارة لأى كورس باللغة العربية أو كتاب PDF يتناول الشرح لهذا الموضوع " VBScript "