如何更換所有進步4GL電子郵件ID記錄

Question

The problem here is I want to update the email ids, I want to update like user@abc.com to user@xyz.com 

我選擇了所有電子郵件ID這樣，

for each table where 
table.email matches "*" + "@abc.com" + "*" no-lock : 
    Display 

我不能使用替代功能，因爲每個電子郵件ID將採用不同的長度。 是否有可能改變這樣的電子郵件ID？請與我分享。

Answer 1

與「XYZ」更換正是「ABC」像這樣做：

/* You need to change NO-LOCK to EXCLUSIVE-LOCK if you want to update or change! */ 
FOR EACH table WHERE table.email MATHES"*" + "@abc.com" + "*" EXCLUSIVE-LOCK: 
    ASSIGN 
    table.email = REPLACE(table.email, "@abc.com", "@xyz.com"). 
END. 

但也許你需要詳細說明您的問題或爲這一切你想做的事？

關於績效

這個查詢不會非常快。匹配不使用任何索引，因此整個表格將被掃描。 在更高版本的進度上，您可以添加TABLE-SCAN選項。這會提高速度，但不是很多。如果你這樣做，你將不得不刪除查詢比賽表達，這樣做：

FOR EACH table EXCLUSIVE-LOCK TABLE-SCAN: 
    IF table.email MATCHES etcetera 
    END. 
END. 

如果這是一次性的東西來解決電子郵件地址也許並不需要那麼快？如果沒有，我建議你在表格中添加一個邏輯字段（table.fixed），並創建一個帶有字段的索引。那麼你可以快速瀏覽所有不固定的記錄。

Answer 2

我嘗試過自己，而且我這樣寫，並且它很有效。

def var cmail1 as char. 
def var cmail2 as char. 
assign 
cmail1 = "@abc.com" 
cmail2 = "@xyz.com". 



for each table where 
exclusive-lock : 
Assign 
table.email = REPLACE(table.email, cmail1, cmail2). 

但性能低下。如果您有任何替代方案，請發佈。