[atefkhalf2004]

هذا  الامر  يقراء  اول محافظة فقط
كيف اجعله يقرا   اسم المحافظة بناءا علي كود المحافظة
  Dim file_name As String = Application.StartupPath & "\aaa.txt"
        Dim stream_reader As New IO.StreamReader(file_name)
        Dim line As String
        Dim ReadResult() As String
        line = stream_reader.ReadLine()
        Do While Not (line Is Nothing)
            line = line.Trim()
            ReadResult = line.Split(",")
            MsgBox(ReadResult(1))
        Loop

محتوي الملف النصي  هو
01,cairo
02,alex
24,minia