Macro to select current paragraph

Macro to select current paragraph

23
Basic UserBasic User
23

    Aug 23, 2007#1

    I miss a general feature in UltraEdit: the possibility of automatically selecting a paragraph. I know it's a feature related to standard writing, not to code writing, but I am using the program for my needs and I would like to customize it as far as possible.
    I have written a macro with this syntax but it's not perfect at all. Sometimes, the first character in the paragraph is not selected and sometimes the selection goes to the previous and the next carriage return. Any suggestion?
    This is my poor macro:
    InsertMode
    ColumnModeOff
    HexOff
    UnixReOff
    Find Up "^p"
    Find RegExp "[a-z]"
    EndSelect
    StartSelect
    Find Select "^p"
    End of my macro. Thank you in advance.

    6,602547
    Grand MasterGrand Master
    6,602547

      Aug 24, 2007#2

      Are your paragraphs always single lines which means do you write long lines with soft word wrap enabled to be able to read it?
      Best regards from an UC/UE/UES for Windows user from Austria

      23
      Basic UserBasic User
      23

        Aug 24, 2007#3

        Yes, because I am using UltraEdit as a text editor.

        6,602547
        Grand MasterGrand Master
        6,602547

          Aug 24, 2007#4

          Here is the macro which needs macro property Continue if a Find with Replace not found or Continue if search string not found enabled.

          ColumnModeOff
          HexOff
          Find Up "^p"
          IfFound
          Key HOME
          IfColNumGt 1
          Key HOME
          EndIf
          Else
          Top
          EndIf
          Loop
          IfEof
          ExitLoop
          EndIf
          IfCharIs 13
          Key DOWN ARROW
          Else
          IfCharIs 10
          Key DOWN ARROW
          Else
          ExitLoop
          EndIf
          EndIf
          EndLoop
          StartSelect
          Find Select "^p"
          IfSel
          Else
          SelectToBottom
          EndIf


          And here is the macro again in UEM syntax with indentations and comments - see Macro examples and reference for beginners and experts.

          Code: Select all

          ColumnModeOff
          HexOff
          //  Search upwards for a DOS line termination.
          Find Up "^p"
          /*! If found, unselect it. The cursor is already on start of the next line.
              Key LEFT ARROW followed by Key RIGHT ARROW cannot be used to unselect
              the line termination because this could be an empty line and so the
              cursor could be moved with right arrow to next line, but not with left
              arrow back to previous line depending on the configuration settings.
              So a Key HOME is used. But when configuration setting >Home Key always
              Goto column 1< is not enabled, the cursor could be moved with first
              HOME to first non-white space character. So use HOME again when this
              happens. A simple unselect command would be fine. !*/
          IfFound
              Key HOME
              IfColNumGt 1
                  Key HOME
              EndIf
          Else
          //  No line termination found upwards - set cursor to top of the file.
              Top
          EndIf
          /*! Empty lines should be ignored. So when the character at start of the
              line is a carriage return (decimal code 13) or a line-feed (dec. 10)
              move the cursor in column 1 down until a different character is found
              or end of file is reached. At end of file nothing is selected. !*/
          Loop
              IfEof
                  ExitLoop
              EndIf
              IfCharIs 13
                  Key DOWN ARROW
              Else
                  IfCharIs 10
                      Key DOWN ARROW
                  Else
                      ExitLoop
                  EndIf
              EndIf
          EndLoop
          /*! Select now everything to next DOS line termination or to end of
              file if the cursor is on start of a string at the end of the file. !*/
          StartSelect
          Find Select "^p"
          IfSel
          Else
              SelectToBottom
          EndIf
          Best regards from an UC/UE/UES for Windows user from Austria

          23
          Basic UserBasic User
          23

            Aug 26, 2007#5

            Your macro works beautifully and it's perfect for my purpose. Thank you very much!
            Best regards from Galiza (Spain)!