Hello everyone.
It seems a few people are interested in the script.
Here it is (attatched) and you lot can use it for your needs.
If you get it a bit more friendly, I would like the feedback.
Regards
--
Learning without thought is labor lost.
Andrew Bruno
[EMAIL PROTECTED]
-- Attached file included as plaintext by Listar --
-- File: typefile.rexx
/* */
lib="rexxdossupport.library"
if ~show('L',lib) then do
if addlib(lib,0,-30,0) then do
say lib 'not available'
exit 10
end
end
lib="rexxreqtools.library"
if ~show('L',lib) then do
if addlib(lib,0,-30,0) then do
say lib 'not available'
exit 10
end
end
nl = '0a'x
options results
filename = rtfilerequest(, , "Pick a file" , ,"rtfi_buffer = true")
if rtresult == 0 then
call rtezrequest("You didn't pick a file.", "No", ,)
else
/* filename = what I selected */
call open('the_file',filename,'R')
k = rx_getwinnum
say k
do while ~EOF('the_file')
j = readln('the_file')
'say '||j
end
call close('the_file')
__________________________________________________________
AmIRC Mailing List - Info & Archive: http://www.vapor.com/
For Listserver Help: <[EMAIL PROTECTED]>, "HELP"
To Unsubscribe: <[EMAIL PROTECTED]>, "UNSUBSCRIBE"
