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

Simple filename and the date for Sunday

Expand Messages
  • Adrian Worsfold
    Hello clippers Two questions. First. Why is it so difficult to produce a first part filename without its path and without its extension? I want to change a
    Message 1 of 8 , Nov 18, 2012
    • 0 Attachment
      Hello clippers

      Two questions.

      First. Why is it so difficult to produce a first part filename without its path and without its extension? I want to change a variable name from variable name .axp to that name .txt in a different folder. There does not seem to be a simple way of getting the dcument name but just that part.

      Second question. I know how to make a filename from the day's reverse date, say 20121118, but how do I do it so it is on any day the next Sunday's reverse date - so from now on it's 20121125?




      Adrian Worsfold

      http://www.pluralist.co.uk
      http://pluralistspeaks.blogspot.com
      pluralist@...
      18-11-2012
      ----- Received the following content -----
      From: flo.gehrke
      Receiver: ntb-clips
      Time: 2012-11-16, 13:42:25
      Subject: Re: [Clip] Extracting text from a music .XML file.


      [Non-text portions of this message have been removed]
    • flo.gehrke
      ... Adrian, I think there are two different conditions: Any day might be (1) the current date provided by the system (as Axel seems to assume); or (2) any
      Message 2 of 8 , Nov 18, 2012
      • 0 Attachment
        --- In ntb-clips@yahoogroups.com, "Adrian Worsfold"<pluralist@...> wrote:
        >
        > Second question. I know how to make a filename from the day's reverse date, say 20121118, but how do I do it so it is on any day the next Sunday's reverse date - so from now on it's 20121125?

        > Second question. I know how to make a filename from the day's
        > reverse date, say 20121118, but how do I do it so it is on any
        > day the next Sunday's reverse date - so from now on it's
        > 20121125?

        Adrian,

        I think there are two different conditions:

        "Any day" might be (1) the current date provided by the system (as Axel seems to assume); or (2) any date that is entered manually or called by the clip, e.g. by selecting a date in the document.

        If it's about #2, then, in principle, the reverse date of the next Sunday following "any date" could be provided with...


        ^!Set %Date%=^?{Enter a date (yyyymmdd):}
        ^!Set %DateNr%=^$GetDateToInt(^%Date%;yyyymmdd)$

        :Loop
        ^!IfSame "Sun" "^$GetDateFromInt(^%DateNr%;ddd)$" Match
        ^!Inc %DateNr%
        ^!Goto Loop

        :Match
        ^!Info Next Sunday: ^$GetDateFromInt(^%DateNr%;yyyymmdd)$


        Note: The comparison '^!IfSame "Sun"...' depends on what your system outputs as short day names (being called with 'ddd').

        Regards,
        Flo
      • Adrian Worsfold
        Hello flo.gehrke Thank you but it doesn t work - enter 20121119 and it produces Next Sunday: 18991231 which should be 20121125 But the idea is to produce the
        Message 3 of 8 , Nov 18, 2012
        • 0 Attachment
          Hello flo.gehrke

          Thank you but it doesn't work - enter 20121119 and it produces

          Next Sunday: 18991231

          which should be 20121125

          But the idea is to produce the very next Sunday.

          I'm a long long way behind your level, so I'm just trying at present to enter a length of time into a box so that the result is shown in a CD tracks list display as here:

          <Start 10: for 11:00 am start [:]>

          where the bit after 10: is the time left in rounded up minutes from the time entered that should display again within the [:] - in other words there is music that plays up to the first hymn the length of which decides when the bespoke CD starts to play towards stopping before the first hymn when the service begins.

          Example from Sunday 18th:


          Service 20121118

          Rosemary Arthur

          <Start 10:41 for 11:00 am start [19:00]>

          01 Name of the Rose Kyrie [02:24]
          02 Lord of the Rings Movement 1 [11:14]
          03 Name of the Rose Veni Sancte Spiritus [03:13]
          04 Taverner In Nomine [02:04]

          05 SF 062 Old 124th choir [02:47]
          06 HL 035 Vienna choir [03:07]

          07 Perlman Schindlers List Remembrances [05:16] <meditation>

          08 HL 125 Gerontius [01:59]

          09 Clyde McLennan We Bring to the Altar [01:09] <collection>

          10 HL 127 Woodlands choir tape [03:22]

          11 Pheloung Inspector Morse [02:11]
          12 Haydn Symphony 84 In Nomine Domini [24:28]
          13 Name of the Rose Suite [10:52]







          Adrian Worsfold

          http://www.pluralist.co.uk
          http://pluralistspeaks.blogspot.com
          pluralist@...
          19-11-2012
          ----- Received the following content -----
          From: flo.gehrke
          Receiver: ntb-clips
          Time: 2012-11-19, 04:41:24
          Subject: [Clip] Re: Simple filename and the date for Sunday


          [Non-text portions of this message have been removed]
        • hsavage
          ... Axel seems to assume); or (2) any date that is entered manually or called by the clip, e.g. by selecting a date in the document. ... Sunday following any
          Message 4 of 8 , Nov 18, 2012
          • 0 Attachment
            > Adrian,
            >
            > I think there are two different conditions:
            >
            > "Any day" might be (1) the current date provided by the system (as
            Axel seems to assume); or (2) any date that is entered manually or
            called by the clip, e.g. by selecting a date in the document.
            >
            > If it's about #2, then, in principle, the reverse date of the next
            Sunday following "any date" could be provided with...
            >
            >
            > ^!Set %Date%=^?{Enter a date (yyyymmdd):}
            > ^!Set %DateNr%=^$GetDateToInt(^%Date%;yyyymmdd)$
            >
            > :Loop
            > ^!IfSame "Sun" "^$GetDateFromInt(^%DateNr%;ddd)$" Match
            > ^!Inc %DateNr%
            > ^!Goto Loop
            >
            > :Match
            > ^!Info Next Sunday: ^$GetDateFromInt(^%DateNr%;yyyymmdd)$
            >
            >
            > Note: The comparison '^!IfSame "Sun"...' depends on what your system
            outputs as short day names (being called with 'ddd').
            >
            > Regards,
            > Flo

            Flo,

            As it is, your clip doesn't work. Transpose the first 2 lines under
            :Loop and it will.

            ···············································
            ¤. JD#...323 - ¤. SL...977 - 12.11.18~23.52.58

            . Newspaper Headline...
            . Drunken Drivers Paid $1000 In '84.

            EUR hrs EUR hsavage EUR pobox EUR com


            [Non-text portions of this message have been removed]
          • flo.gehrke
            ... Hi Adrian, I m sorry -- but for me, it s perfectly working. When entering 20121119 , my clip correctly outputs: Next Sunday: 20121125 . I think it
            Message 5 of 8 , Nov 19, 2012
            • 0 Attachment
              --- In ntb-clips@yahoogroups.com, "Adrian Worsfold"<pluralist@...> wrote:
              >
              > Hello flo.gehrke
              > Thank you but it doesn't work - enter 20121119 and it produces
              > Next Sunday: 18991231
              > which should be 20121125

              Hi Adrian,

              I'm sorry -- but for me, it's perfectly working. When entering '20121119', my clip correctly outputs: 'Next Sunday: 20121125'.

              I think it doesn't work for you because you changed the first line to...

              ^!Set %Date%=3D^?{Enter a date (yyyymmdd):}

              Of course, this produces no valid date integer NT could work with.

              So, with '3D20121119', the integer is 'empty', and it outputs '18991231' which was Sunday, Dec 31, 1899, i.e. the first Sunday after the beginning of the date number caculation (18991230).

              Please check if NT displays a valid date integer with line #3 in...

              ^!Set %Date%=^?{Enter a date (yyyymmdd):}
              ^!Set %DateNr%=^$GetDateToInt(^%Date%;yyyymmdd)$
              ^!Info The date integer is: ^%DateNr%

              :Loop
              ^!IfSame "So" "^$GetDateFromInt(^%DateNr%;ddd)$" Match
              ^!Inc %DateNr%
              ^!Goto Loop

              :Match
              ^!Info Next Sunday: ^$GetDateFromInt(^%DateNr%;yyyymmdd)$


              Regards,
              Flo
            • flo.gehrke
              ... Thanks, Harvey. But what do you mean with Transpose the first 2 lines under :Loop ? When changing my clip to... ... ^!Set %Date%=^?{Enter a date
              Message 6 of 8 , Nov 19, 2012
              • 0 Attachment
                --- In ntb-clips@yahoogroups.com, hsavage <hsavage@...> wrote:
                >
                > Flo,
                >
                > As it is, your clip doesn't work. Transpose the first 2 lines under
                > :Loop and it will.

                Thanks, Harvey. But what do you mean with "Transpose the first 2 lines under :Loop"?

                When changing my clip to...

                :Loop
                ^!Set %Date%=^?{Enter a date (yyyymmdd):}
                ^!Set %DateNr%=^$GetDateToInt(^%Date%;yyyymmdd)$
                ^!IfSame "So" "^$GetDateFromInt(^%DateNr%;ddd)$" Match
                ^!Inc %DateNr%
                ^!Goto Loop

                :Match
                ^!Info Next Sunday: ^$GetDateFromInt(^%DateNr%;yyyymmdd)$

                ...it endlessly prompts the user to enter a date.

                I think the problem is in my reply to Adrian (#23418).

                Regards,
                Flo
              • hsavage
                ... lines under :Loop ? ... Flo, Your clip is as follows and you entered the date 1119 , I mistakenly entered 1118 and the clip didn t loop because it
                Message 7 of 8 , Nov 19, 2012
                • 0 Attachment
                  On 11/19/2012 7:58 AM, flo.gehrke wrote:
                  > --- In ntb-clips@yahoogroups.com, hsavage <hsavage@...> wrote:
                  >>
                  >> Flo,
                  >>
                  >> As it is, your clip doesn't work. Transpose the first 2 lines under
                  >> :Loop and it will.
                  >
                  > Thanks, Harvey. But what do you mean with "Transpose the first 2
                  lines under :Loop"?
                  >
                  > When changing my clip to...
                  >
                  > :Loop
                  > ^!Set %Date%=^?{Enter a date (yyyymmdd):}
                  > ^!Set %DateNr%=^$GetDateToInt(^%Date%;yyyymmdd)$
                  > ^!IfSame "So" "^$GetDateFromInt(^%DateNr%;ddd)$" Match
                  > ^!Inc %DateNr%
                  > ^!Goto Loop
                  >
                  > :Match
                  > ^!Info Next Sunday: ^$GetDateFromInt(^%DateNr%;yyyymmdd)$
                  >
                  > ...it endlessly prompts the user to enter a date.
                  >
                  > I think the problem is in my reply to Adrian (#23418).
                  >
                  > Regards,
                  > Flo

                  Flo,

                  Your clip is as follows and you entered the date '1119', I mistakenly
                  entered '1118' and the clip didn't loop because it looked for 'Sun' on a
                  'Sun'.

                  :Loop
                  ^!IfSame "Sun" "^$GetDateFromInt(^%DateNr%;ddd)$" Match
                  ^!Inc %DateNr%
                  ^!Goto Loop

                  I swapped the first 2 lines and since '%DateNr%' incremented first the
                  clip ran OK.

                  :Loop
                  ^!Inc %DateNr%
                  ^!IfSame "Sun" "^$GetDateFromInt(^%DateNr%;ddd)$" Match
                  ^!Goto Loop


                  ···············································
                  ¤. JD#...324 - ¤. SL...980 - 12.11.19~08.11.25

                  . Newspaper Headline...
                  . Farmer Bill Dies In House.

                  EUR hrs EUR hsavage EUR pobox EUR com


                  [Non-text portions of this message have been removed]
                • Axel Berger
                  ... What s so difficult about ^$GetName(^$GetDocName$)$ ... ^$GetDateFromInt(^$Calc(CEIL((^$GetDateToInt$+6)/7)*7-6)$;yyyymmdd)$ Axel
                  Message 8 of 8 , Nov 19, 2012
                  • 0 Attachment
                    Adrian Worsfold wrote:
                    > a first part filename without its path and without its extension?
                    > There does not seem to be a simple way of getting the dcument
                    > name but just that part.

                    What's so difficult about

                    ^$GetName(^$GetDocName$)$

                    > how do I do it so it is on any day the next Sunday's reverse date

                    ^$GetDateFromInt(^$Calc(CEIL((^$GetDateToInt$+6)/7)*7-6)$;yyyymmdd)$

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