lorrait7tuu3@outlook.com

古普羅旺斯語翻譯

匯入的檔案，一般若是只有簡單的英文和數字，其實不會有太大問題，但是如果匯入的資料中，有包含以下狀態，則要注意 :
第二種 中文字 中文字或特別符號，轉入的文字檔記得需要改為 UTF-8 的文字檔才行 翻譯社 ANSI 或是 Unicode的檔案 均沒法支援 4GL 的 Load File .
別的要注意的
第一種  逗號 (翻譯社) 如果要資訊中含有 , 要分格欄位的字元就無法用 , 可能用EXCEL 新增欄位合併來庖代 如 A1&"^"&B1&"^"&C1, 將欄位複製到 TXT UFT-8 檔案中翻譯

準備UTF-8 TXT文字檔

DECLARE p160_s1_c CURSOR WITH HOLD FOR
SELECT
   substr(tme01,1,                         instr(tme01,'^'翻譯社1,1)-1),                                  # 品號
   substr(tme01,instr(tme01翻譯社'^'翻譯社1,1)+1,instr(tme01翻譯社'^',1,2)-instr(tme01,'^',1翻譯社1)-1) ,   # REF
   substr(tme01翻譯社instr(tme01翻譯社'^',1,2)+1,instr(tme01,'^',1,3)-instr(tme01翻譯社'^',1,2)-1) ,   # 版次    
   substr(tme01,instr(tme01,'^'翻譯社1,3)+1翻譯社instr(tme01,'^'翻譯社1,4)-instr(tme01,'^',1,3)-1) 翻譯社   # 警示
   substr(tme01翻譯社instr(tme01,'^',-1,1)+1,length(tme01)-instr(tme01翻譯社'^',-1,1))  # 條碼格式
 FROM tme_file 
 WHERE tme01 not in (select tme01 from tme_file where rownum = 1) and tme01 not like '^^%'

申明 :
  1. 操縱 ^ 區隔欄位
  2. select tme01 from tme_file where rownum = 1) 暗示第一列，題目不轉入
  3. ^^ 示意有該筆為空白 不轉入
 

DEFINE sr RECORD
      ima01     LIKE ima_file.ima01,      # 品號
      ta_ima200 LIKE ima_file.ta_ima200,  # REF
      ta_ima201 LIKE ima_file.ta_ima201翻譯社  # 版次
      ta_ima202 LIKE ima_file.ta_ima202翻譯社  # 警示
      ta_ima260 LIKE ima_file.ta_ima260   # 內條碼花式                
  END RECORD

FOREACH p160_s1_c INTO sr.*

    UPDATE ima_file
    SET ta_ima200 = sr.ta_ima200,  # REF
          ta_ima201 = sr.ta_ima201翻譯社  # 版次
          ta_ima202 = sr.ta_ima202,  # 警示
          ta_ima260 = sr.ta_ima260   # 內條碼格局
    WHERE ima01 =  sr.ima01
                               
END FOREACH

以上，處置就可將 ima_file 的 ta_ima200, ta_ima202, ta_ima202, ta_ima260 更新。