VB.NET ID3V1(Letzte 128 Bytes) einer Datei entfernen

Jannis22 · 4. Juli 2015, 09:55

Hey,

ich hätte mal wieder ein kleines Problem.
Wie schaffe ich es, die letzten 128 Bytes einer Datei, also den Mp3-Tag zu entfernen?
Also ich habe schon etwas im vbarchiv gefunden, was sich aber auf VB6 bezieht.
Könnte mir da jemand helfen?

Danke im Vorraus!!
LG

ErfinderDesRades · 4. Juli 2015, 11:47

wie soll die Hilfe aussehen - soll dir jemand eine Funktion dafür schreiben, und dir erklären, wie man die Funktion aufruft?

RodFromGermany · 4. Juli 2015, 11:50

@ErfinderDesRades Jou.

Jannis22 schrieb:

helfen

Mal so in den Raum geworfen: BinaryReader und BinaryWriter.

Jannis22 · 4. Juli 2015, 12:28

Ja, also keinen komplett fertigen Code aber mal so'n Ansatz, ich benutze sonst
Binray- oder Streamwriter nie, deshalb hab ich da noch nicht viel Ahnung.
Würde mich über Hilfe sehr freuen

LG

SeriTools · 4. Juli 2015, 12:32

Lies die Länge der Datei aus, subtrahiere 128, und setze die neue Länge auf einem FileStream-Objekt mit msdn.microsoft.com/en-us/libra…filestream.setlength.aspx.

Siehe auch codeproject.com/Answers/157178…o-set-End-Of-File-using-C

Jannis22 · 4. Juli 2015, 14:47

Okay, also ich bin jetzt mal so weit:

VB.NET-Quellcode

Dim sFile As String = "C:\Testfile.mp3"
Dim s As System.IO.FileInfo
s = My.Computer.FileSystem.GetFileInfo(sFile)
Dim LenghtAlt As Long
Dim NeueGrösse As Long
LenghtAlt = s.Length
NeueGrösse = LenghtAlt - 128

Stimmt das schonmal so weit? Wenn ja, wie muss es jetzt weitergehen?

LG und Danke!

ErfinderDesRades · 4. Juli 2015, 14:54

zumindest ist es möglich, dass es kompiliert.
Aber darf ich es noch etwas vereinfachen:

VB.NET-Quellcode

Dim fi = New FileInfo("C:\Testfile.mp3")

Den ganzen anneren Quatsch brauchst du nicht.
Beachte auch die Benamung: Ein FileInfo sollte niemals s heissen, denn so heissen für gewöhnlich Strings - Nomen est Omen!

RodFromGermany · 4. Juli 2015, 14:54

Jannis22 schrieb:

weitergehen

So:

VB.NET-Quellcode

Dim sFile As String = "C:\Temp\Testfile.mp3"
Dim s = New System.IO.FileInfo(sFile)
Dim LenghtAlt = s.Length
Dim NeueGrösse = LenghtAlt - 128
Using fs = New IO.FileStream(sFile, IO.FileMode.Open)
fs.SetLength(NeueGrösse)
End Using

oder kürzer

VB.NET-Quellcode

Dim sFile As String = "C:\Temp\Testfile.mp3"
Dim s = New System.IO.FileInfo(sFile)
Using fs = New IO.FileStream(sFile, IO.FileMode.Open)
fs.SetLength(s.Length - 128)
End Using

Jannis22 · 4. Juli 2015, 15:01

Danke!

VB.NET ID3V1(Letzte 128 Bytes) einer Datei entfernen

VB.NET ID3V1(Letzte 128 Bytes) einer Datei entfernen

Jannis22 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Jannis22 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben