home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / htmlkeys.zip / Addgif.erx next >
Text File  |  1997-08-29  |  2KB  |  69 lines
  1. /*returns a string*/
  2. PARSE ARG kase FullFile FileText
  3.  
  4. altEA=''
  5. aliEA=''
  6. bordEA=''
  7. hspEA=''
  8. vspEA=''
  9. iMapEA=''
  10. uMapEA=''
  11.  
  12. call SysGetEa FullFile, 'HTMLKEYS_ALT', 'EAval'
  13. if length(EAval) >= 4 then altEA=right(EAval, length(EAval)-4)
  14. call SysGetEa FullFile, 'HTMLKEYS_ALIGN', 'EAval'
  15. if length(EAval) >= 4 then aliEA=right(EAval, length(EAval)-4)
  16. call SysGetEa FullFile, 'HTMLKEYS_BORDER', 'EAval'
  17. if length(EAval) >= 4 then bordEA=right(EAval, length(EAval)-4)
  18. call SysGetEA FullFile, 'HTMLKEYS_HSPACE', 'EAval'
  19. if length(EAval)>=4 then hspEa=right(EAval, length(EAval)-4)
  20. call SysGetEA FullFile, 'HTMLKEYS_VSPACE', 'EAval'
  21. if length(EAval)>=4 then vspEa=right(EAval, length(EAval)-4)
  22. call SysGetEA FullFile, 'HTMLKEYS_ISMAP', 'EAval'
  23. if length(EAval)>=4 then iMapEa=right(EAval, length(EAval)-4)
  24. call SysGetEA FullFile, 'HTMLKEYS_USEMAP', 'EAval'
  25. if length(EAval)>=4 then uMapEa=right(EAval, length(EAval)-4)
  26.  
  27. line=charin(FullFILE, 1, 10)
  28. line =right(line,4)
  29. lw=left(line,1)
  30. line =right(line,3)
  31. hw=left(line,1)
  32. line =right(line,2)
  33. lh=left(line,1)
  34. hh=right(line,1)
  35.  
  36. width=c2d(lw)+256*c2d(hw)
  37. height=c2d(lh)+256*c2d(hh)
  38.  
  39. if kase=1 then do
  40.  
  41. Oline='<IMG SRC="'FileText'" WIDTH='width' HEIGHT='height
  42.  
  43. if altEA<>'' then Oline=Oline||' ALT="'altEA'"'
  44. if aliEA<>'' then Oline=Oline||' ALIGN='aliEA
  45. if hspEA<>'' then Oline=Oline||' HSPACE='hspEA
  46. if vspEA<>'' then Oline=Oline||' VSPACE='vspEA
  47. if bordEA<>'' then Oline=Oline||' BORDER='bordEA
  48. if uMapEA<>'' then Oline=Oline||' USEMAP="'uMapEA'"'
  49. if iMapEA ='YES' then Oline=Oline||' ISMAP'
  50. Oline=Oline||'>'
  51. end /* do */
  52. else do
  53. Oline='<img src="'FileText'" width='width' height='height
  54. if altEA<>'' then Oline=Oline||' alt="'altEA'"'
  55. if aliEA<>'' then Oline=Oline||' align='aliEA
  56. if hspEA<>'' then Oline=Oline||' hspace='hspEA
  57. if vspEA<>'' then Oline=Oline||' vspace='vspEA
  58. if bordEA<>'' then Oline=Oline||' border='bordEA
  59. if uMapEA<>'' then Oline=Oline||' usemap="'uMapEA'"'
  60. if iMapEA ='YES' then Oline=Oline||' ismap'
  61. Oline=Oline||'>'
  62.  
  63.  
  64.  
  65. end /* do */
  66. call etkinserttext Oline
  67.  
  68.  
  69.