替換關鍵字

Question

在我的數據庫中，我有一個longtext列存儲電子郵件模板。

我在模板中有多個關鍵字，即<<PersonName>>或<<ExpiryDate>>，它們將被當前記錄中提供的各個細節替換。

是否有一種簡單的方法來循環遍歷關鍵字列表並動態替換它們。我最初的方法是獲得關鍵字名稱，佔位符文本和相應的查詢列名稱。

然後做一個簡單的替換循環？

謝謝！

Answer 1

是的，你可以這樣做 - 一個關鍵字，佔位符和值字段的查詢，然後類似;

Dim strTempate as string 
Dim rst as Recordset 

strTemplate = <value of template field> 

With rst 
    Do Until .EOF 
     strTemplate = Replace(strTemplate, Nz(!Placeholder,""), Nz(!Value,"")) 
     .Movenext 
    Loop 
End With 

將通過您的關鍵字循環，使替換在你的郵件模板