通过Siebel escript在文本文件的行末尾附加值

时间:2015-11-24 11:53:33

标签: siebel

我的要求如下。

在第1步中,我的业务服务将从文本文件中读取记录。 在第2步中,他们根据值创建记录。 在步骤3中,它必须在相应记录的末尾附加成功/失败消息。

文本文件将包含多个记录,每个字段用“|”分隔。所以我的要求是在记录的最后一个值之后附加成功/失败。

请帮忙。

1 个答案:

答案 0 :(得分:0)

可能你可以看一下这段代码。 此代码从Excel工作表中读取数据并在Siebel BC中创建记录。您可以将其作为BS的一部分来实现。您还可以对此进行扩展并添加逻辑,以在每条记录中包含“成功”或“失败”消息。

if (MethodName == "ImportRecords") 
{ 
    var i =2; 
    var ExcelApp = COMCreateObject("Excel.Application"); 
    ExcelApp.Workbooks.Open("C:\\***\\***\\Desktop\\LoadTest.xlsx"); 
    ExcelApp.Visible = false; 
    var oBOLdVal = TheApplication().GetBusObject("Dummy BO"); 
    var oBCLdVal = oBOLdVal.GetBusComp("Dummy BC"); 
    while(ExcelApp.ActiveSheet.Cells(i,1).Value!= null) 
    { 
        var A= ExcelApp.ActiveSheet.Cells(i,1).Value; 
        var B= ExcelApp.ActiveSheet.Cells(i,2).Value; 
        var C= ExcelApp.ActiveSheet.Cells(i,3).Value; 
        var D= ExcelApp.ActiveSheet.Cells(i,4).Value; 
        var E= ExcelApp.ActiveSheet.Cells(i,5).Value; 
        with(oBCLdVal) 
        { 
            ActivateField("A"); 
            ActivateField("B"); 
            ActivateField("C"); 
            ActivateField("D"); 
            ActivateField("E"); 
            ClearToQuery();  
            InvokeMethod("SetAdminMode","TRUE"); 
            NewRecord(NewAfter); 
            SetFieldValue("A",A); 
            SetFieldValue("B",B); 
            SetFieldValue("C",C); 
            SetFieldValue("D",D); 
            SetFieldValue("E",E); 
            SetFieldValue("Status","Success"); 
            WriteRecord(); 
        } i=i+1; 
    } ExcelApp.Quit(); 
    ExcelApp = null; 
    oBOLdVal = null; 
    oBCLdVal = null; 
    TheApplication().RaiseErrorText("Load Success"); 
    return(CancelOperation); 
}

希望这有帮助!