home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / htmlkeys.zip / AddHtml.erx < prev    next >
Text File  |  1997-08-27  |  520b  |  25 lines
  1. /*returns a string*/
  2. PARSE ARG kase File FileText
  3. x=0
  4. title=''
  5. do while x<10
  6.  
  7. line = linein(File)
  8.  
  9. if pos('<title>', line)<>0 then do
  10.     title=right(line, length(line)-pos('<title>', line)-6)
  11.     title=left(title, pos('</title>', title)-1)
  12.     leave
  13.     end /*<title>do */
  14. else if pos('<TITLE>', line)<>0 then do
  15.     title=right(line, length(line)-pos('<TITLE>', line)-6)
  16.     title=left(title, pos('</TITLE>', title)-1)
  17.     leave
  18.     end /*<TITLE>do*/
  19. x=x+1
  20. end
  21.  
  22. call etkinserttext '<A HREF="'FileText'">'title'</A>'
  23.  
  24.  
  25.