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