AS400环境下SystemLink XML加载并替换文本框值后保存的技术问询

嘿，刚好我在AS400环境里折腾过SystemLink和XML的动态值替换，给你分享几个实用的方案，帮你把文本框的内容替换到XML对应位置：

首先先把你的XML整理成可复用的模板（方便后续替换），我补全了你提供的片段：

<?xml version='1.0' encoding='UTF-8'?> 
<!DOCTYPE System-Link SYSTEM 'SystemLinkRequest.dtd'> 
<System-Link> 
  <Login userId='{USER_ID}' password='{PASSWORD}' maxIdle='900000' properties='com.pjx.cas.domain.EnvironmentId=RN, com.pjx.cas....'/>
  <!-- 这里是其他需要替换的XML节点 -->
</System-Link>

方案1：字符串替换（简单直接，适合结构简单的XML） #

如果你的XML结构不复杂，直接用字符串替换是最快的方式。不管你用RPGLE还是Java开发，核心逻辑都是先获取文本框的值，再替换XML模板里的占位符。

RPGLE示例： #

假设你的屏幕文本框字段是USERID和PASSWORD，代码大概是这样：

// 定义变量
dcl-s userId varchar(50);
dcl-s password varchar(50);
dcl-s xmlTemplate varchar(32767);
dcl-s finalXml varchar(32767);

// 加载XML模板（可以从文件读取，或者直接硬编码）
xmlTemplate = '<?xml version=''1.0'' encoding=''UTF-8''?> <!DOCTYPE System-Link SYSTEM ''SystemLinkRequest.dtd''> <System-Link> <Login userId=''{USER_ID}'' password=''{PASSWORD}'' maxIdle=''900000'' properties=''com.pjx.cas.domain.EnvironmentId=RN, com.pjx.cas....''/> </System-Link>';

// 获取文本框的值（DDS屏幕字段直接引用）
userId = %trim(USERID);
password = %trim(PASSWORD);

// 替换占位符
finalXml = %replace(userId : xmlTemplate : %scan('{USER_ID}' : xmlTemplate) : 9);
finalXml = %replace(password : finalXml : %scan('{PASSWORD}' : finalXml) : 10);

// 把处理后的XML传给SystemLink执行加载操作
// 这里替换成你调用SystemLink的实际代码
callp SystemLink_LoadDocument(finalXml);

Java示例（如果用Java调用SystemLink）： #

// 从Swing/AWT文本框获取值
String userId = txtUserId.getText().trim();
String password = txtPassword.getText().trim();

// XML模板字符串
String xmlTemplate = "<?xml version='1.0' encoding='UTF-8'?> <!DOCTYPE System-Link SYSTEM 'SystemLinkRequest.dtd'> <System-Link> <Login userId='{USER_ID}' password='{PASSWORD}' maxIdle='900000' properties='com.pjx.cas.domain.EnvironmentId=RN, com.pjx.cas....'/> </System-Link>";

// 替换占位符
String finalXml = xmlTemplate.replace("{USER_ID}", userId)
                             .replace("{PASSWORD}", password);

// 调用SystemLink的API加载文档
SystemLink.loadDocument(finalXml);

方案2：DOM解析XML（规范可靠，适合复杂XML结构） #

如果你的XML节点多、结构复杂，用DOM解析修改会更稳妥，不容易因为字符串格式问题出错。

Java示例： #

import javax.xml.parsers.DocumentBuilder;
import javax.xml.parsers.DocumentBuilderFactory;
import javax.xml.transform.Transformer;
import javax.xml.transform.TransformerFactory;
import javax.xml.transform.dom.DOMSource;
import javax.xml.transform.stream.StreamResult;
import org.w3c.dom.Document;
import org.w3c.dom.Element;
import java.io.StringReader;
import java.io.StringWriter;

// 获取文本框值
String userId = txtUserId.getText().trim();
String password = txtPassword.getText().trim();

// XML模板字符串
String xmlTemplate = "<?xml version='1.0' encoding='UTF-8'?> <!DOCTYPE System-Link SYSTEM 'SystemLinkRequest.dtd'> <System-Link> <Login userId='' password='' maxIdle='900000' properties='com.pjx.cas.domain.EnvironmentId=RN, com.pjx.cas....'/> </System-Link>";

try {
    // 解析XML模板
    DocumentBuilderFactory factory = DocumentBuilderFactory.newInstance();
    DocumentBuilder builder = factory.newDocumentBuilder();
    Document doc = builder.parse(new InputSource(new StringReader(xmlTemplate)));

    // 找到Login节点并修改属性
    Element loginElement = (Element) doc.getElementsByTagName("Login").item(0);
    loginElement.setAttribute("userId", userId);
    loginElement.setAttribute("password", password);

    // 如果properties里也需要替换值，比如替换EnvironmentId
    String properties = loginElement.getAttribute("properties");
    properties = properties.replace("RN", txtEnvId.getText().trim()); // 假设文本框是txtEnvId
    loginElement.setAttribute("properties", properties);

    // 把修改后的XML转成字符串
    Transformer transformer = TransformerFactory.newInstance().newTransformer();
    StringWriter writer = new StringWriter();
    transformer.transform(new DOMSource(doc), new StreamResult(writer));
    String finalXml = writer.toString();

    // 执行SystemLink加载
    SystemLink.loadDocument(finalXml);
} catch (Exception e) {
    e.printStackTrace();
}

注意事项 #

• 编码问题：AS400默认的EBCDIC编码要和XML的UTF-8兼容，确保文本框的值转成UTF-8后再写入XML，避免乱码。
• 密码安全：如果是密码字段，建议不要在XML模板里留明文占位符，处理时要注意加密或者掩码，避免日志泄露。
• 模板维护：把XML模板存在文件里（比如QSYS.LIB下的源文件），比硬编码在程序里更容易维护。

内容的提问来源于stack exchange，提问作者ksuProgrammer