home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / htmlks10.zip / AddURL.erx < prev    next >
Text File  |  1997-09-03  |  378b  |  13 lines
  1. /*returns a string*/
  2. parse arg Kase Col theText
  3. parse value theText with 'F_FILE='FullFile'_LINE='lineText
  4. Col=Col-1
  5. if (Col<0) then Col=0
  6. leftLine=left(lineText, Col)
  7. rightLine=right(lineText, length(lineText)-Col)
  8.  
  9. theHREF=linein(FullFile)
  10.  
  11. call etkreplacetext leftLine'<A HREF="'theHREF'">'right(FullFile, length(FullFile)-lastpos('\', FullFile))'</A>'rightLine
  12.  
  13.