23-06-17, 07:14 AM
(آخر تعديل لهذه المشاركة : 23-06-17, 07:17 AM {2} بواسطة silverlight.)
الملف الاصلي و هو ALLWGS
قرائته تستغرق من 40 - 70 مللي ثانية
لكي يتضح لك الأمر قليلا
افتح مشروع عادي و ضع الملف الرئيسي في فهرس المشروع
و اكتب الكود التالي
انا قرات الملف و قرأت Header لوحده و الارقام لوحدها
إنسي BackfroundWorker حاليا
دعنا نتحرك خطوة بخطوة
قرائته تستغرق من 40 - 70 مللي ثانية
لكي يتضح لك الأمر قليلا
افتح مشروع عادي و ضع الملف الرئيسي في فهرس المشروع
و اكتب الكود التالي
انا قرات الملف و قرأت Header لوحده و الارقام لوحدها
PHP كود :
Public Class Form1
Private timeToreadAllFile As String = ""
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim fpath As String = ".\ALLWGS.txt"
' توقيت لمعرفة المدة الزمنية لقراءة الملف كله
Dim sw As New Stopwatch
' تشغيل التايمر
sw.Start()
' قراءة الملف الرئيسي
Dim s = IO.File.ReadAllLines(fpath)
' إيقاف التايمر
sw.Stop()
' معرفة المدة الزمنية التي استغرقها قراءة الملف
timeToreadAllFile += sw.ElapsedMilliseconds.ToString
Dim i As Integer = Integer.Parse(timeToreadAllFile)
Me.Text = i.ToString
' مصفوفة رأس الملف فقط
Dim headeLines As String() = New String(6) {}
For i = 0 To 6
headeLines(i) = s(i)
Next
' مصفوفة الارقام فقط
Dim lines As List(Of String) = New List(Of String)
For j As Integer = headeLines.Length To s.Length - 1
lines.Add(s(j))
Next
End Sub
End Class
إنسي BackfroundWorker حاليا
دعنا نتحرك خطوة بخطوة

