Hallo Leute,
bin noch nicht der Beste VB Programmierer.
Ich habe einen Programmteil, der mir Daten eines Programmes in eine txt Datei speichern soll.
Allerdings dauert es immer sehr lange bis fertig gespeichert ist. Das liegt wahrscheinlich an den vielen Schleifen des Programmteils.
(Die Erste schleife braucht nicht viel Zeit).
Vielleicht habt ihr ja Tipps wie man das ganze Beschleunigen könnte.
bin noch nicht der Beste VB Programmierer.
Ich habe einen Programmteil, der mir Daten eines Programmes in eine txt Datei speichern soll.
Allerdings dauert es immer sehr lange bis fertig gespeichert ist. Das liegt wahrscheinlich an den vielen Schleifen des Programmteils.
(Die Erste schleife braucht nicht viel Zeit).
Vielleicht habt ihr ja Tipps wie man das ganze Beschleunigen könnte.
VB.NET-Quellcode
- Private Sub But_Save_C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_Save_C.Click
- ' ToolStripStatusLabel1.Text = "Speichervorgang"
- Me.Cursor = Cursors.WaitCursor
- ' ToolStripProgressBar1.Maximum = FormAnz + 2
- 'ToolStripProgressBar1.Value = 0
- Dim colorArr(0 To 255) As String
- colorArr = savebtncolors(btnArray)
- For i = 1 To 256 Step 1
- gesArray(FormNumb, i) = colorArr(i)
- Next
- ' ToolStripProgressBar1.Value = 1
- If FileExists(FNAME) Then
- My.Computer.FileSystem.DeleteFile(FNAME)
- End If
- ' ToolStripProgressBar1.Value = 2
- For i = 1 To FormAnz 'MAXIMAL 64!!!!
- My.Computer.FileSystem.WriteAllText(FNAME, Chr(127), True) ' BILD-Start 0x7F
- My.Computer.FileSystem.WriteAllText(FNAME, Chr(i - 1), True) ' BILD-Nummer
- For k = 1 To Matrixsize * Matrixsize
- Select Case gesArray(i, k)
- Case "Red"
- code = 1
- Case "Green"
- code = 2
- Case "Blue"
- code = 4
- Case "White"
- code = 7
- Case "Black"
- code = 0
- Case "Yellow"
- code = 3
- Case "Magenta"
- code = 5
- Case "Cyan"
- code = 6
- End Select
- My.Computer.FileSystem.WriteAllText(FNAME, Chr(code), True) ' Led Farbe
- Next
- ' ToolStripProgressBar1.Value = i + 2
- If (i = FormAnz) Then
- My.Computer.FileSystem.WriteAllText(FNAME, Chr(126), True) ' BILD-Ende 0x7E
- Else
- My.Computer.FileSystem.WriteAllText(FNAME, Chr(125), True) ' BILD-Ende 0x7D
- End If
- ' My.Computer.FileSystem.WriteAllText(FNAME, "00000000", True) 'Stop Bild
- Next
- ' ToolStripStatusLabel1.Text = 2
- Me.Cursor = Cursors.Default
- MessageBox.Show("Daten erfolgreich in FNAME gesichert", "Erfolg", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „kremsy“ ()