[RaggiTech]

من اخوات الدالة Readallbytes السابقة الذكر هي
ReadAllLines و الدالة
ReadAllText
وكما في المثال التالي

كود :

str1 = ""
Dim str2() As String
Dim s As String
str2 = File.ReadAllLines("c:/sample1.ddt")
For Each s In str2
str1 += s
Next
MessageBox.Show(str1)
str1 = ""
Dim str3 As String
str3 = File.ReadAllText("c:/sample1.ddt")

MessageBox.Show(str3)

وتقوم الدالة الاولى بقراءة الملف على شكل مصفوفة من الString ويتم قراءة المصفوفة كما هو موضح في الجزء الاول من المثال
وتقوم الدالة الثانية بقراءة جميع النص على شكل string ويمكن طباعته مباشرة بدون الحاجة الى مصفوفة وبلا هالدوخة الراس