Ich bräuchte mal Hilfe bei der folgenden Aufgabe. Der Code unten ist vorgegeben, lediglich die Fett markierten Zeilen im Unterprogramm kommaweg() müssen ergänzt werden. Das Hauptprogramm erstellt eine Textdatei, allerdings steht vor jeder Zeile ein unerwünschtes Komma ",". Dieses soll durch Aufruf des Unterprogramms entfernt werden, es dürfen allerdings keine weiteren Zeilen hinzugefügt werden, lediglich die fett markierten müssen ergänzt werden.
Zwar kenne ich andere Methoden, um das Komma zu entfernen, aber nur über die gegebenen Zeilen komme ich nicht einmal auf einen Ansatz. Wäre um jegliche Hilfe erfreut!
Sub rein_raus()
Dim daten(3, 3) As Double, datei As String, i As Byte, j As Byte, zeile As String
datei = "C:\Users\Desktop\rausdamit.txt"
For i = 1 To 3
For j = 1 To 3
daten(i, j) = i * j
Next j
Next i
Open datei For Output As #1
For i = 1 To 3
zeile = ""
For j = 1 To 3
zeile = zeile & "," & daten(i, j)
Next j
Call kommaweg
Print #1, zeile
Next i
Close #1
End Sub
Sub kommaweg(text)
Dim neutext As String, k As Byte
<strong>For k =</strong>
<strong> neutext =</strong>
Next k
text = neutext
End Sub