تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارقام فوق السطر وتحته Abo Louay 2 192 27-01-24, 11:06 PM
آخر رد: Abo Louay
  [VB.NET] بالله عليكم مساعده عايز اقفل البرنامج بخصوص عمل اذن صرف اكسس وفيجوال 2013 hanyeltnen 7 1,888 04-02-23, 10:36 AM
آخر رد: hanyeltnen
  [سؤال] هل متاح انسخ ملف من جهاز الي اي جهاز في اي مكان داخل الفيجوال او غيره mony.tornado 2 387 08-12-22, 12:50 AM
آخر رد: mony.tornado
  [VB.NET] تمييز مكان الحرف الخاطئ Alssqr2022 0 450 21-10-22, 11:36 PM
آخر رد: Alssqr2022
  [سؤال] لسلام عليكم ورحمه الله وبركاته ازاي افعل خاصيه امكانيه التعديل علي الكود أثناء تشغيل حسن الجلب 1 652 06-08-22, 07:39 PM
آخر رد: asmarsou
  [سؤال] عايز كود عرض سيريال الكمبيوتر حسن الجلب 1 668 25-07-22, 02:21 PM
آخر رد: Jounior_P
  [سؤال] عايز كود عرض اسماء الجداول من قاعد البيانات الي ليست بوكس حسن الجلب 1 693 23-07-22, 08:53 PM
آخر رد: سعود
  تعديل صورة مكان صورة محفوظة في قاعدة البيانات mustafa mohamed 2 1,524 26-03-22, 07:00 PM
آخر رد: mustafa mohamed
  عايز اشتري اسكنر وبرنتر باركود اشتري اي نوع عادي ولا لازم نوع معين للفيجوال ahmedhhh2 2 912 26-02-22, 03:32 PM
آخر رد: ahmedhhh2
  اريد كود الكتابة في ملف txt في مكان محدد العواجي 1 1,219 28-11-21, 08:13 PM
آخر رد: سعود

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


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