[CLOSED] how do I pass dialog variables in a macro to

[Patrick Le Derff]

MacroOne

Dialog>Dialog1
Caption=Notice
Width=445
Height=250
Top=104
Left=16
Edit=FileName,80,72,121,FilSeqCustomers
Button=OK,356,80,75,25,0
EndDialog>Dialog1

Show>dialog1,r

IfFileExists>msEdit1,existe,nexistepas
label>existe
MessageModal>"File exists"
DeleteFile>msEdit1
goto>fin
Label>nexistepas
MessageModal>"File not found"
Label>Fin




I want to use this macro below in BATCH like


MacroTwo

Macro>MacroOne.scp /FileName=NewFile




MacroTwo fails. How can I pass the value to the defined dialog variable?
Or other solution?

Thank you

[Marcus Tettmar]

You mean:

Macro>%SCRIPT_DIR%\MacroOne.scp /FilSeqCustomers=NewFile

If MacroOne.scp is in a different folder to the calling macro replaces %SCRIPT_DIR% with the path.

[JRL]

There are multiple syntax errors
try this and compare the code with yours to see the changes

Macro>[drive]:\[path]\MacroOne.scp /FileName=NewFile

Code: Select all

//Assigned checks to see if text string "filename"
//has a value and is therefore a variable
Assigned>filename,result

//If filename is a variable put its value in
//the edit box to look at it
If>result=TRUE
  Dialog>Dialog1
    Caption=Notice
    Width=445
    Height=250
    Top=104
    Left=16
    Edit=msEdit1,80,72,121,%filename%
    Button=OK,356,80,75,25,3
  EndDialog>Dialog1

  Show>dialog1,r

//if the value of filename is a valid existing file
//delete it,  if not, report that filename does not exist
  IfFileExists>dialog1.msEdit1,existe,nexistepas
    label>existe
      MessageModal>File %filename% exists
      DeleteFile>%dialog1.msEdit1%
      goto>Fin
    Label>nexistepas
      MessageModal>File %filename% not found
    Label>Fin
  EndIf

Else
MessageModal>No File specified
EndIf

[Patrick Le Derff]

both macros are in the same directory but in different file.
With the first macro (MacroOne it is a sample) I want to delete a file if exists. I run the macro and i fill the field and it works.

In the second macro I want to run the first macro without displaying the dialog but to pass the parameters directly

Excuse for my english but I am connected from France
Do You understand what I wannt to do?

rgds

[Marcus Tettmar]

So I think you want:

Code: Select all

//Assigned checks to see if text string "filename"
//has a value and is therefore a variable
Assigned>filename,result

//Do we have a filename or not
If>result=TRUE
  Let>thefile=filename
Else
  //no filename passed, so display a dialog to request it
  Dialog>Dialog1
    Caption=Notice
    Width=316
    Height=152
    Top=226
    Left=155
    Edit=msEdit1,24,24,177,
    Button=OK,108,72,75,25,3
    Button=Browse,208,24,75,25,0
	FileBrowse=Browse,msEdit1
  EndDialog>Dialog1

  Show>dialog1,r
  Let>thefile=dialog1.msEdit1
Endif

//if the value of filename is a valid existing file
//delete it,  if not, report that filename does not exist
IfFileExists>thefile,existe,nexistepas
  label>existe
    MessageModal>File %thefile% exists
    DeleteFile>%thefile%
    goto>Fin
  Label>nexistepas
    MessageModal>File %thefile% not found
  Label>Fin
EndIf

[Patrick Le Derff]

What can I do to post reply in the same subject.
I had click on PostReply button. I fill up my reply and click on Submit button

Regards

[Marcus Tettmar]

Just hit Post Reply, write your message and hit Submit. You don't need to enter anything in the Subject. Just like you have just done.

[Patrick Le Derff]

Thank you

must I post again my earlier message?

Regards

[Marcus Tettmar]

What earlier message? Did we miss something?

[Patrick Le Derff]

Not at all!
apologies!

Rgds

[Patrick Le Derff]

Good morning,

Macro>%SCRIPT_DIR%\MacroOne.scp /FilSeqCustomers=NewFile

your reply works partially.
The new value is passed correctly to MacroOne, but the dialog box is displayed. How can I by-pass the interactive box?

Regards

[Marcus Tettmar]

The new variable is filename. Use this code:

Code: Select all

//Assigned checks to see if text string "filename"
//has a value and is therefore a variable
Assigned>filename,result

//Do we have a filename or not
If>result=TRUE
  Let>thefile=filename
Else
  //no filename passed, so display a dialog to request it
  Dialog>Dialog1
    Caption=Notice
    Width=316
    Height=152
    Top=226
    Left=155
    Edit=msEdit1,24,24,177,
    Button=OK,108,72,75,25,3
    Button=Browse,208,24,75,25,0
	FileBrowse=Browse,msEdit1
  EndDialog>Dialog1

  Show>dialog1,r
  Let>thefile=dialog1.msEdit1
Endif

//if the value of filename is a valid existing file
//delete it,  if not, report that filename does not exist
IfFileExists>thefile,existe,nexistepas
  label>existe
    MessageModal>File %thefile% exists
    DeleteFile>%thefile%
    goto>Fin
  Label>nexistepas
    MessageModal>File %thefile% not found
  Label>Fin
EndIf

Call it with:

Macro>%SCRIPT_DIR%\MacroOne.scp /filename=c:\bla\somefile.fil

Note the very first line of the script above checks to see if filename is assigned. If not it shows the dialog. If it is it ignores the dialog.

[Patrick Le Derff]

Thank you for your effective support. I understood how it works
Regards