24-02-18, 11:13 PM
والحمد لله نجح هذا الكود اضعه للاستفادة العامة
وشكرا لكل من ساعدني
Dim dictionary() As String = System.IO.File.ReadAllLines(Application.StartupPath & "\aaa111.txt")
For Each item In dictionary
If item.Contains(Microsoft.VisualBasic.Mid((TextBox1.Text), 8, 2)) Then
' TextBox9.Text = item.Split(","c)(1)
'End If
If item.Split(","c)(0) = Microsoft.VisualBasic.Mid((TextBox1.Text), 8, 2) Then
TextBox9.Text = item.Split(","c)(1)
End If
Next
وشكرا لكل من ساعدني
Dim dictionary() As String = System.IO.File.ReadAllLines(Application.StartupPath & "\aaa111.txt")
For Each item In dictionary
If item.Contains(Microsoft.VisualBasic.Mid((TextBox1.Text), 8, 2)) Then
' TextBox9.Text = item.Split(","c)(1)
'End If
If item.Split(","c)(0) = Microsoft.VisualBasic.Mid((TextBox1.Text), 8, 2) Then
TextBox9.Text = item.Split(","c)(1)
End If
Next