3 Replies Latest reply: Feb 19, 2016 3:54 AM by Marcello Aondio RSS

    Create / export   .txt file from button

    Marcello Aondio

      Hi Everybody,

       

      how can i create an empty .txt file from my dashboard with a button?

      I need to create on my desktop an empty .txt file with this naming convention :

       

      XX_YY_GG-MM-AAAA_HH-MM-SS.txt


      where GG-MM-AAAA_HH-MM-SS represent the now().


      Thanks Everybody!

      M



        • Re: Create / export   .txt file from button
          Settu Periyasamy

          Hi,

          May be this macro will help...

          Create one field without value and use it as a ListBox, (Here the object ID LB01) .

          Create one Button, Assign the below Macro

           

          sub Test()
                set obj = ActiveDocument.GetSheetObject("LB01")
                    path=ActiveDocument.Evaluate("=Replace(DocumentPath(),subfield(DocumentPath(),'\',-1),'')")
                    fname=ActiveDocument.Evaluate("=Timestamp(now(),'DD-MM-YYYYY_hh-mm-ss')")
                obj.Export path&"\XX_YY_"&fname&".txt",","
          end sub
          
          
          

           

          Or, You can create two variables, and use it in your macro.. Like

           

          
          sub Test_1()
                set obj = ActiveDocument.GetSheetObject("LB01")
                set path=ActiveDocument.GetVariable("vPath")
                set fname=ActiveDocument.GetVariable("vFile")
                filename=path.getcontent.string&"XX_YY"&fname.getcontent.string&".txt"
                obj.Export filename,","
          end sub
          
          

           

          Check the Attachment..

          • Re: Create / export   .txt file from button
            Jonathan Dienst

            You don't need to export a dummy object, rather use the vbscript fso api:

             

            fname = "\XX_YY_" & ActiveDocument.Evaluate("=Timestamp(now(),'DD-MM-YYYYY_hh-mm-ss')") & ".txt"

            Set filesys = CreateObject("Scripting.FileSystemObject")

            Set filetxt = filesys.CreateTextFile(fname, True)

            filetxt.Close

              • Re: Create / export   .txt file from button
                Marcello Aondio

                Thanks Jonathan,

                finally i've used this macro:

                 

                sub EXPORT()

                dim a
                a = now()

                Set objFSO = CreateObject("Scripting.FileSystemObject")
                Set objFile = objFSO.CreateTextFile("C:\Users\marcello.aondio\Desktop\Sorgenia 2\" & "TASK_NOMETASKAA_UTENTEQV_" & left(a,2) & "-" & Right(Left(a, 5), 2) & "-" & Right(Left(a, 10), 4) & "_" &Right(Left(a, 13), 2)& "-" &Right(Left(a, 16), 2)& "-" &Right(Left(a, 19), 2)& ".txt")

                end sub