大匠之風: Delphi IDE Search 功能的 Regular Expressions

2015/10/22

最近在修改元件的過程中，遇到許多要增加屬性的操作。

比方說操作 Excel 元件時，我們可以這樣寫：

  ExcelWorksheet1.Cells.Item[Y, 3];
  ExcelWorksheet1.Cells.Item[Y, 6];
  ExcelWorksheet1.Cells.Item[Y, 8];

這些上百行有點像又不會太像的程式，我想修改成以下的內容

  ExcelWorksheet1.Cells.Item[Y, 3].Value;
  ExcelWorksheet1.Cells.Item[Y, 6].Value;
  ExcelWorksheet1.Cells.Item[Y, 8].Value;

實除修改時，除了增加滑鼠和鍵盤磨耗率外，對技術力的增加簡單是趨近於零。

這時，有個巧妙的工具可以應用 ── Replace Text (Hot Key = Ctrl + H)。

Replace Text 畫面

我猜猜你會怎麼做：

【選擇大範圍的模糊搜尋，找到目標後，再人工修改。】

實在很苦命。

這時正則表達式（Regular expressions）就很有用了。

Regular expressions 的位置

以上述的例子來說，我可以在 Text to find 輸入

{\.Item\[.+\]}

在 Replace with 輸入

\0.Value

如此一來就變成這樣：

找到了，要修改囉

修改成功！

要注意的是，官方說明的【（）】符號並沒有功用，實際應用請直接使用【{ }】符號。

參考資料：

大匠之風