使用Openedge语法将数组数据从url读回temp-table

DEFINE TEMP-TABLE ttArray NO-UNDO
    FIELD id AS INT
    FIELD name AS CHARACTER.

DEFINE VARIABLE url AS CHARACTER NO-UNDO.
DEFINE VARIABLE urlConnection AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE inputStream AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE bufferedReader AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE line AS CHARACTER NO-UNDO.

/* 设置要读取的URL地址 */
ASSIGN url = "http://example.com/data.txt".

/* 创建URL对象 */
CREATE URL urlConnection.

/* 打开URL连接 */
ASSIGN urlConnection:URL = url
       urlConnection:ConnectTimeout = 10000 /* 设置连接超时时间，单位为毫秒 */
       urlConnection:Open().

/* 获取输入流 */
ASSIGN inputStream = urlConnection:GetInputStream().

/* 创建BufferedReader对象 */
CREATE BufferedReader bufferedReader.

/* 读取数据并存储到temp-table中 */
REPEAT:
    ASSIGN line = bufferedReader:ReadLine().
    IF line = ? THEN LEAVE. /* 读取完毕，退出循环 */
    
    /* 解析数据并存储到temp-table中 */
    CREATE ttArray.
    ASSIGN ttArray.id = ENTRY(1, line, ",")
           ttArray.name = ENTRY(2, line, ",").
           
    /* 在这里可以对temp-table进行进一步处理 */
           
    DISPLAY ttArray WITH FRAME fArray.
END.

/* 关闭连接和流 */
ASSIGN bufferedReader:Close()
       inputStream:Close()
       urlConnection:Close().