تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استفسار حول اضافة
#2
لا اعلم من أين سوف تقرأ الملف

لكن لو افترضنا ان لديك ملف علي الكمبيوتر فيه البيانات التي تحدثت عنها أي أن الملف سيكون به سطران السطر الأول به رقم 1 و السطر الثاني به رقم 2
أو ان الملف سيكون به سطرا واحدا فقط و هذا السطر به القيمة 1

يمكنك استخدام الكود بالشكل التالي

PHP كود :
 Friend Function GetLineText(ByRef LineText As StringvalueToRead As String) As String
        LineText 
valueToRead
        Return valueToRead
    End 
Function


 
       Dim linePosition As Integer 0
        Dim line 
As String CType(NothingString)
 
       Dim lines As List(Of String) = New List(Of String)

 
       Dim file As New System.IO.StreamReader("c:\RiverNile\values.txt")
 
       While (GetLineText(linefile.ReadLine())) IsNot Nothing
            lines
.Add(line)
 
           linePosition += 1
        End 
While
 
       file.Close()
 
       If lines.Count >= 2 Then
            MessageBox
.Show("info""under maintenance")
 
           Me.Close()
 
       Else
            
' do something  or do nothhing
        End If 
لا تنسي تغيير مكان الملف بملف علي جهازك انت

حل اخر
و هو انك بعد ان تحصل علي المصفوفة التي تحتوي علي كل سطر موجود بالملف ممكن تعمل Loop علي جميع الاسطر بالشكل التالي

PHP كود :
       For Each s As String In lines
            If s
.StartsWith("2"Then
                MessageBox
.Show("info""under maintenance")
 
               Me.Close()

 
           Else
                
' do something  or do nothhing
            End If
        Next 
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
RE: استفسار حول اضافة - بواسطة silverlight - 23-08-16, 03:07 PM


التنقل السريع :


يقوم بقرائة الموضوع: