Loading ...
Sorry, an error occurred while loading the content.

14404Re: [Clip] MD5 checksum clip : Resolved

Expand Messages
  • Charles M. Raine
    Nov 15, 2005
    • 0 Attachment
      Hi hrs and others:

      I added a couple instruction to display the name of the file in the
      information window to better identify where the result was from.

      H="GetMD5 ID"
      ;_Modified-Updated~Created
      ;_20051114_3:57:08p_hsavage@...
      ;_20051115_2:30:01p_C. M. Raine
      ^!ClearVariables
      ^!SetWizardTitle CHECKSUM MD5 ID
      ^!SetWizardLabel Browse And Select File
      ;
      ^!Set %md5%=^?[File or Text ChecksuM==SELECTED_TEXT|FILE_TEXT|_WHOLE_FILE]
      ;
      ^!IfSame 'SELECTED_TEXT' '^%md5%' SELECTED_TEXT
      ^!SetWizardLabel Browse And Select File
      ^!Set %filename%=^?[(T=O)GET MD5 CHECKSUM for=C:\]
      ^!Goto ^%md5%
      :SELECTED_TEXT
      ^!SetClipboard ^$GetMD5Text(^$GetSelection$)$
      ^!Goto END
      :FILE_TEXT
      ^!Set %md5%=^%md5% for ^$GetFileName(^%filename%)$
      ^!SetClipboard ^$GetMD5Text(^$GetFileText(^%filename%)$)$
      ^!Goto END
      :WHOLE_FILE
      ^!Set %md5%=^%md5% for ^$GetFileName(^%filename%)$
      ^!SetClipboard ^$GetMD5File(^%filename%)$
      :END
      ^!Info ^%md5^%nl%^$GetClipboard$
    • Show all 8 messages in this topic