On Mar 1, 2007, at 11:09 PM, RBNUBE wrote: > If CountFields(efFolderDetails.Text, EndOfLine) > 0 then > endOfLineCount = CountFields(theText, EndOfLine) > For i = 1 to endOfLineCount > tempString = NthField(theText, EndOfLine, i) > charCount = charCount + (Len(tempString) + 1) > If InStr(tempString, "Copy To Folder: ") > 0 then > If InStr(tempString, "(OK)") > 0 then > efFolderDetails.StyledText.Bold(charCount - (Len > (tempString) + > 1), 25) = True > efFolderDetails.StyledText.TextColor(charCount - 5, 4) = > &c00BF00 > ElseIf InStr(tempString, "(MISSING)") > 0 then > efFolderDetails.StyledText.Bold(charCount - (Len > (tempString) + > 1), 30) = True > efFolderDetails.StyledText.TextColor(charCount - 10, > 9) = > &cFF0000 > End If > ElseIf InStr(tempString, "Rename Variable:") > 0 then > efFolderDetails.StyledText.Bold(charCount - (Len > (tempString) + > 1), 16) = True > End If > Next > End If
I'll keep on pounding for this feature request as long as code keeps getting hacked as above ... http://realsoftware.com/feedback/viewreport.php?reportid=nzciffpm Please show your support and sign on. Tim -- Tim Jones [EMAIL PROTECTED] _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives: <http://support.realsoftware.com/listarchives/lists.html>
