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"
'Datenfeld "Daten" wird mit Werten belegt
For i = 1 To 3
For j = 1 To 3
daten(i, j) = i * j
Next j
Next i
'Datei "rausdamit.txt" wird angelegt
Open datei For Output As #1
'Einlesen des Datenfeldes "Daten" in die ASCII Datei
For i = 1 To 3
zeile = ""
For j = 1 To 3
zeile = zeile & "," & daten(i, j)
Next j
'Hier wird das Unterprogramm zum Entfernen des ersten Kommas in jeder Zeiles aufgerufen
Call kommaweg
Print #1, zeile
Next i
Close #1
End Sub
Sub kommaweg(text)
Dim neutext As String, k As Byte
For k =
neutext =
Next k
text = neutext
End Sub
|