Zitat:
Original geschrieben von mqs
hmm ja danke, alles schön und gut, aber ich will das jetzt weder im debug noch in einem textfeld ausgeben, sondern will das in eine variable speichern. ich hab da mal statt debug.print mp3=mp3 & DataByte eingegeben, aber bei einen bestimmten asc zeichen bricht er eingach ab in die variable zu schreiben, i glaub das zeichen ist ASC 12
|
du kannst auch keine binärdaten in einen string speichern!
mp3 ist ein string, das "&"-zeichen verknüpft 2 strings miteinander...
da isses doch klar, dass du eine fehlermeldung bekommst, da in einem string nicht alle "werte" drinnstehn können.
öffne die datei mit:
Code:
Open "meinmp3.mp3" For Binary Access Read As #1
und deklarier mp3 folgendermaßen:
Code:
Dim mp3(die größe vom mp3) As Byte
und dann lies nach belieben ein!
solltest du bestimmte stellen in mp3 als string haben wollen, geht das so:
Code:
dim i as integer
dim str as string
for i = anfang to ende
str = str & chr(mp3(i))
next
mfg JosefS