09-08-14, 06:19 PM
من الامور المتواجدة في المبرمج هو الخيال الواسع لديه في تطوير البرمجيات بأسلوب مهني وذلك عن طريق الممارسة في كتابة الاكواد بصورة مختلفة وهو كتابة كود معين لعمل إجراء معين دون اللجوء الى استخدام إجراء موجود مسبقا في net FrameWork فعمل مثل هذه الاكواد تساعد على رفع تسبة الخيال البرمجي لدى المبرمج وهذا ما أراه ( ايش رايكم في الكلام هذا صحيح أو غير صحيح)
فمشاركتي هذه تختصر في كتابة كود يقوم بتقسيم وتخزين قيمة نصية في مصفوفة أحادية البعد من دون إستخدام الاداة (string.split) فمثلا عندي قيمة نصية تساوي
dim StrValue as string = Hello World From Earth To sky
فبعد تقسيم القيمة ووضعها في مصفوفة تصبح قيمتها كالاتي
index(0) = Hello
index(1) = World
index(2) = From
index(3) = Earth
index(4) = To
index(5) = Sky
بالامكان تقسيم هذه القيمة بمجرد استدعاء الاجراء string.split
dim array() as string = StrValue.split
ولكن انا عندي كود يقوم بالتقسيم دون اللجوء الى هذا الاجراء وهو
Dim StrValue As String = "Hello World From Earth To Sky"
Dim array1(0) As String
Dim chr As Char = " "c
Dim IndexCounter As Integer = 0
For i As Integer = 0 To StrValue.Length - 1
Dim SpaceIndex As Integer = StrValue.IndexOf(" ")
If SpaceIndex = -1 Then
Exit For
End If
If chr = StrValue(i) Then
Dim index As Integer = StrValue.IndexOf(" ")
array1(IndexCounter) = StrValue.Substring(0, index)
Dim RemoveUsedStr As String = StrValue.Remove(0, index).TrimStart
StrValue = RemoveUsedStr
IndexCounter += 1
i = 0
ReDim Preserve array1(IndexCounter)
End If
Next
array1(IndexCounter) = StrValue
For Each item As String In array1
Console.WriteLine(item)
Next
إن شاء ماكنتش طولت عليكم وان شاء الله يكون الكود مفهوم ........ والمغزى من طرحي لهذا الموضوع هو ان يكون هناك مشاركات مختلفة لا تختصر في كيفية عمل كود معين لإجراء معين بل كيف تم عمل هذا الكود مثل string.split فياريت يكون هناك مشاركات أخرى من الاعضاء وشكرا
فمشاركتي هذه تختصر في كتابة كود يقوم بتقسيم وتخزين قيمة نصية في مصفوفة أحادية البعد من دون إستخدام الاداة (string.split) فمثلا عندي قيمة نصية تساوي
dim StrValue as string = Hello World From Earth To sky
فبعد تقسيم القيمة ووضعها في مصفوفة تصبح قيمتها كالاتي
index(0) = Hello
index(1) = World
index(2) = From
index(3) = Earth
index(4) = To
index(5) = Sky
بالامكان تقسيم هذه القيمة بمجرد استدعاء الاجراء string.split
dim array() as string = StrValue.split
ولكن انا عندي كود يقوم بالتقسيم دون اللجوء الى هذا الاجراء وهو
Dim StrValue As String = "Hello World From Earth To Sky"
Dim array1(0) As String
Dim chr As Char = " "c
Dim IndexCounter As Integer = 0
For i As Integer = 0 To StrValue.Length - 1
Dim SpaceIndex As Integer = StrValue.IndexOf(" ")
If SpaceIndex = -1 Then
Exit For
End If
If chr = StrValue(i) Then
Dim index As Integer = StrValue.IndexOf(" ")
array1(IndexCounter) = StrValue.Substring(0, index)
Dim RemoveUsedStr As String = StrValue.Remove(0, index).TrimStart
StrValue = RemoveUsedStr
IndexCounter += 1
i = 0
ReDim Preserve array1(IndexCounter)
End If
Next
array1(IndexCounter) = StrValue
For Each item As String In array1
Console.WriteLine(item)
Next
إن شاء ماكنتش طولت عليكم وان شاء الله يكون الكود مفهوم ........ والمغزى من طرحي لهذا الموضوع هو ان يكون هناك مشاركات مختلفة لا تختصر في كيفية عمل كود معين لإجراء معين بل كيف تم عمل هذا الكود مثل string.split فياريت يكون هناك مشاركات أخرى من الاعضاء وشكرا