FredixBlog

This is something I use for long. Using Youtube music to enrich my music library is a common task for me. Sure the quality is not at the ‘rendez-vous’, bur nevermind. My old ears are quite broken, I still enjoy music for music, not the sound.

Now for the method.

For a quite long time, I was painfully using a Youtube downloader website to get the FLV file, then using a converter to extract the audio from the video. These days are gone. I discovered a Firefox plugin whic helps to do this in seconds. I don’t remember it’s name. just do a search for ‘best video downloader firefox plugin’, and you are at it.

Is is now a snap to add a nive youtube song to my iTunes library. Just wondering why I did not do it already.

• Display a counter and remaining time in a loop

When browsing thru records, a while/wend loop can take a long time to execute, depending on the number of records, communication speed and complexity of the process.

Here is a snippet that displays a counter, including estimated remaining time. After a few records browsed thru the loop, a rather accurate estimate of the remaining time can be displayed.

' Declarations
Dim starttime
Dim elapsedtime
Dim estimatedtime
Dim count
Dim counttot
Dim estHours, estMinutes, estSeconds

' Initializations: Code to be pasted BEFORE the while/wend loop
count = 0
counttot = ... 'whichever way you could get the number of records to be processed: DCOUNT, VIEW,    
                'rs.RecordCount...
starttime = Now()

' Displaying the count: Code to be pasted at the end of the loop, when jumping to the next record
    count = count + 1
    elapsedtime = DateDiff("s", starttime, Now())
    estimatedtime = elapsedtime / (count + 0.00001) ' time for one record
    estimatedtime = estimatedtime * (counttot - count) ' time for remaining records

    estHours = Int(estimatedtime / 3600)
    estMinutes = Int((estimatedtime - 3600 * estHours) / 60)
    estSeconds = Int(estimatedtime - (60 * estMinutes))
    If count / 100 = Int(count / 100) Then Echo True, "Uploading " & SourceTable & " on " & Get_rawmeasuresDb(CurrentDb.Name) & " : " & count & "/" & counttot & " records processed " & " Remaining: " & Format(TimeSerial(estHours, estMinutes, estSeconds), "hh:mm:ss")

• Truncate long path names
• Create ODBC DSN
• Répartir les tâches du crontab unix
• How to convert youtube videos to mp3
• Gibson plus solide que Fender?
• How can I e-mail a file from Microsoft Access?
• Create a linked table with VBA
• Clear all line breaks
• Coordinates of the third point
• Message to log file