Imports System.IO Private Structure sts Public nstation As String Public targetpoint As List(Of String) Public angles As List(Of Double) Public distances As List(Of Double) End Structure Private liststation As New List(Of sts) Private Sub ReadFileStation(ByVal Filename As String) Dim list1 As New List(Of String) Dim items() As String Dim linetext As String Dim st As sts Dim objReader As New System.IO.StreamReader(Filename) st = Nothing Do While objReader.Peek() <> -1 linetext = objReader.ReadLine items = linetext.Split(Convert.ToChar(Keys.Tab)) If Not list1.Contains(items(0)) AndAlso list1.Count > 0 Then liststation.Add(st) End If If Not list1.Contains(items(0)) Then st = New sts st.targetpoint = New List(Of String) st.angles = New List(Of Double) st.distances = New List(Of Double) st.nstation = items(0) list1.Add(items(0)) End If st.targetpoint.Add(items(1)) st.angles.Add(Convert.ToDouble(items(2))) st.distances.Add(Convert.ToDouble(items(3))) Loop liststation.Add(st) End Sub Private Sub InitDGW() DataGridView1.BorderStyle = BorderStyle.Fixed3D DataGridView1.Font = New Font("arial", 12, FontStyle.Bold) DataGridView1.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Sunken DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing DataGridView1.Columns.Add("station", "La station") DataGridView1.Columns("station").ReadOnly = True DataGridView1.Columns.Add("points", "Points visés") DataGridView1.Columns("points").ReadOnly = True DataGridView1.Columns.Add("angles", "angles") DataGridView1.Columns("angles").ReadOnly = True DataGridView1.Columns.Add("distances", "distances") DataGridView1.Columns("distances").ReadOnly = True End Sub Private Sub FillDGW() Dim n As Integer For Each item As sts In liststation n = DataGridView1.Rows.Add() DataGridView1.Rows.Item(n).Cells("station").Value = item.nstation For iter As Integer = 0 To item.targetpoint.Count - 1 DataGridView1.Rows.Item(n).Cells("points").Value = item.targetpoint(iter) DataGridView1.Rows.Item(n).Cells("angles").Value = item.angles(iter) DataGridView1.Rows.Item(n).Cells("distances").Value = item.distances(iter) n = DataGridView1.Rows.Add() Next DataGridView1.Rows.RemoveAt(DataGridView1.Rows.Count - 2) Next End Sub Private Sub Form1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load ReadFileStation(Application.StartupPath & "text1.TXT") InitDGW() FillDGW() end sub
8 sept. 2013 à 22:52
Prenom CIN...............................Prenom CIN
Said..... 7898.........................................7898 .
Said..... 9800.............. -----------> Said 9800
Said..... 1246.........................................1246
8 sept. 2013 à 23:44
entre le prenom et cin y a t'il un espace ?
9 sept. 2013 à 00:36
9 sept. 2013 à 10:10
ce n'est pas le problème du DGW
tu dois lire ton fichier et le traiter
envoie un exemple de ton fichier
Modifié par reda le 9/09/2013 à 16:04