'Liste des lignes et des colonnes (destination) Dim ltDatas as list(of list(of String))=new list(of list(of String)) 'Lignes du fichier Dim ltLines as string()=Io.File.ReadAllLines(MonFichier) 'Elements d'une ligne Dim ltLine as string() 'Liste (temporaire) Dim lTmpLst as list(of String) 'Ajout de la premère ligne ltDatas.add(new list(of string)) 'Pour chaque ligne du fichier for each lLine as String in ltLines 'On sépare les éléments de la ligne ltline=lLine.Split("&") 'On parcours la liste obtenue For i As Integer=0 to ltline.GetUpperBound(0) if i=0 then 'Ajout à la première ligne ltdatas(i).Add(ltline(i)) else 'On ajoute la ligne si besoin if ltdatas.Count-1<i then lTmpLst=new list(of string) ltdatas.add(ltmplst) else ltmplst=ltdatas(i) end if 'On rempli la ligne avec des éléments vides si besoin Do while lTmpLst.count<ltDatas(0).count-1 ltmplst.add("") loop 'Ajout de l'élément ltmplst.add(ltline(i)) end if next i Next 'ltDatas contient donc les lignes et les colonnes inversées par rapport au fichier
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionje suis incapable de faire un truc tout simple.
Public Class formTreleau Dim listitems() As String Dim newlistitems() As String Private Sub formTreleau_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load readfile() ParsingListitems() End Sub Private Sub readfile() Dim path As String = "E:\test.txt" ' à modifier selen le fichier listitems = System.IO.File.ReadAllLines(path) End Sub Private Sub ParsingListitems() Dim flagfirstgo As Boolean flagfirstgo = False Dim iter As Long Dim iternewlist As Long iternewlist = 0 For iter = 0 To listitems.Length - 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = listitems(iter) If listitems(iter).IndexOf("G0 Z") >= 0 Then If Not flagfirstgo Then newlistitems(iternewlist) = "********" iternewlist = iternewlist + 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = "--------" iternewlist = iternewlist + 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = listitems(iter) flagfirstgo = True Else newlistitems(iternewlist) = "--------" iternewlist = iternewlist + 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = listitems(iter) End If End If iternewlist += 1 Next End Sub End Class
Public Class formTreleau Dim listitems() As String Dim newlistitems() As String Private Sub formTreleau_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load readfile() ParsingListitems() End Sub Private Sub readfile() Dim path As String = "E:\test.txt" ' à modifier selen le fichier listitems = System.IO.File.ReadAllLines(path) End Sub Private Sub insertstarsandline() End Sub Private Sub ParsingListitems() Dim flagfirstgo As Boolean flagfirstgo = False Dim iter As Long Dim holdindex As Long Dim iternewlist As Long iternewlist = 0 For iter = 0 To listitems.Length - 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = listitems(iter) If listitems(iter).IndexOf("G0 Z") >= 0 Then If Not flagfirstgo Then ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = "********" iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = "--------" iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = listitems(iter) flagfirstgo = True Else If listitems(iter - 2).IndexOf("Surface") >= 0 Or listitems(iter - 1).IndexOf("Surface") >= 0 Then ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = "********" iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = "--------" iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = listitems(iter) holdindex = iternewlist Else If listitems(iter + 1).IndexOf("M") >= 0 Then ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = "********" iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = "--------" iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = listitems(iter) holdindex = iternewlist Else ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = "--------" iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = " " iternewlist += 1 ReDim Preserve newlistitems(iternewlist) newlistitems(iternewlist) = listitems(iter) holdindex = iternewlist End If End If End If End If iternewlist += 1 Next End Sub End Class