+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : ملء قائمة نصية من ملف نصي عند تعريفها مباشرة (/showthread.php?tid=48946)
ملء قائمة نصية من ملف نصي عند تعريفها مباشرة - justforit - 02-06-24
السلام عليكم ورحمة الله و بركاته
لم اكن اتوقع انه يمكن التعريف والتعبئة في منطقة التصريحات العامة هكذا:
PHP كود :
Dim lst As New List(Of String)(IO.File.ReadLines("C:\Users\myname\Desktop\cities.txt"))
RE: ملء قائمة نصية من ملف نصي عند تعريفها مباشرة - abdousoft - 15-12-24
يمكنك تحسين الكود الذي كتبته ليكون أكثر وضوحًا وقابلية للصيانة
Imports System.IO
Dim filePath As String = "C:\Users\myname\Desktop\cities.txt"
If File.Exists(filePath) Then
Dim cityList As New List(Of String)(File.ReadLines(filePath))
' يمكنك الآن استخدام cityList لمعالجة البيانات.
Else
Console.WriteLine("الملف غير موجود: " & filePath)
End If
التحسينات المضافة:
التحقق من وجود الملف: أضفنا تحققًا إذا كان الملف موجودًا قبل محاولة قراءته لتجنب أخطاء النظام.
استخدام متغير لتعريف مسار الملف: هذا يجعل الكود أكثر مرونة إذا أردت تغيير المسار بسهولة.
التعليقات: إضافة تعليقات لزيادة وضوح الكود.
إدارة الأخطاء: إذا لم يكن الملف موجودًا، ستظهر رسالة خطأ توضح ذلك.