تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بدل ما اقوله اقرء الي في السطر كذا ... عايز اقوله إذا وجدت هذا السطر في اي مكان افعل
#1
ده كود لقرائة سطر في ملف تكست
الملف اسمه Boo.txt السطر مكتوب فيه open my file
انا مش عايز اقول له لو لقيت هذا السطر في السطر الاول او الثاني افعل كذا
انا عايز اقول له لو لقيت هذا السطر في اي مكان من ملف التكست افعل كذا

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim objStreamReader As StreamReader
        Dim strLine As String

        'Pass the file path and the file name to the StreamReader constructor.
        objStreamReader = New StreamReader("C:\Boo.txt")

        'Read the first line of text.
        strLine = objStreamReader.ReadLine
        If strLine = "open my file" Then
            MsgBox(strLine)
        End If



        'Continue to read until you reach the end of the file.
        Do While Not strLine Is Nothing

            'Write the line to the Console window.
            Console.WriteLine(strLine)

            'Read the next line.
            strLine = objStreamReader.ReadLine
        Loop

        'Close the file.
        objStreamReader.Close()

        Console.ReadLine()
    End Sub


End Class
الرد
تم الشكر بواسطة:
#2
هذا تعديل للكود
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    Dim arr
() As String IO.File.ReadAllLines("C:\Boo.txt")
 
   If arr(1) = "open my file" Then
        MsgBox
("وجد في السطر الثاني")
 
   ElseIf arr.Contains("open my file"Then
        MsgBox
("وجد في الملف")
 
   Else
        MsgBox
("لا يوجد")
 
   End If
End Sub 
الرد
تم الشكر بواسطة: zinom , DanyGhost2010


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  انا عايز افهم شئ بسيط اليوم السابع 8 139 09-11-19, 03:11 PM
آخر رد: اليوم السابع
  ما هو كود جعل السطر المكرر هو نفسه السطر المحدد في الداتا جريد فيو sofiane-phy 8 183 30-10-19, 09:31 PM
آخر رد: sofiane-phy
  [VB.NET] عمل عد تنازلى لانترفال تايمر يعنى مثلا عندى تيمر 1 الانترفال بتاعه مثلا 20 ثانية عايز الماجيك مسعد 11 1,435 14-10-19, 11:43 PM
آخر رد: elgokr
  [VB.NET] تحديد مكان في صورة اللورد محمود 7 214 12-10-19, 03:36 AM
آخر رد: ميدو الفنان
  عايز اعمل ProgressBar فى وضع مسج بوكس بالتزامن مع شئ على زهران 7 284 08-09-19, 08:41 PM
آخر رد: سعود
  عندي داتا علي شكل ارقام عايز احولها لرسم بياني makky 0 114 03-09-19, 12:14 AM
آخر رد: makky
  كيفية رفع قاعدة البيانات سيكول سيرفر للاتصال بها من اى مكان ahmedramzyaish 3 207 29-08-19, 10:03 PM
آخر رد: asemshahen5
  محتاج كود او مثال لبرنامج تكرار السطر Mohamed Magdy 7 290 16-08-19, 01:14 AM
آخر رد: Mohamed Magdy
  كيف أشغل برنامجى من أكثر من مكان فى نفس الوقت؟ مبرمج مصرى 1 209 23-07-19, 12:40 AM
آخر رد: Basil Abdallah
  Windows Phone app لا تظهر عندي اريد ارسال sms وجدت الدرس ومش عارف كيف ahmedhhh2 0 240 11-06-19, 12:18 AM
آخر رد: ahmedhhh2

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم