20-10-23, 09:57 AM
السلام عليكم
كما هو واضح من العنوان مطلوب إعادة كتابة هذا الكود ليتوافق مع أكواد VBScript
وشكراً جزيلاً مقدماً
كما هو واضح من العنوان مطلوب إعادة كتابة هذا الكود ليتوافق مع أكواد 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 "