home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / us15.zip / bimport.cmd next >
OS/2 REXX Batch file  |  1998-02-08  |  576b  |  32 lines
  1. /**/
  2.  
  3.         bookmark=''
  4.         urllist=''
  5.  
  6.         If bookmark='' then bookmark='bookmark.htm'
  7.  
  8.         If urllist='' then urllist='URL.LST'
  9.  
  10.         do while lines(bookmark)
  11.  
  12.         text = linein(bookmark)
  13.  
  14.         parse var text temptext'#'junk
  15.  
  16.         parse var temptext '"http://'url'" '
  17.  
  18.         if url \='' then do
  19.  
  20.                         call lineout urllist,'http://'||url
  21.                         call lineout urllist
  22.                         end
  23.  
  24.         end
  25.  
  26.         exit
  27.  
  28.         call stream(bookmark,'c','close')
  29.  
  30.         exit
  31.  
  32.