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