This CD list is different in so far as it comes from the burn list .axp file and contains no information on timings. The information on timings comes from the presence of the music audio files and this is what enables the CD cover to be printed to .PDF and it is from that .PDF that the list with timings in brackets is derived. That will always be the main list I use, and I made a variation based on that for any CD burning rather than one for a Sunday service.
With an .axp file available it is always possible to make a simple list even if the music files are not available. Incidentally, an .axp file is another one of these HTML lookalike files using .XML, the same that works for music composition and overlays when editing .PDF files directly. This is because XML uses custom tags.
I made a clip that worked and used a pre-set wizard that needed a simple OK. I've kept that (as it offers variations) but have incorporated external help into the body of a second .axp to .txt clip, AXP to TXT (nt shorter), and it now looks like:
^!Close ALL
^!Save AS C:\Shared
Documents\Music\temp.tmp
^!SetWizardLabel Press OK for AXPs here or
navigate
^!Set %Folder%=^?{(T=D)&Browse: Confirm OK or press the
button=^$GetValue(DirStuff:Browse)$}
^!StatusShow Finding
files...
^!SetScreenUpdate Off
^!Set %Type%=*.axp
^!Set
%Sort%=Name
^!FocusDoc
^!Close DISCARD
^!DestroyDoc C:\Shared
Documents\Music\temp.tmp
^!Set
%FullPath%=^$GetFileFirst(^%Folder%;"^%Type%";^%Sort%)$
; Checks to see if
files are found by search criteria
^!IfTrue ^$IsEmpty("^%FullPath%")$
END
:LOOP1
^!IfTrue ^$IsEmpty(^%FullPath%)$ DOARRAY
^!Append
%Files%=^%FullPath%|
^!Set %FullPath%=^$GetFileNext$
^!Goto
LOOP1
:DOARRAY
^!CloseFileFind
^!SetArray
%EditList%=^?{(T=L;H=16)Choose=^%Files%}
^!Set %Count%=^%EditList0%
^!Set
%Index%=0
:LOOP2
;When it chooses a file the index position forces it
out of the loop
^!Set %FilePathFull%=^%EditList^%Index%%
^!Inc
%Index%
^!If ^%Index% > ^%Count% PROCEED
^!Toolbar New
Document
^!FocusDoc
^!InsertFile ^%EditList^%Index%%
^!GoTo
LOOP2
:PROCEED
^!Clearvariables
^!Replace "^\x20+" >> ""
WARS
^!Replace "(?s)^.+?title=(\x22\x22)\x20artist=\1>\R" >> ""
WRS
^!Replace "^
^!Replace
"\.wav.+$" >> "" WARS
^!Replace "(?s)\R
> ""
WRS
; Number lines
^!SetWordWrap OFF
^!Set
%Ln%=^$GetTextLineCount$
:Loop
^!Jump ^%Ln%
^!InsertText
^%Ln%^%Space%
^!Dec %Ln%
^!If ^%Ln% > 0 ^!Goto Loop
^!Clip
"Sorting numbers zeros"
;Hymn books gaps
^!Replace
"^.*\b(HL|SF|LS|CC|HW|HF|NB)\b.*$" >> "\r\n$0\r\n" WARS
^!Replace
"\R{3}" >> "\r\n" WARS
^!Replace "^\A\R|\R{1,}\Z" >> ""
WARS
^!SetWordwrap ON
The automatic clip "Sorting numbers zeros" is used (see a previous entry) because the wizard did leading zeros and this alone doesn't. I also have a front end to all the above as follows:
^!ClearVariables
^!Clip "AXP to TXT
(nt shorter)"
^!Jump DOC_START
^!Set %Preacher%=^?{(T=L;H=18)Click
on the Service Taker's or CD Owner's name=Adrian Worsfold|Barry Cundill|Bernard
McHugh|Chris Pilkington|David Arthur|Elizabeth Faiers|Ernest Baker|Jim
Timiney|John Midgley|John Williams|June Pettitt|Keith Brown|Marion Baker|Mavis
Lake|Michael Tracey|Rosemary Arthur|Stephanie Cage|Stephen Carlile}
^!Set
%Date%=^$GetDateFromInt(^$Calc(CEIL((^$GetDateToInt$+6)/7)*7-6)$;yyyymmdd)$
^!SetWizardLabel
Date and CDs this date Options
^!Set %CDDate%=^?{(T=L;H=8)Date of CD=_Next
Sunday^=^%Date%|Today^=^$GetDate(yyyymmdd)$}; %AddNum%=^?{Number?=_Only
one^=only|First this date^=01|Second this date^=02|Third this date^=03|Fourth
this date^=04|Fifth this date^=05}
^!Set %Filename%="Simple List
^%CDDate% ^%AddNum%"
^!InsertText ^%Preacher%'s CD on
^%CDDate%^P^P
^!Save As "C:\Shared
Documents\Music\^%Filename%.txt"
No comments:
Post a Comment