|
#1
|
|||
|
|||
So sorry, i should have pointed out that the StepDone calls a Global Function which contains the Builder.LogMessage, which you probably don't get by me sending you the .bld files.
In the Build Solution step of MediLinks.bld, there is a call to CreateReportLink (the global function). It is in this function that the message does not get logged. Below is the global function note that it is also calling a URLEncode function which i've also provided below): Sub CreateReportLink(LinkHeader, ReportDir, FileName) Dim strHTML Dim file Builder.LogMessage LinkHeader strHTML = "<HTML>" strHTML = strHTML & "<BODY>" strHTML = strHTML & "<a href='..\" & URLEncode(ReportDir & FileName) & "'>" & FileName & "</a>" strHTML = strHTML & "</BODY>" strHTML = strHTML & "</HTML>" Builder.LogMessage(strHTML) End Sub Public Function URLEncode(sRawURL) Const sValidChars = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklm nopqrstuvwxyz:/.?=_-$(){}~&\" If Len(sRawURL) > 0 Then ' Loop through each char For iLoop = 1 To Len(sRawURL) sTmp = Mid(sRawURL, iLoop, 1) If InStr(1, sValidChars, sTmp, vbBinaryCompare) = 0 Then ' If not ValidChar, convert to HEX and prefix with % sTmp = Hex(Asc(sTmp)) If sTmp = "20" Then sTmp = "+" ElseIf Len(sTmp) = 1 Then sTmp = "%0" & sTmp Else sTmp = "%" & sTmp End If End If sRtn = sRtn & sTmp Next URLEncode = sRtn End If End Function |
|
|