Question

使用UltraEdit的正则表达式删除含某个关键字的多行？

批处理后生成的文档， 是上千“组”信息（一组18行），有一行（不是第一行）包含其部门属性，现有项操作需要剔除某一部门的所有信息，想用UltraEdit的正则表达式删除，也就是说，发现该部门名称，就这18行都删了，如何处理……？
就这样说吧，
打比方第一行是姓名，第二行是性别，第三行是部门……第18行是备注
一个文件里有上千个这样的18行
现在就是只要这个部门A的，这18行就都删了
求方法……
谢谢~~~

Answer 1

用vba给你写，就是excel的宏，你吧文件格式写清楚，或者给我发个具有代表性的文件，几分钟就给你搞定。
pt98@sina.com
'---------------
'vba
'假设部门代码在第三行，而且每个部门占用18行
Sub test()
Dim s As String, i As Long, n As Long, arr
Open "c:\abc.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
Close #1
s = InputBox("输入一个要删除的部门名称：", , "sss")
For i = 0 To UBound(arr)
If InStr(arr(i), s) > 0 Then Exit For
Next
If i < UBound(arr) + 1 Then
n = i
Open "c:\outputfile.txt" For Output As #1
For i = 0 To UBound(arr)
If i <= n - 2 Or i >= n + 17 Then
Print #1, arr(i)
End If
Next
Close #1
End If
End Sub
’---------------------------------------
‘已修改成第二行，原来按第三行处理的，试一下

Answer 2

你说的不详细，组和组之间用什么分割？既然你举了例子了，那就按你的例子说吧，应该这样写：姓名[\W\w]*?部门某某某[\W\w]*?备注.+\n 用这个替换就行了。不过ULTRA对中文支持不好，先转成UTF-8在替换

Answer 3

都在一个文本文件里吗？
1-18行、19-36行、37-54行..... 这样分组吗？
第三行是部门名称？

追问

在一个文本文件里吗？
2-19行、20-37行、38-55行..... 这样分组
第2行很长，包含部门名称

追答

部门名称在每个组里第一行？

追问

在一个文本文件里的
2-19行、20-37行、38-55行..... 这样分组
部门名称在每个组里第2行，第2行很长，包含部门名称

追答

测试文档（测试通过，操作方法见文档后面）
2组1
测试B001部门
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20组2
B002
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38组3
B003
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56组4
B004
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74组5
B005
76
77
78
79
80
*^p*B001*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*
======================================================================================================
操作方法：
1、用UltraEdit打开要替换的文件
2、按Ctrl+R打开替换窗口（或从搜索标签里的“替换”打开）
3、查找框输入表达式：*^p*B001*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*^p*（把B001改为部门名称）
4、替换框留空
5、选中“正则表达式”和“从文件顶部全部替换”这两个复选框
6、点击“全部替换”按钮
7、按Ctrl+S保存即可
======================================================================================================