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

234Re: [NTS] RegExp Script Needed to Change a Clip...

Expand Messages
  • Sheri
    May 28, 2003
    • 0 Attachment
      Hi Larry (Jody, Alan),

      Glad you could use it! Here's another I'd done that goes back from Decimal format to Character.

      Regards,
      Sheri


      H="Convert Decimal Email addys back to Char"
      ;05/28/2003 by Sheri Pierce
      ;Position cursor at top of document or alternate starting point
      :Repeat
      ^!Jump Select_End
      ^!Find "(\&*\#\d+\;)+" RIS
      ^!IfError Clearvars
      ^!SetListDelimiter=;
      ^!SetArray %Trans%=^$GetSelection$
      ^!Set %i%=0
      ^!Clearvariable %decode%
      :Loop
      ^!If ^%i%>^%Trans0% Out
      ^!Inc %i%
      ^!IfTrue ^$IsEmpty(^%Trans^%i%%)$ Loop
      ^!Set %nextchar%="^$DecToChar(^$StrDeleteLeft(^%Trans^%i%%;2)$)$"
      ^!Append %decode%="^%nextchar%"
      ^!Clearvariable %nextchar%
      ^!Goto Loop
      :Out
      ^!IfMatch "[A-Z_.-0-9]+@[A-Z_.-0-9]+" "^%decode%" Next ELSE Repeat
      ^!InsertText ^%decode%
      ^!Goto Repeat
      :Clearvars
      ^!ClearVariable %Trans%
      ^!ClearVariable %decode%
      ^!ClearVariable %i%
      ^!Prompt All Done
      ;end of clip
    • Show all 14 messages in this topic