Extension: .uc

Script Language: Basic.uc

Setup:
  Dim PlainText$

Searchable Text:

Open As Plain Text (Default):

Open As Transformation:
  Set("FindMode", "Replace")
  Set("MultiSearch", True)
  PlainText$ = Do("OpenTransform", SelectedFile)
  If PlainText$ <> "" Then MsgBox "This file can only be opened as Plain Text" Else PlainText$ = Do("CloseFile")
  PlainText$