如何在 4gl 中添加 html 个表？

Question

我在 Progress4gl 中创建了一个临时 table，我需要使用 html 语法从临时 table 通过电子邮件发送数据。这意味着我需要 link temp table 中的所有字段到 html table 和电子邮件。

temp table 中的字段是：

Part_ID, CustomerPartID, customer

请帮我解决这个问题。

Answer 1

没有 built-in 方法可以做到这一点。我能想到的一种方法是将温度 table 转换为 json，然后将 json 转换为 HTML。我相信有几个实用程序可以将 json 转换为 html table。您可以使用 WRITE-JSON 方法在 ABL 中将 temp table 转换为 json。

Progress 文档中的示例：

DEFINE VARIABLE cTargetType AS CHARACTER NO-UNDO.
DEFINE VARIABLE cFile       AS CHARACTER NO-UNDO.
DEFINE VARIABLE lFormatted  AS LOGICAL   NO-UNDO.
DEFINE VARIABLE lRetOK      AS LOGICAL   NO-UNDO.

DEFINE TEMP-TABLE ttCust NO-UNDO LIKE Customer.

/* Code to populate the temp-table */  
ASSIGN  
  cTargetType = "file" 
  cFile       = "ttCust.json" 
  lFormatted  = TRUE. 
lRetOK = TEMP-TABLE ttCust:WRITE-JSON(cTargetType, cFile, lFormatted).

Answer 2

好吧，你可以只输出 HTML。像这样：

define temp-table tt_test
  field f1 as integer
  field f2 as character
  field f3 as date
.

create tt_test.
assign
  f1 = 1
  f2 = "abc"
  f3 = today
.
create tt_test.
assign
  f1 = 2
  f2 = "xyz"
  f3 = today + 30
.

output to value( "mytable.html" ).

put unformatted "<table>" skip.

for each tt_test:

  put unformatted substitute( "  <tr><td>&1</td><td>&2</td><td>&3</td></tr>", f1, f2, f3 ) skip.

end.

put unformatted "</table>" skip.

output close.

Answer 3

为了创建 html table，您可以（ab）使用数据集的力量结合 serialize-name:

/* Write some awesome ABL code here, or load an existing snippet! */ 

define temp-table ttparts serialize-name "tr"
   field part_id        as char serialize-name "td"
   field customerPartID as char serialize-name "td"
   field customer       as char serialize-name "td"
   .

define dataset ds serialize-name "table" for ttparts .

define buffer bupart for ttparts.

create bupart.
assign
   bupart.part_id = "one"
   bupart.customer = "A"
   .

create bupart.
assign
   bupart.part_id = "two"
   bupart.customer = "B"
   .

def var lcc as longchar no-undo.
dataset ds:write-xml( "longchar", lcc, true ).

message string( lcc ).

https://abldojo.services.progress.com:443/#/?shareId=5d1618c14b1a0f40c34b8bc8

接受任何 temp-table 句柄并将 return 包含 HTML table:

的 longchar 的更新版本

function createHtmlTable returns longchar (
  i_ht as handle
):

   def var lcc as longchar.
   def var hds as handle.
   def var hb  as handle.
   def var ic  as int.

   create dataset hds.
   hds:serialize-name = "table". // not needed if stripped below

   create buffer hb for table i_ht.
   hb:serialize-name = "tr".
   hds:add-buffer( hb ).

   do ic = 1 to hb:num-fields:
      hb:buffer-field( ic ):serialize-name = "td".
   end.

   hds:write-xml( "longchar", lcc, true ).

   // remove xml declaration
   lcc = substring( lcc, index( lcc, "<", 2 ) ).   
   entry( 1, lcc, ">" ) = "<table". // see comment above

   return lcc.

   finally:
      delete object hds.
   end finally.

end function.

define temp-table ttparts
   field part_id as char
   field customerPartID as char
   field customer as char
   .

define buffer bupart for ttparts.

create bupart.
assign
   bupart.part_id = "one"
   bupart.customer = "A"
   .

create bupart.
assign
   bupart.part_id = "two"
   bupart.customer = "B"
   .

message string( createHtmlTable( temp-table ttparts:handle ) ).

https://abldojo.services.progress.com/#/?shareId=5d1760d84b1a0f40c34b8bcd

如何在 4gl 中添加 html 个表？

How to add html tables in progress 4gl?

progress-4gl

openedge