Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class formTreleau Dim listitems() As String Dim vectorZn() As Double Dim newlistitems() As String Private Sub formTreleau_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load readfile() CreateZvector() GroupGoZ() 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 SortVectorzn(ByVal zn As Double) If Array.BinarySearch(vectorZn, zn) Then Exit Sub Else End If End Sub Private Sub CreateZvector() 'vectorZn contient tous les nombres des GO Z dans l'ordre décroissant Dim zn As Double Dim iterzn As Integer Dim iter As Long Dim iternewlist As Long iternewlist = 0 iterzn = 0 ReDim vectorZn(iterzn) For iter = 0 To listitems.Length - 1 If listitems(iter).IndexOf("G0 Z") >= 0 Then 'zn le nombre du Go Z zn = Double.Parse(listitems(iter).Substring("G0 Z".Length)) If Not FindInArray(zn, vectorZn) Then ReDim Preserve vectorZn(iterzn) vectorZn(iterzn) = zn iterzn += 1 End If End If Next Array.Sort(vectorZn) End Sub Function FindInArray(ByVal element As Double, ByRef vect() As Double) As Boolean For Each e As Double In vect If element = e Then Return True Exit For End If Next Return False End Function Private Sub GroupGoZ() Dim iterz As Integer Dim iterlist As Integer Dim itergroup As Integer Dim start As Integer Dim flagfirst As Boolean Dim str As String flagfirst = False For iterz = 0 To vectorZn.Length - 1 str = "G0 Z" & vectorZn(iterz) & ".0" start = 0 iterlist = 0 Do Until iterlist > listitems.Length - 1 If listitems(iterlist).IndexOf(str) >= 0 Then If Not flagfirst Then ReDim Preserve newlistitems(iterlist + 1) System.Array.Copy(listitems, newlistitems, iterlist) flagfirst = True newlistitems(iterlist) = "*******************" newlistitems(iterlist + 1) = listitems(iterlist) End If itergroup = iterlist + 1 newlistitems(newlistitems.Length - 1) = str Do While listitems(itergroup).IndexOf("G0 Z") < 0 ReDim Preserve newlistitems(newlistitems.Length) newlistitems(newlistitems.Length - 1) = listitems(itergroup) itergroup += 1 If itergroup = listitems.Length Then Exit Do End If Loop ReDim Preserve newlistitems(newlistitems.Length) newlistitems(newlistitems.Length - 1) = "*******************" iterlist = itergroup ReDim Preserve newlistitems(newlistitems.Length) End If iterlist += 1 Loop Next End Sub End Class
Module Module1 Dim listitems() As String Dim vectorZn() As Double Dim newlistitems() As String Private Sub readfile() Dim path As String = "E:\test.txt" ' à modifier selen le fichier listitems = System.IO.File.ReadAllLines(path) End Sub Private Sub SortVectorzn(ByVal zn As Double) If Array.BinarySearch(vectorZn, zn) Then Exit Sub Else End If End Sub Private Sub CreateZvector() 'vectorZn contient tous les cotes des GO Z Dim zn As Double Dim iterzn As Integer Dim iter As Long Dim iternewlist As Long iternewlist = 0 iterzn = 0 ReDim vectorZn(iterzn) For iter = 0 To listitems.Length - 1 If listitems(iter).IndexOf("G0 Z") >= 0 Then 'zn le nombre du Go Z zn = Double.Parse(listitems(iter).Substring("G0 Z".Length)) If Not FindInArray(zn, vectorZn) Then ReDim Preserve vectorZn(iterzn) vectorZn(iterzn) = zn iterzn += 1 End If End If Next Array.Sort(vectorZn) End Sub Function FindInArray(ByVal element As Double, ByRef vect() As Double) As Boolean For Each e As Double In vect If element = e Then Return True Exit For End If Next Return False End Function Private Sub GroupGoZ() Dim iterz As Integer Dim iterlist As Integer Dim itergroup As Integer Dim start As Integer Dim flagfirst As Boolean Dim str As String flagfirst = False For iterz = 0 To vectorZn.Length - 1 str = "G0 Z" & vectorZn(iterz) & ".0" start = 0 iterlist = 0 Do Until iterlist > listitems.Length - 1 If listitems(iterlist).IndexOf(str) >= 0 Then If Not flagfirst Then ReDim Preserve newlistitems(iterlist + 1) System.Array.Copy(listitems, newlistitems, iterlist) flagfirst = True newlistitems(iterlist) = "*******************" newlistitems(iterlist + 1) = listitems(iterlist) End If itergroup = iterlist + 1 newlistitems(newlistitems.Length - 1) = str Do While listitems(itergroup).IndexOf("G0 Z") < 0 ReDim Preserve newlistitems(newlistitems.Length) newlistitems(newlistitems.Length - 1) = listitems(itergroup) itergroup += 1 If itergroup = listitems.Length Then Exit Do End If Loop ReDim Preserve newlistitems(newlistitems.Length) newlistitems(newlistitems.Length - 1) = "*******************" iterlist = itergroup ReDim Preserve newlistitems(newlistitems.Length) End If iterlist += 1 Loop Next End Sub Private Sub showlist() Dim path As String = "E:\resulttest.txt" ' à modifier selen le fichier System.IO.File.WriteAllLines(path, newlistitems) End Sub Sub Main() readfile() CreateZvector() GroupGoZ() showlist() End Sub End Module
Module Module1 Dim listitems() As String Dim vectorZn() As Double Dim newlistitems() As String Private Sub readfile() Dim path As String = "E:\test.txt" ' à modifier selen le fichier listitems = System.IO.File.ReadAllLines(path) End Sub Private Sub CreateZvector() 'vectorZn contient tous les cotes des GO Z Dim zn As Double Dim iterzn As Integer Dim iter As Long Dim iternewlist As Long iternewlist = 0 iterzn = 0 ReDim vectorZn(iterzn) For iter = 0 To listitems.Length - 1 If listitems(iter).IndexOf("G0 Z") >= 0 Then 'zn le nombre du Go Z zn = Double.Parse(listitems(iter).Substring("G0 Z".Length)) If Not vectorZn.Contains(zn) Then ReDim Preserve vectorZn(iterzn) vectorZn(iterzn) = zn iterzn += 1 End If End If Next Array.Sort(vectorZn) End Sub Private Sub GroupGoZ() Dim iterz As Integer Dim iterlist As Integer Dim itergroup As Integer Dim start As Integer Dim flagfirst As Boolean Dim str As String flagfirst = False For iterz = 0 To vectorZn.Length - 1 str = "G0 Z" & vectorZn(iterz) & ".0" start = 0 iterlist = 0 Do Until iterlist > listitems.Length - 1 If listitems(iterlist).IndexOf(str) >= 0 Then If Not flagfirst Then ReDim Preserve newlistitems(iterlist + 1) System.Array.Copy(listitems, newlistitems, iterlist) flagfirst = True newlistitems(iterlist) = "*".PadLeft(60, "*") newlistitems(iterlist + 1) = listitems(iterlist) End If itergroup = iterlist + 1 newlistitems(newlistitems.Length - 1) = str Do While listitems(itergroup).IndexOf("G0 Z") < 0 ReDim Preserve newlistitems(newlistitems.Length) newlistitems(newlistitems.Length - 1) = listitems(itergroup) itergroup += 1 If itergroup = listitems.Length Then Exit Do End If Loop ReDim Preserve newlistitems(newlistitems.Length) newlistitems(newlistitems.Length - 1) = "-".PadLeft(60, "-") iterlist = itergroup ReDim Preserve newlistitems(newlistitems.Length) End If iterlist += 1 Loop Next End Sub Private Sub showlist() Dim path As String = "E:\resulttest.txt" ' à modifier selen le fichier System.IO.File.WriteAllLines(path, newlistitems) End Sub Sub Main() readfile() CreateZvector() GroupGoZ() showlist() End Sub End Module
Private Sub readfile() Dim path As String = "C:\Documents and Settings\JUGUET\coussin_base_sandy" ' à modifier selen le fichier listitems = System.IO.File.ReadAllLines(path) End Sub
Private Sub OuvrirUnGcodeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirUnGcodeToolStripMenuItem.Click OpenFileDialog1.Filter = "Text files (*.nc)|*.nc" If OpenFileDialog1.ShowDialog() = DialogResult.OK Then 'affiche la boîte de dialogue Ouvrir Try 'ouvre le fichier et piège toutes les erreurs à l'aide d'un gestionnaire AllText = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName) lblGcodeInfo.Text = OpenFileDialog1.FileName 'met à jour l'étiquette TextBox1.Text = AllText 'affiche le fichier TextBox1.Enabled = True 'autorise un curseur texte QuitterToolStripMenuItem.Enabled = True 'active la commande Fermer OuvrirUnGcodeToolStripMenuItem.Enabled = False 'désactive la commande Ouvrir Catch ex As Exception MsgBox("Une erreur est survenue." & vbCrLf & ex.Message) End Try End If End Sub
Impossible de trouver le fichier 'C:\Documents and Settings\JUGUET\coussin_base_sandy'
Module Module1 Dim listitems() As String Dim vectorZn() As Double Dim newlistitems() As String Dim AllText As String Dim nouvAllText As String Public Function Trieur(ByVal AllText As String) Return AllText End Function Private Sub readfile() Dim path As String = AllText listitems = System.IO.File.ReadAllLines(path) End Sub Private Sub CreateZvector() 'vectorZn contient tous les cotes des GO Z Dim zn As Double Dim iterzn As Integer Dim iter As Long Dim iternewlist As Long iternewlist = 0 iterzn = 0 ReDim vectorZn(iterzn) For iter = 0 To listitems.Length - 1 If listitems(iter).IndexOf("G0 Z") >= 0 Then 'zn le nombre du Go Z zn = Double.Parse(listitems(iter).Substring("G0 Z".Length)) If Not vectorZn.Contains(zn) Then ReDim Preserve vectorZn(iterzn) vectorZn(iterzn) = zn iterzn += 1 End If End If Next Array.Sort(vectorZn) End Sub Private Sub GroupGoZ() Dim iterz As Integer Dim iterlist As Integer Dim itergroup As Integer Dim start As Integer Dim flagfirst As Boolean Dim str As String flagfirst = False For iterz = 0 To vectorZn.Length - 1 str = "G0 Z" & vectorZn(iterz) & ".0" start = 0 iterlist = 0 Do Until iterlist > listitems.Length - 1 If listitems(iterlist).IndexOf(str) >= 0 Then If Not flagfirst Then ReDim Preserve newlistitems(iterlist + 1) System.Array.Copy(listitems, newlistitems, iterlist) flagfirst = True newlistitems(iterlist) = "*".PadLeft(60, "*") newlistitems(iterlist + 1) = listitems(iterlist) End If itergroup = iterlist + 1 newlistitems(newlistitems.Length - 1) = str Do While listitems(itergroup).IndexOf("G0 Z") < 0 ReDim Preserve newlistitems(newlistitems.Length) newlistitems(newlistitems.Length - 1) = listitems(itergroup) itergroup += 1 If itergroup = listitems.Length Then Exit Do End If Loop ReDim Preserve newlistitems(newlistitems.Length) newlistitems(newlistitems.Length - 1) = "-".PadLeft(60, "-") iterlist = itergroup ReDim Preserve newlistitems(newlistitems.Length) End If iterlist += 1 Loop Next End Sub Private Sub showlist() Dim path As String = AllText ' à modifier selen le fichier System.IO.File.WriteAllLines(path, newlistitems) End Sub Sub Main() readfile() CreateZvector() GroupGoZ() showlist() End Sub End Module
Private Sub showlist() Dim path As String = "E:\resulttest.txt" ' à modifier selen le fichier System.IO.File.WriteAllLines(path, newlistitems) End Sub
Private Sub CreateZvector() 'vectorZn contient tous les cotes des GO Z Dim zn As Double Dim iterzn As Integer Dim iter As Long Dim iternewlist As Long iternewlist = 0 iterzn = 0 ReDim vectorZn(iterzn) For iter = 0 To listitems.Length - 1 If listitems(iter).IndexOf("G0 Z") >= 0 Then 'zn le nombre du Go Z zn = Double.Parse(listitems(iter).Substring("G0 Z".Length))'Le format de la chaîne d'entrée est incorrect. If Not vectorZn.Contains(zn) Then ReDim Preserve vectorZn(iterzn) vectorZn(iterzn) = zn iterzn += 1 End If End If Next Array.Sort(vectorZn) End Sub