05-08-15, 11:35 AM
سلام
الكود مجرب
موفقين
كود :
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موفقين
متغيب
