1980 Lyrics

Ah, the spoken word, and how it fits into the Britburn Project
Glinty
Number One
Posts: 161
Joined: Sat Jun 09, 2007 5:47 pm

1980 Lyrics

Postby Glinty » Fri Mar 04, 2011 5:24 pm

Hi Kirk,

I've noticed that my lyric files for some of 1981 do not match up with the spreadsheet. The files are from 81_255 to the end of 1981. They are all (approx 125 files) numbered one number too high.
I.E when playing 81_255a on the spreadsheet the lyrics for 81_254a show in the lyrics form.
My Lyric files are the latest from the web site dated Dec 2010 and the spreadsheet is version 999885m. Before I start changing all the numbers can you confirm which is correct, the spreadsheet or the lyric files.

Cheers
Glinty

kirkm
Platinum Record (Admin)
Platinum Record (Admin)
Posts: 694
Joined: Wed Mar 07, 2007 8:50 am

Re: 1980 Lyrics

Postby kirkm » Sat Mar 05, 2011 1:22 am

Hi Glinty,

Thanks for the info ! Most likely a track was amended at some stage and lyrics overlooked :cry:

The archive on the file server's just been updated. But if you want to fix them yourself here's
a wee macro:-

Code: Select all

Sub fix1981Lyrics()
Dim fname$, Files, i%, sNum As Variant, NewName$, Path$
Path = AddBackslash(Worksheets("Config").Range(celLyricsFolder).Value) & "1981"
Files = gFindFiles(Path, "*.txt", False)
Files = SortArray(Files)
If GetSerial(Files(157)) = 255 Then
    For i = 157 To 281
        If getSubLetter(Files(i)) = "a" Then
            sNum = GetSerial(Files(i))
            If sNum > 254 Then
                NewName = Replace(Files(i), CStr(sNum), CInt(sNum) - 1)
                Name Files(i) As NewName
            End If
        End If
    Next i
End If
End Sub


Copy it into an Excel module in the macro spreadsheet ane hit F5.

Also, don't run it twice - although it should do nothing 2nd time around !!

Cheers - Kirk

Glinty
Number One
Posts: 161
Joined: Sat Jun 09, 2007 5:47 pm

Re: 1980 Lyrics

Postby Glinty » Sat Mar 05, 2011 12:17 pm

Thanks Kirk, thats fixed it.

Cheers
Glinty

kirkm
Platinum Record (Admin)
Platinum Record (Admin)
Posts: 694
Joined: Wed Mar 07, 2007 8:50 am

Re: 1980 Lyrics

Postby kirkm » Sat Mar 05, 2011 12:51 pm

Good one Glinty - although ROFL - after checking the Subject, we've fixed the wrong year :shock:

Ain't computers marvellous :D

Glinty
Number One
Posts: 161
Joined: Sat Jun 09, 2007 5:47 pm

Re: 1980 Lyrics

Postby Glinty » Sun Mar 06, 2011 12:00 pm

Hi Kirk,

Whoops, a typo on my part. We have fixed the correct year.

Cheers
Glinty

Bassman
Number One
Posts: 251
Joined: Fri Apr 17, 2009 9:37 am

Re: 1980 Lyrics

Postby Bassman » Sun Mar 13, 2011 10:36 am

Two wrongs do make a right :lol:


Return to “Lyrics And Lyric Files”

Who is online

Users browsing this forum: No registered users and 1 guest