UltraEdit宏一枚

有如下文本内容,需要在每个[code]前面添加上从下往上查找的最近的一个日期:

[2011.12.12]
    [code]item 1
    [code]item 2
    [code]item 3
    [code]item 4
    [code]item 5
    [life]item fdsa
    [code]item fzzz
    [code]item fsa
    [code]item fsa
    [shit]fsafdsafdsa
    [code]fdsafdsafd
[2011.12.13]
    [life]fdsafdsaf
    [code]fdsafdsaf
    [fuck]fdsafdsaf
    [code]fdsafdsaf

使用如下宏:(注:运行宏之前将光标移动到第一行,宏内容中的“X箭头”是安装中文版UltraEdit的内容,如果是其他语言版本可能不同。比如英文版“右箭头”就是“RIGHT ARROW”。使用中文版UE写RIGHT ARROW会报宏语法错误。这一点比较坑爹。既然会想到用宏的人,宏脚本还搞本地化就比较蛋疼了。)

InsertMode
ColumnModeOff
HexOff
Find "  [code]"
ToggleBookmark
IfFound
Find Up "[201"
StartSelect
Key 右箭头
Key 右箭头
Key 右箭头
Key 右箭头
Key 右箭头
Key 右箭头
Key 右箭头
Key 右箭头
EndSelect
Copy
Clipboard 0
GotoBookMark 1
Key 右箭头
Paste
EndIf
ToggleBookmark

运行宏之后的文本内容变为:

[2011.12.12]
    [2011.12.12][code]item 1
    [2011.12.12][code]item 2
    [2011.12.12][code]item 3
    [2011.12.12][code]item 4
    [2011.12.12][code]item 5
    [life]item fdsa
    [2011.12.12][code]item fzzz
    [2011.12.12][code]item fsa
    [2011.12.12][code]item fsa
    [shit]fsafdsafdsa
    [2011.12.12][code]fdsafdsafd
[2011.12.13]
    [life]fdsafdsaf
    [2011.12.13][code]fdsafdsaf
    [fuck]fdsafdsaf
    [2011.12.13][code]fdsafdsaf

标签: UltraEdit

添加新评论