0

我是 as400 Java 开发 (JT400) 的新手。我得到假脱机文件列表并阅读普通文本。现在我想将其转换为 excel (XLS) 文件。我正在尝试使用 Java 将 AS400 假脱机文件转换为 excel(XLS) 文件。但我失败了。有人知道怎么做吗？我可以直接从 as400 转换它吗？有谁知道如何使用 Java 将此假脱机文件（或此文本文件）转换为 excel 文件？

提前致谢！

我的一个这样的假脱机文件：

5722WDS V5R3M0  030905 RN        IBM ILE RPG             XXXXXXXXX/XXXX           SSSS        10/01/11 06:19:46        Page      1


Command  . . . . . . . . . . . . :   CRTBNDRPG

Issued by  . . . . . . . . . . :     XXXXXXXXX

Program  . . . . . . . . . . . . :   CUSR

Library  . . . . . . . . . . . :     XXXXXXXXX

Text 'description' . . . . . . . :   *SRCMBRTXT


Source Member  . . . . . . . . . :   CUSR

Source File  . . . . . . . . . . :   XXXXXXXXX

Library  . . . . . . . . . . . :     XXXXXXXXX

CCSID  . . . . . . . . . . . . :     273

Text 'description' . . . . . . . :

Last Change  . . . . . . . . . . :   10/01/11  06:19:41


Generation severity level  . . . :   10

Default activation group . . . . :   *YES

Compiler options . . . . . . . . :   *XREF      *GEN       *NOSECLVL  *SHOWCPY

                                   *EXPDDS    *EXT       *NOSHOWSKP *NOSRCSTMT

                                   *DEBUGIO   *NOEVENTF

Debugging views  . . . . . . . . :   *SOURCE

Output . . . . . . . . . . . . . :   *PRINT

Optimization level . . . . . . . :   *NONE

Source listing indentation . . . :   *NONE

Type conversion options  . . . . :   *NONE

Sort sequence  . . . . . . . . . :   *HEX

Language identifier  . . . . . . :   *JOBRUN

Replace program  . . . . . . . . :   *YES

User profile . . . . . . . . . . :   *USER

Authority  . . . . . . . . . . . :   *LIBCRTAUT

Truncate numeric . . . . . . . . :   *YES

Fix numeric  . . . . . . . . . . :   *NONE

Target release . . . . . . . . . :   *CURRENT

Allow null values  . . . . . . . :   *NO

Define condition names . . . . . :   *NONE

Enable performance collection  . :   *PEP

Profiling data . . . . . . . . . :   *NOCOL

Licensed Internal Code options . :

Generate program interface . . . :   *NO

Include directory  . . . . . . . :

Preprocessor options . . . . . . :   *NONE

5722WDS V5R3M0  030905 RN        IBM ILE RPG             XXXXXXXXX/XXXX           SSSS       10/01/11 06:19:46        Page      2


Line   <---------------------- Source Specifications ----------------------------><----     Comments ----> Do  Page  Change Src Seq

Number  ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number


                      S o u r c e   L i s t i n g


 1                                                                                                             110917     000100



 2 FCUS00D    CF   E             WORKSTN                                                                     110917     000200

    *--------------------------------------------------------------------------------------------*

    *                               RPG name         External name                               *

    * File name. . . . . . . . . :  CUS00D           XXXXXXXXX/SSSSSS                            *

    * Record format(s) . . . . . :  RECORD           RECORD                                      *

    *--------------------------------------------------------------------------------------------*

 3 FCUSMAS01  UF A E             DISK                                                                        110917     000300

 4                                                                                                           110917     000400

 5  /Free                                                                                                    110917     000500

 6                                                                                                           110917     000600

    *--------------------------------------------------------------------------------------------*

    *                               RPG name         External name                               *

    * File name. . . . . . . . . :  CUSMAS01         XXXXXXXXX/SSSSSS                          *

    * Record format(s) . . . . . :  CUSREC           CUSREC                                      *

    *--------------------------------------------------------------------------------------------*



 7=IRECORD                                                                                                             1000001

    *--------------------------------------------------------------------------------------------*                     1

    * RPG record format  . . . . :  RECORD                                                       *                     1

    * External format  . . . . . :  RECORD : XXXXXXXXX/SSSSSS                                   *                     1

    *--------------------------------------------------------------------------------------------*                     1

 8=I                             N    1    1  *IN03                                                                    1000002

 9=I                             N    2    2  *IN06                                                                    1000003

10=I                             S    3    8 0$CUSID                                                                   1000004

11=I                             A    9   33  $CUSNAME                                                                 1000005

12=I                             A   34   58  $CUSADD1                                                                 1000006

13=I                             A   59   83  $CUSADD2                                                                 1000007

14=I                             A   84  108  $CUSADD3                                                                 1000008

15=I                             S  109  118 0$TELNO                                                                   1000009

16=I                             S  119  133 3$CRDLMT                                                                  1000010

17=ICUSREC                                                                                                             2000001

    *--------------------------------------------------------------------------------------------*                     2

    * RPG record format  . . . . :  CUSREC                                                       *                     2

    * External format  . . . . . :  CUSREC : XXXXXXXXX/SSSSSS                                  *                     2

    *--------------------------------------------------------------------------------------------*                     2

18=I                             P    1    4 0CUSID                                                                    2000002

19=I                             A    5   29  CUSNAME                                                                  2000003

20=I                             A   30   54  CUSADD1                                                                  2000004

21=I                             A   55   79  CUSADD2                                                                  2000005

22=I                             A   80  104  CUSADD3                                                                  2000006

23=I                             S  105  114 0TELNO                                                                    2000007

24=I                             S  115  129 2CRDLMT                                                                   2000008



25    Exfmt record;                                                                                          110917     000700

26     Dow Not *IN03;                                                                              B01       110924     000800

27       If $CUSID <> *Zeros;                                                                      B02       111001     000801

28        Chain (CUSID) CUSREC;                                                                     02       111001     000802

29          If %Found(CUSMAS01);                                                                   B03       111001     000803

...ETC

4

3 回答 3

3

有两个库支持直接转换为 Excel：Apache POI和jExcel。

此外JasperReports是一个更高级别的报告库，除了 PDF 等，还支持导出到 Excel 等。

真正的问题是您希望如何将诸如示例之类的自由流动格式映射到 Excel 之类的行和列格式？

于 2013-09-17T20:11:29.407 回答
0

如果您有一个假脱机文件，例如

 DATE TIME NAME
 12345678901234

您可以保存到文件您的线轴。我使用的方式（希望它有所帮助）......通常它只有一个字段，您需要按位置生成各种字段。您可以通过查询像 substr(field, 1, 4) 这样的文件来生成日期，substr(field, 6, 4) 来生成时间等等。使用 java 我更喜欢使用 Apache POI，像这样..

import org.apache.poi.ss.usermodel.Row;
import org.apache.poi.ss.usermodel.Sheet;
import org.apache.poi.xssf.streaming.SXSSFWorkbook;

…………………………………………………………………………………………

wbk=new SXSSFWorkbook(500);
sheet=vbk.createSheet("book 1");
try{
    Row rowhead=sheet.createRow(0);
    rowhead.createCell(0).setCellValue("Hello");
            ...
            <Here you fill the Excel with the resultset of your query
            to the AS400 file using JT400>
            ...
    FileOutputStream fileOut =  new FileOutputStream(excelPath);
    wbk.write(fileOut);
    fileOut.flush();
    fileOut.close();
}catch(Exception e){...}
于 2014-03-13T17:45:54.153 回答
0

对我来说最简单的是类似于以下的命令：

qsh cmd('touch -C 1252 mysplftxt.spl && catsplf -j 987654/myuser/myjob  mysplf 1 >mysplftxt.spl' )

Qshell catsplf 实用程序将假脱机文件放入 STDOUT。在上面的示例中，它被重定向到一个名为mysplftxt.spl但没有路径的流文件，因此它进入了当前目录。由于我的当前目录映射到我 PC 中的网络驱动器，因此我可以简单地在 LibreOffice Calc 中打开该文件（此处不需要 Excel）。

这里的所有都是它的。

好吧，从技术上讲，还有更多内容，因为我创建了一个我命名为 CATSPLF 的命令，它接受作业名称、假脱机文件名称和编号等，并为我构造 Qshell CMD() 字符串。这使得以多种方式发出请求变得更加容易，例如作为 WRKSPLF 命令和其他地方的注册用户函数。

自然，当我这样做时，电子表格中没有“单元格”的定义。这需要在我打开文件时手动完成。如果定期需要“细胞”，除了手动之外，还有两个通用选项：开始编写程序来完成它或购买产品。

但我很少看到在 Excel（或 Calc 或任何其他电子表格程序）中打开假脱机文件有任何意义。我不会尝试类似地从 Windows 假脱机程序打开假脱机文件（这将是一场真正的噩梦），而且我也从未听说过其他人尝试这样做；所以我不明白为什么人们想在 AS/400 系列中如此频繁地这样做。几乎总是有更好的方法将数据输入电子表格。

于 2014-04-30T06:19:55.633 回答