-2

这可能很简单，但我无法弄清楚：

我有一个随机数（可以是 1、2、3 或 4 位数字）它在第二行重复：

2131
2131

如何删除第一个数字？

编辑：对不起，我没有更好地解释它。这些行位于纯文本文件中。我使用 BBEdit 作为我的编辑器。实际文件如下所示（只有 app.10.000 行）：

336
336
rinde
337
337
diving
338
338
graffiti
339
339
forest
340
340
mountain

如果可能，结果应如下所示：

336 - rinde
337 - diving
338 - graffiti
339 - forest
340 - mountain
4

5 回答 5

3

搜索：

^(\d{1,4})\n(?:\1\n)+([a-z]+$)

代替：

\1 - \2

我无权访问 BBEdit，但显然您必须检查“Grep”选项才能启用 regex search-n-replace。（我不知道他们为什么这么称呼它，因为它似乎是由 PCRE 库提供支持的，它比grep.）

于 2011-09-29T04:53:48.210 回答
2

因为你没有提到任何编程语言，工具。我假设这些数字在一个文件中。每个每行，任何重复的数字都在相邻行中。uniq命令可以解决你的问题：

kent$  echo "1234
dquote> 1234
dquote> 431
dquote> 431
dquote> 222
dquote> 222
dquote> 234"|uniq

1234
431
222
234
于 2011-09-28T21:09:11.240 回答
2

另一种查找方式：/^(\d{1,4})\n(?=\1$)/替换：""
修饰符mg（多行和全局）

$str =
'1234
1234
431
431
222
222
222
234
234';

$str =~ s/^(\d{1,4})\n(?=\1$)//mg;
print $str;

输出：
1234
431
222
234

添加在修改后的示例中，您可以执行以下操作：

查找：/(?=^(\d{1,4}))(?:\1\n)+\s*([^\n\d]*$)/
替换：$1 - $2
Mods：/mg（多行，全局）

测试：

$str =
'
336
336
rinde
337
337
337
diving
338
338
graffiti
339
337
339
forest
340
340
mountain
';

$str =~ s/(?=^(\d{1,4}))(?:\1\n)+\s*([^\n\d]*$)/$1 - $2/mg;

print $str;

输出：
336 - rinde
337 - 潜水
338 - 涂鸦
339
337
339 - 森林
340 - 山

已添加2 - 与原始问题相比，OP 后期所需的输出格式给我留下了更深刻的印象。它有很多元素，所以无法控制自己，生成了一个过于复杂的正则表达式。

搜索：/^(\d{1,4})\n+(?:\1\n+)*\s*(?:((?:(?:\w|[^\S\n])*[a-zA-Z](?:\w|[^\S\n])*))\s*(?:\n|$)|)/
替换：$1 - $2\n
修饰符：mg ( multi-line, global)

展开- 

# Find:
s{ # Find a single unique digit pattern on a line (group 1)

   ^(\d{1,4})\n+   # Grp 1, capture a digit sequence

   (?:\1\n+)*      # Optionally consume the sequence many times,
   \s*             # and whitespaces (cleanup)

   # Get the next word (group 2)
   (?:
     # Either find a valid word
       (                      # Grp2 
          (?:
             (?:\w|[^\S\n])*     # Optional \w or non-newline whitespaces
             [a-zA-Z]            # with at least one alpha character
             (?:\w|[^\S\n])*
          )
       )
       \s*                    # Consume whitespaces (cleanup),
       (?:\n|$)               # a newline
                              # or, end of string
     |
     # OR, dont find anything (clears group 2)
   )
 }

# Replace (rewrite the new block)
 {$1 - $2\n}xmg;  # modifiers expanded, multi-line, global
于 2011-09-28T22:06:58.590 回答
0

寻找：

((\d{1,4})\r(\D{1,10}))|(\d{1,6})

代替：

\2 - \3

你应该可以很容易地从那里清理它！

于 2015-12-17T17:16:16.243 回答
-2

使用正则表达式无法检测到这种模式。

您可以通过“\n”拆分字符串，然后进行比较。

于 2011-09-28T21:27:25.757 回答