Arexx question - putting the output of a DOS command into a variable

	Bottom Previous Topic Next Topic
Register To Post

daveyw

Posted on: 5/25 2:01 #1

Just popping in

Hi,

I am trying to write an arexx script that uses Requeststring to get a string from a user, but I'm struggling to get it to work properly.

From what I've read, this should work:


/*Clone*/



OPTIONS RESULTS

address command 'c:requeststring title "Clone" body "Enter filename to clone to"'

newname = RESULT

But it doesn't, the value of newname is RESULT.

I have found a method using rxset that works but means I can't enter a DEFSTRING, and I guess I could write the output to a file and read it, but I'm intrigued as to why this doesn't work.

daveyw

Re: Arexx question - putting the output of a DOS command into a variable

Posted on: 5/25 3:33 #2

Just popping in

@daveyw

Well, I got my method using rxset to do what I wanted, so this is kinda moot now, but still curious why I can't get a RESULT.


/* Clone */



OPTIONS RESULTS

OPTIONS FAILAT 21

SIGNAL ON ERROR

parse arg file



path=Left(file, LastPos('/',file))

if path = "" then path=Left(file, LastPos(':',file))

oldfile=delstr(file,1,length(path))

oldfile=Left(oldfile,length(oldfile)-1)



address command



cmd = ' title "Clone" body "Enter filename to clone to" DEFSTRING "'||oldfile||'"'



rxset reqres "`"requeststring cmd"`"

newfile=getclip(reqres)

call setclip(reqres,'')



cmd = 'c:copy from '||file||' to '||path||newfile'" >nil:'

address command cmd



EXIT



ERROR:

address command 'c:requestchoice "Abort" "Cloning aborted" "OK" >NIL:'

EXIT

Edited by daveyw on 2022/5/25 22:04:18

pjs

Re: Arexx question - putting the output of a DOS command into a variable

Posted on: 5/29 0:53 #3

Not too shy to talk

Hey Davyw,

Ever the fan of doing things the longhand way, here's a chunk
of code I've used often. You can paste this in a text file and
test it in the CLI.

---
/* Ask User Choice & Print Out
*/
TitleBarTxt = 'Test Requester'
BodyTxt = 'Pick something!'
ButtonsTxt = '"Yes" "Umm" "No"'
ReqType = 'INFO'
cline = 'c:requestchoice "' || (TitleBarTxt) || '" "' || BodyTxt || '" ' || (ButtonsTxt) || ' TYPE ' || (ReqType) || ' TO T:response.txt'
address command cline
MyReturnCode = RC
if exists('T:response.txt') then
if open(ReqF,'T:response.txt','r') then do
pick = strip(readln(ReqF),'B','"')
bs = close(ReqF)
address command 'c:delete T:response.txt'
say 'response >' pick '<'
end
else
say 'Couldn''t open Requester output file'
---

[meh -- tabs were stripped -- imagine they're there ]

Of course this can be adapted to RequestString or RequestFile.
The RC/ReturnCode lets you see if the user cancelled the
requester in those cases, IIRC.

Good luck,

PJS

daveyw

Re: Arexx question - putting the output of a DOS command into a variable

Posted on: 5/30 22:13 #4

Just popping in

@pjs

Thanks for that. Yeah, if I had gone down the route of writing the response to a file and then reading it, that's a decent bit of code.

I'm a bit wary of that way of doing things, though, when I wrote a script that wrote a fair amount of data to a file and then tried to parse bits of it into variables. I found that it would fall over, and I suspected it was because it was trying to read the file before it was finished writing. I did a quick and dirty workaround with a wait, but I really need to figure out how to use EOF().

xenic

Re: Arexx question - putting the output of a DOS command into a variable

Posted on: 5/31 21:26 #5

Just can't stay away

@daveyw
I found this in ARexxReference:


/*  Example: code snippet by Christoph Gutjahr - c.gutjahr@gmx.de

  -------

  Assuming you have the dos command program "requeststring"... */



    cmdid='req'pragma('id')

    address command 'rxset' cmdid '`requeststring "TITLE" "BODY"`'

    inputstring=getclip(cmdid)

    say inputstring

    call setclip(cmdid,'')

I added the say command to confirm it works.

Amiga X1000 with 2GB memory & OS 4.1FE + Radeon HD 5450

Register To Post
	Top Previous Topic Next Topic

Currently Active Users Viewing This Thread: 1 ( 0 members and 1 Anonymous Users )