[ALLY] message window in /View
[1/3] from: carlos::lorenz::net at: 10-Oct-2000 10:18
This is a multi-part message in MIME format.
------=_NextPart_000_0008_01C032A3.6AD0C9E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi /Viewers
Considering the following code:
REBOL[]
reads-dir-savesFTP: func [
dir [string!] {folder to read}
folder [url!] {FTP folder where to save files}
] [
dir_xport: read to-file dir
pattern: "*.txt"
foreach file dir_xport [
if find/match/any file pattern [
print ["Trasferring file" :file]
write/binary folder/:file read/binary dir_xport/:file
]
]
]
read-dir-savesFTP "/c/windows/my documents/" ftp://user:[pass--ftp--somesite--com]/
Using /View, wich is the simplest way of redirecting issues printed with the command
print ["Trasferring file" :file]
to a window with some kind of scroll so I can later review all printed strings?
Thank you all
Carlos Lorenz
------=_NextPart_000_0008_01C032A3.6AD0C9E0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Verdana size=2>Hi /Viewers</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Considering the following code:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>REBOL[]</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>reads-dir-savesFTP: func
[<BR>
dir [string!] {folder to
read}<BR> folder
[url!] {FTP folder where to save
files} <BR> ]
[<BR> dir_xport: read to-file
dir<BR>
pattern: "*.txt"<BR> foreach file
dir_xport [
<BR> if
find/match/any file pattern [
<BR>
print ["Trasferring file"
:file]<BR>
write/binary folder/:file read/binary
dir_xport/:file<BR>
]<BR> ] <BR>
]</FONT></DIV>
<DIV><FONT face=Verdana size=2> </FONT></DIV>
<DIV><FONT face=Verdana size=2>read-dir-savesFTP "/c/windows/my documents/" "<A
href="ftp://user:[pass--ftp--somesite--com]/">ftp://user:[pass--ftp--somesite--com]/</A></FONT>"</DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>Using /View, wich is the simplest way of
redirecting issues printed with the command</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2> print ["Trasferring file" :file]
</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>to </FONT><FONT face=Verdana size=2>a window with
some kind of scroll so I can later review all printed
strings?</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Thank you all</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>Carlos Lorenz<BR></DIV></FONT>
<DIV><FONT face=Verdana size=2><BR></DIV></FONT></BODY></HTML>
------=_NextPart_000_0008_01C032A3.6AD0C9E0--
[2/3] from: al:bri:xtra at: 11-Oct-2000 2:10
> Considering the following code:
<snip!>
Your FTP function might look a little better as:
FTP-to-Site: function [Directory [file!] Site [url!]] [Files] [
Files: read Directory
foreach File read Directory [
if found? find/tail ".txt" [
print ["FTP-ing:" File]
write Site/:File read Directory/:File
]
]
]
and invoked like:
FTP-to-Site %"/C/Windows/My Documents/" ftp://user:[pass--ftp--somesite--com]/
Note that the above code is untested!
> Using /View, wich is the simplest way of redirecting issues printed with
the command
> print ["Trasferring file" :file]
> to a window with some kind of scroll so I can later review all printed
strings?
Try this:
FTP-Log: make block! 100
Instead of:
print ["FTP-ing:" File]
use:
append FTP-Log form File
then:
view layout [
text-list data FTP-Log
]
I hope that helps somewhat.
Andrew Martin
ICQ: 26227169
http://members.nbci.com/AndrewMartin/
[3/3] from: carlos:lorenz at: 10-Oct-2000 10:20
This is a multi-part message in MIME format.
------=_NextPart_000_0012_01C032A3.A82AA900
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi /Viewers
Considering the following code:
REBOL[]
reads-dir-savesFTP: func [
dir [string!] {folder to read}
folder [url!] {FTP folder where to save files}
] [
dir_xport: read to-file dir
pattern: "*.txt"
foreach file dir_xport [
if find/match/any file pattern [
print ["Trasferring file" :file]
write/binary folder/:file read/binary dir_xport/:file
]
]
]
read-dir-savesFTP "/c/windows/my documents/" ftp://user:[pass--ftp--somesite--com]/
Using /View, wich is the simplest way of redirecting issues printed with the command
print ["Trasferring file" :file]
to a window with some kind of scroll so I can later review all printed strings?
Thank you all
Carlos Lorenz
------=_NextPart_000_0012_01C032A3.A82AA900
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Verdana size=2>Hi /Viewers</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Considering the following code:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>REBOL[]</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>reads-dir-savesFTP: func
[<BR>
dir [string!] {folder to
read}<BR> folder
[url!] {FTP folder where to save
files} <BR> ]
[<BR> dir_xport: read to-file
dir<BR>
pattern: "*.txt"<BR> foreach file
dir_xport [
<BR> if
find/match/any file pattern [
<BR>
print ["Trasferring file"
:file]<BR>
write/binary folder/:file read/binary
dir_xport/:file<BR>
]<BR> ] <BR>
]</FONT></DIV>
<DIV><FONT face=Verdana size=2> </FONT></DIV>
<DIV><FONT face=Verdana size=2>read-dir-savesFTP "/c/windows/my documents/" "<A
href="ftp://user:[pass--ftp--somesite--com]/">ftp://user:[pass--ftp--somesite--com]/</A></FONT>"</DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>Using /View, wich is the simplest way of
redirecting issues printed with the command</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2> print ["Trasferring file" :file]
</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>to </FONT><FONT face=Verdana size=2>a window with
some kind of scroll so I can later review all printed
strings?</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Thank you all</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Verdana size=2>Carlos Lorenz<BR></DIV></FONT>
<DIV><FONT face=Verdana size=2><BR></DIV></FONT></BODY></HTML>
------=_NextPart_000_0012_01C032A3.A82AA900--