当前位置: 傻瓜不傻 > 软件开发

EmEditor 宏——删除行尾部空白部分

发布时间: 2008-03-27 15:46 | 作者: 乐乐猪

删除行尾部的空白部分（包括空格、制表符、换页符等空白字符）是代码整理常用的功能，在 EditPlus 中的 Edit -> Format -> Trim Trailing Spaces 就是来完成这个操作的，不知道为什么在 EmEditor 中没有把这个功能放到默认菜单中，只不过是一行代码而已。

File Name： TirmTrailingSpaces.vbee

1
2

nFound = document.selection.Replace("\s+?$", "", _
         eeFindReplaceRegExp + eeReplaceSelOnly + eeReplaceAll)

将 TirmTrailingSpaces.vbee 宏文件载入 EmEditor 中，然后手动添加到弹出菜单中，使用的时候，选择要替换的部分，然后在弹出菜单中选择 Trim Trailing Spaces 就可以了。


中文关键字：emeditor macro 宏 xp 尾部 空白 部分 菜单 tirmtrailingspac trailing 制表符 然后 代码 功能 spaces
关键字: , , | 分类: 软件开发 | 评论数: 0 | 阅读全文

EmEditor 宏——行数统计+规约测试

发布时间: 2008-03-24 18:50 | 作者: 乐乐猪

EmEditor 宏
功能：用来统计修改项目的代码行数，简单的规约测试。

修改过的部分在原程序的基础上追加以下代码：

1
2
3
4
5
6
7
8
9

Insert
//↓2008/03/10 Begin CompanyName UserName INS
//↑2008/03/10 End CompanyName UserName INS
Update
//↓2008/03/10 Begin CompanyName UserName UPD
//↑2008/03/10 End CompanyName UserName UPD
Delete
//↓2008/03/10 Begin CompanyName UserName DEL
//↑2008/03/10 End CompanyName UserName DEL

实际代码行数 = 追加的代码 + 删除的代码 + 修改后的代码（修改时被注释的部分不算）

文件名：EditCountFormat.vbee

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153

'2008.02.29 修改代码行统计
'2008.02.29 修改代码行统计修正 UPD注释部分不算统计行
'2008.03.05 追加 修改代码的拷贝
'           追加 Tab存在Check
'           追加 结尾多余空格Check
'           追加 重复空格Check
'           追加 全角空格Check
'           追加 带*号的引用Check
'           追加 无用的换行Check
'           追加 左小括号Check
'           追加 逗号Check
Public GstrBegin, GstrEnd 
Public GintBegin, GintEnd, GintCount, GintOldBegin, GintOldEnd
GstrBegin = "^[ \t]*//↓.*Begin[ \t]XXXX.*"
GstrEnd = "^[ \t]*//↑.*End[ \t]XXXX.*"
 
document.selection.StartOfDocument false
 
blnEnd = False
GintCount = 0
strCountMsg = ""
strAllEditText = ""
 
Do While not blnEnd
    GintBegin = 0
    GintEnd = 0
    blnBeginOK = False
    blnEndOK = False
    intEditBegin = 0
    strSelectTxt = ""
    intEndx = 0
    if Document.selection.Find(GstrBegin, eeFindNext + eeFindReplaceRegExp) = 1 Then
      GintBegin = Document.selection.GetActivePointY(eePosView)
      strSelectTxt = Document.selection.Text
      intEditBegin = GintBegin
      GintOldBegin = GintBegin
      if Instr(strSelectTxt, "UPD") > 0 Then
        GintBegin = GintBegin + 1
        Do
          document.selection.SetActivePoint eePosView, 1, GintBegin
          document.selection.SelectLine
          strSelectTxt = Document.selection.Text
          if Instr(strSelectTxt, "//") = 0 Then
            GintBegin = GintBegin - 1
            Exit Do
          Else
            GintBegin = GintBegin + 1
          End If
        Loop
      End If
      blnBeginOK = True
    Else
      blnEnd = True
    End If
 
    if Document.selection.Find(GstrEnd, eeFindNext + eeFindReplaceRegExp) = 1 Then
      GintEnd = Document.selection.GetActivePointY(eePosView)
      intEndx = Document.selection.GetActivePointX(eePosView)
      GintOldEnd = GintEnd
      blnEndOK = True
    Else
      blnEnd = True
    End If
 
    if blnBeginOK and not blnEndOK Then
      alert "注释不匹配，有开始没有结束!" + chr(13) + chr(10) _
          + " 上次开始行 " + cstr(GintOldBegin) + " 上次结束行 " + cstr(GintOldEnd)
    Elseif not blnBeginOK and blnEndOK Then
      alert "注释不匹配，有结束没有开始! 结束行 " + cstr(GintEnd) + chr(13) + chr(10) _
          + " 上次开始行 " + cstr(GintOldBegin) + " 上次结束行 " + cstr(GintOldEnd)
    Elseif not blnBeginOK and not blnEndOK Then
      strCountMsg = "统计结束，修改的代码行数为 """ + cstr(GintCount) + " 行"""
    Else
      GintCount = GintCount + GintEnd - GintBegin - 1
 
      '2008.03.05 Add-------------------->
      Do While intEditBegin <> GintEnd + 1
        document.selection.SetActivePoint eePosView, 1, intEditBegin
        document.selection.SelectLine
        strAllEditText = strAllEditText + Document.selection.Text
        intEditBegin = intEditBegin + 1
      Loop
      document.selection.SetActivePoint eePosView, intEndx, GintEnd
      '2008.03.05 Add<--------------------
    End If
Loop
 
alert strCountMsg
 
'创建新文档
editor.NewFile
document.ConfigName = "Java"
'输出检查结果
document.write strAllEditText
 
'--------------------------------------------------------------------------------
Public pErrArray ()
 
Redim pErrArray(1)
 
'Tab存在Check
call checkRegExp("\t+.*$", "存在Tab键")
'结尾多余空格Check
call checkRegExp("^.*\s+$", "结尾多余空格")
'重复空格Check
call checkRegExp("(^\ +(?!\ ).*\ {2}.*$)|(^(?!\ )+.*\ {2}.*$)", "重复空格")
'全角空格Check
call checkRegExp("　", "包含全角空格")
'带*号的引用Check
call checkRegExp("^import.*\*.*$", "带*号的引用")
'无用的换行Check
call checkRegExp("^[\s*]*\n[\s*]*$", "无用的换行")
'左小括号Check
call checkRegExp("^\s*if\(|^.*=\(|^.*\( ", "左括号空格不正")
'右小括号Check(未完成)
'call checkRegExp(, )
'逗号Check
call checkRegExp("^.*,(?! )\b", "逗号空格不正")
 
'---------------------------------- Check结束 ---------------------------------
'创建新文档
editor.NewFile
document.ConfigName = "Java"
strErrMessage = ""
strErrMessage = strErrMessage & strCountMsg & chr(13) & chr(10)
For intItem = 1 to UBound (pErrArray)
    strErrMessage = strErrMessage & pErrArray(intItem) & chr(13) & chr(10)
Next
'输出检查结果
document.write strErrMessage
 
'------------------------------------------------------------------------------
'正则表达式Check
Private Sub checkRegExp(strRegExp, errMsg)
    '将光标定位到文件头
    document.selection.StartOfDocument false
    Do While Document.selection.Find (strRegExp, eeFindNext + eeFindReplaceRegExp) = 1
        call inputError(errMsg)
    Loop
End Sub 
'------------------------------------------------------------------------------
'错误输入
Private Sub inputError(errType)
    '行定位
    errRow = Document.selection.GetActivePointY(eePosView)
    '错误消息
    strErrMsg = "Row: " & errRow & " Type: " & errType & " | "
    strErrMsg = strErrMsg & Document.GetLine(errRow)
    pErrArray(UBound(pErrArray)) = strErrMsg
    ReDim Preserve pErrArray (UBound (pErrArray) + 1) 
    '同类型错误排除
    document.selection.LineDown 
End Sub

中文关键字：emeditor macro regular expression 宏 正则表达式 company update xp 统计 测试 selection document gintbegin 代码 gintend
关键字: , , , , | 分类: 软件开发 | 评论数: 0 | 阅读全文

常用正则表达式

发布时间: 2008-03-24 18:13 | 作者: 乐乐猪

前一段时间写了2段EmEditor的宏，用来统计代码行数和简单的规约检查，稍微整理一下，
下面是从EmEditor的Q&A的提取的实例：

  • 双引号包含的字符串
    strings surrounded by double-quotation marks
    “.*?”

  • [ ]包含的字符串
    strings surrounded by [ ]
    \[[^\[]*?\]

  • 变量名
    variable names
    [a-zA-Z_][a-zA-Z_0-9]*

  • IP 地址
    IP addresses
    ([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})

  • 网页地址
    URL
    (\S+)://([^:/]+)(:(\d+))?(/[^#\s]*)(#(\S+))?

  • 各行Tab以后的文字列
    lines followed by a tab
    \t.*$

  • 平仮名 ひらがな
    Hiragana
    [\x{3041}-\x{309e}]

  • 全角片仮名 全角カタカナ
    Full-width Katakana
    [\x{309b}-\x{309c}\x{30a1}-\x{30fe}]

  • 半角仮名 半角カナ
    Half-width Kana
    [\x{ff61}-\x{ff9f}]

  • 中日韩 汉字
    CJK ideographs
    [\x{3400}-\x{9fff}\x{f900}-\x{fa2d}]

  • 中日韩 汉字符号
    CJK ideograph marks
    [\x{3000}-\x{3037}]

  • 韩国字符
    Hangul
    [\x{1100}-\x{11f9}\x{3131}-\x{318e}\x{ac00}-\x{d7a3}]

  • 行头插入 //
    Insert // at start of lines
    Find: ^
    Replace with: //

  • 删除行头 //
    Remove // at end of lines
    Find: ^//
    Replace:

  • 删除行后的空白文字（包含空格和制表位 Space+Tab）
    Remove trailing whitespaces
    Find: \s+?$
    Replace with:

  • 将(abc)替换为[abc]
    Replace (abc) with [abc]
    Find: \((.*?)\)
    Replace: \[\1\]

  • 将<H3 …>替换为<H4 …>
    Replace <H3 …> with <H4 …>
    Find: <H3(.*?)>
    Replace: <H4\1>

  • 将9/13/2003替换为2003年9月13日
    Replace 9/13/2003 with 2003.9.13
    Find: ([0-9]{1,2})/([0-9]{1,2})/([0-9]{2,4})
    Replace: \3年\1月\2日

  • 将字母a-z替换为大写字母
    Uppercase characters from a to z
    Find: [a-z]
    Replace: \U\0

  • 首字母大写
    Capitalize all words
    Find: ([a-zA-Z])([a-zA-Z]*)
    Replace: \U\1\L\2


    • 中文关键字：regular expression 正则表达式 emeditor 宏 符号 正则 表达式 常用 replace 全角 find 汉字 半角 with 行头
    关键字: , | 分类: 软件开发 | 评论数: 2 | 阅读全文

    Eclipse+Tomcat 调试断点没有显示的问题

    发布时间: 2008-03-20 14:05 | 作者: 乐乐猪

    根本项目的要求，将Eclipse 3.1 升级为Eclipse 3.2 ，随之而来的是调试的时候可以按F6单步调试，但不显示当前执行行的蓝条，不知道程序运行到哪里，非常不方便，网上搜之，原因很简单，是编辑器和工程没有关联上，只要在Eclipse 中设置一下就可以了
    英文版 preference/tomcat source path/中勾上project
    日文版 設置/Tomcat/ソール・パス 中勾上Project


    中文关键字：eclipse tomcat 断点 日文版 调试 问题 project 勾上 随之而来 编辑器 英文版 preference 关联 根本 只要
    关键字: , , , , | 分类: 软件开发 | 评论数: 0 | 阅读全文