It's AC/DC . . . in Excel

The creator shows off a bit of an AC/DC music video that he managed to run using Excel!
joedirtsays...

In reply to this comment by joedirt:
The excel file is only 3.8MB.

It's actually pretty slick, first it extract RIFF to mp3


If Trim(AudioFile) = "" Then AudioFile = ThisWorkbook.Path & _
"\ACDC.wav"
Call PlayBackLoop



Do While i < MyFileLen
If myArr(i) = &H52 Then 'Looking for RIFF
If myArr(i + 1) = &H49 And myArr(i + 2) = &H46 And myArr(i + 3) = &H46 Then
FileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)


Then it plays the video file but updating the spreadsheet at 12fps.

impFile = ThisWorkbook.Path & Application.PathSeparator & _
"12fps-45sec-cut.txt"
Set fi = fs.OpenTextFile(impFile, 1)

Do While fi.AtEndOfStream <> True
If temp = "" Then
Sheet1.Cells(i, 17).Value = vFrame
vFrame = ""
i = i + 1
End If
Loop



Note: to any douchbags from SONY BMG, you distributed this spreadsheet on the internet, I did not post any of the ascii video frames nor any of the data that goes into your precious mp3 and the code above is not functional and only of use for educational discussions.


By the way Unhide all the columns and go to cell Q99 can you can see all teh ascii frames.

siftbotsays...

Tags for this video have been changed from 'music video, microsoft, computer, office, microsoft office' to 'music video, microsoft, office, microsoft office, ac dc, acdc, rock n roll train' - edited by kronosposeidon

Send this Article to a Friend



Separate multiple emails with a comma (,); limit 5 recipients






Your email has been sent successfully!

Manage this Video in Your Playlists




notify when someone comments
X

This website uses cookies.

This website uses cookies to improve user experience. By using this website you consent to all cookies in accordance with our Privacy Policy.

I agree
  
Learn More