JDE Split 應用

記錄一下 JDE 如何應用 Split 截字串的方法

// 設定來源字串(DD: UKEMES), 以逗號分隔
VA evt_SourceString = "1,3,5,7,9,13,23,32,47,50,123"
// 取得來源字串長度(DD: MATH01)
VA evt_LengthOfString = length([VA evt_SourceString])
// 迴圈執行直到來源字串長度為 0
While VA evt_LengthOfString is greater than <zero>
   // 取得逗號在來源字串中的位置 (DD: MATH01, BF: B7500150 StartingPosition = 0)
   Finds a char position in a string
   If VA evt_IndexOfComma is greater than or equal to <zero>
      // 如果來源字串中有逗號
      // 將逗號前的子字串傳給Message Section的變數
      RV Variable 000001 = substr([VA evt_SourceString],0,[VA evt_IndexOfComma])
      // 將來源字串第一個逗號及之前的子字串去除
      VA evt_SourceString = substr([VA evt_SourceString],([VA evt_IndexOfComma]+1),[VA evt_LengthOfString])
   Else
      // 如果來源字串中沒有逗號
      // 將來源字串傳給Message Section的變數
      RV Variable 000001 = VA evt_SourceString
      // 將來源字串清空
      VA evt_SourceString = ""
   End If
   // 到Message Section 顯示截出來的字串
   Do Custom Section(RS Message)
   // 取得來源字串長度
   VA evt_LengthOfString = length([VA evt_SourceString])
End While

以下為 Message Section 的輸出