when you 'open you should use 'close

if you do not want to 'close then  use 'read which won't leave the file ope=
n


PortFile: read %file
qty:  0
while [PortFile: find/tail PortFile SomeThing][
   qty: qty + 1
]


On 7/21/05, Cesar Chavez <[EMAIL PROTECTED]> wrote:
> Hi, everybody
>=20
> Please, look at next code, I need to search the occurrences of SomeThing =
in a file and this code is OK.
>=20
> After the last ocurrence PortFile is set to none, then the while finish o=
k, but what happen with the port, is it closed automatically?
>=20
> I will appreciate any kind of comments.
>=20
> Thanks to all in advance
>=20
> C=E9sar
>=20
> [
>=20
> SomeThing: "x10"
>=20
> PortFile: open/read %file
> qty:  0
> while [PortFile: find/tail PortFile SomeThing][
>     qty: qty + 1
> ]
>=20
> ]
>=20
>=20
> --
> To unsubscribe from the list, just send an email to
> lists at rebol.com with unsubscribe as the subject.
>=20
>=20


--=20
   ... nice weather   eh
-- 
To unsubscribe from the list, just send an email to 
lists at rebol.com with unsubscribe as the subject.

Reply via email to