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

Re: Character conversion

Expand Messages
  • Flo
    Thank you, Sheri. With your help I could reduce the clip to the following lines... ^!Set %Dummy%= þ ^!SetHintInfo Working... ^!SetScreenUpdate Off ^!Set
    Message 1 of 6 , Jul 10, 2007
    • 0 Attachment
      Thank you, Sheri. With your help I could reduce the clip to the
      following lines...

      ^!Set %Dummy%="þ"
      ^!SetHintInfo Working...
      ^!SetScreenUpdate Off
      ^!Set %RepFile%=^?{(T=O)Choose Replacements File:==^%RepFile%}
      ^!SetListDelimiter ^p
      ; long line start
      ^!SetArray %Replacements%=^$StrReplace("|";"^P";"^$GetFileText("^%
      RepFile%")$";0;0)$
      ; long line end
      ^!Set %Count%=1

      :Loop
      ^!Set %Search%="^%Replacements^%Count%%"
      ^!Inc %Count%
      ^!Set %ExWith%="^%Replacements^%Count%%"
      ^!Replace "^%ExWith%" >> "^%Dummy%" AWST
      ^!Replace "^%Search%" >> "^%ExWith%" AWST
      ^!Replace "^%Dummy%" >> "^%Search%" AWST
      ^!Inc %Count%
      ^!If ^%Count% < ^%Replacements0% Loop

      :End
      ^!Info Finished!
      ;end of clip


      In order to free memory it should end with...

      :End
      ^!Set %Replacements%=""
      ^!ClearVariable %Search%
      ^!ClearVariable %Count%
      ^!ClearVariable %ExWith%
      ^!Info Finished!


      Flo
       
    Your message has been successfully submitted and would be delivered to recipients shortly.