[الطالب]

سلام

كود :

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

    Dim lines() As String = IO.File.ReadAllLines("w.txt")

    For Each line As String In lines

        If line.Length = 21 Then
            Dim رقم_الجهاز As Integer = line.Substring(0, 2)
            Dim رقم_الموظف As Integer = line.Substring(2, 5)
            Dim اليوم As Integer = line.Substring(7, 2)
            Dim السهر As Integer = line.Substring(9, 2)
            Dim السنة As Integer = line.Substring(11, 4)
            Dim الساعة As Integer = line.Substring(15, 2)
            Dim الدقيقة As Integer = line.Substring(17, 2)
            Dim العملية As String = line.Substring(19, 1)
            Dim رقم_العملية As Integer = line.Substring(20, 1)

            Dim s As String
            s = "رقم الجهاز: " & رقم_الجهاز & vbNewLine
            s &= "رقم الموظف: " & رقم_الموظف & vbNewLine
            s &= "التاريخ: " & اليوم & "/" & السهر & "/" & السنة & vbNewLine
            s &= "الوقت: " & الساعة & ":" & الدقيقة & vbNewLine
            s &= "العملية: " & العملية & vbNewLine
            s &= "رقم العملية: " & رقم_العملية

            MsgBox(s, MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight)
        End If

    Next

End Sub

الكود مجرب

موفقين