VB.NET-Quellcode
- Save.ShowDialog()
- Dim FileName As String
- Dim Contents(Triangles.Count - 1) As String
- For I As Integer = 0 To Triangles.Count - 1
- Contents(I) = Triangles(I).X & " " & Triangles(I).Y & " " & Triangles(I).Z & " " & Triangles(I).PX1 & " " & Triangles(I).PX2 & " " & Triangles(I).PX3 & " " & Triangles(I).PY1 & " " & Triangles(I).PY2 & " " & Triangles(I).PY3 & " " & Triangles(I).PZ1 & " " & Triangles(I).PZ2 & " " & Triangles(I).PZ3 & " " & Triangles(I).RX & " " & Triangles(I).RY & " " & Triangles(I).RZ & " " & Triangles(I).ID
- Next
- If IO.File.Exists(Save.FileName) Then
- If Save.FileName.EndsWith(".Y3M") Then
- FileName = Save.FileName
- Else
- FileName = Save.FileName & ".Y3M"
- End If
- Else
- If Save.FileName.EndsWith(".Y3M") Then
- IO.File.Create(Save.FileName)
- FileName = Save.FileName
- Else
- IO.File.Create(Save.FileName & ".Y3M")
- FileName = Save.FileName & ".Y3M"
- End If
- End If
- IO.File.WriteAllLines(FileName, Contents)
Wenn die Datei bereits Existiert, gibt es kein Problem, sonst ein Error.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „00yoshi“ ()