|
发表于 2014-9-2 18:34:48
|
显示全部楼层
本帖最后由 vbnet 于 2014-9-2 18:42 编辑 + {5 I/ t6 p+ m" Y& `) |; f3 t
$ Y' N) b7 y3 `一行如果有好几个6位以上数字
2 S$ R9 `* k/ T; q/ O6 R# G2 J" _dferddd34567823uygfht678902333htyuiolkh2345676543
, s5 [& T( k$ i- @' w可用编程来作" R' z; g) m1 l+ w- J
供参考(用vb.net)
( v7 J! c: T" Y5 z6 F---------------------------------------------------
% T7 w M0 E) L. T目的:含6位以上数字保留- C2 [8 X! y! p3 y* K
-----------------------------------------------------
; Y8 M- }: s; v% {" d0 Y, FImports System.Text.RegularExpressions
* d" e# z( @+ l3 K# x1 }& k' X+ {, v4 `. y( Z
.....3 P2 K/ ~2 x/ O: n
Dim instance As New Regex("\d{6,}")
7 w; x) ]& E. w* e# g Dim str As String = ""
- L) U" p, y$ g5 [0 ? Dim contents As MatchCollection = instance.Matches(RichTextBox1.Text)/ K* Y6 y9 C1 N; _) {# K
* S4 ~, ~0 V0 A# n
For Each ma As Match In contents2 c& T6 |$ E8 X8 R% A
str = str + ma.Value + vbCrLf
1 ~7 j* z) R# n V" B% {# @ Next, v; Z1 T4 F9 [1 m: }: I. o9 z
3 y8 y/ [$ M0 V! ?% L1 Y6 f: e RichTextBox1.Text = str
4 d- M2 ?& u4 W9 V0 D0 w----------------------------------------------------------6 v7 ^; X& M3 N. v$ _3 Q
结果: V/ z6 c% C) B: }1 E
345678236 C6 O: w. o8 ?/ b* g9 g
678902333
8 Y. w) I' `% v9 b. O2345676543
3 d, H+ H: W" f: s; Z1 d
z' \* [9 d1 x- p0 B) ~% `% E# L0 f
8 J* R. ^5 X& z3 X1 l. v
再试:8 ^1 F- o7 Y6 p
------------------------------------------------------------------+ a7 ^+ b' H% Q Y4 V6 m9 s
法尔考接过9号球345678997衣后将肯定在本1234567赛季引领球队锋线,
1 A8 W e2 A, h% E6 e球衣之3432398前的主人正是摩纳哥前锋贝7654321尔巴托夫,后者在
. p) j& z" M# ?- V2012年离队。453456788其他穿过这件球衣的人有萨哈、安迪-科
. }; Y* w: N7 J+ W尔以及布莱恩-麦克莱尔,以890874上四位曼联9号曾经的主人
8 Q+ i3 ^2 I; t$ Q/ }总共为球队打进1871234567粒顶级联赛进球,但87654321是仅在2010/11) z1 k% G) N p
赛季,贝234567765尔巴托夫以21球夺得英超金靴。
' E' g( i p8 ]& `---------------------------------------------------------------------- l. A5 j! y8 n9 V, k
结果:
4 j! E5 |1 S6 H4 Q) `0 A9 D8 O345678997. j. f7 E& ?* H# n5 L
1234567+ ^$ E p1 ?; i; |
34323983 x" [1 p5 W* v0 {: \
7654321
2 I. o. B ^" t) C4 M/ P! D! i453456788
- ?0 t' ~ U8 [$ z6 t890874
) g8 f' L' C: ^1871234567( x7 Q% ?# Q6 X# Q
87654321
9 {. S3 I4 f6 c% X( J' u5 B; f2345677658 {+ o# C! C9 P6 K* M
5 n: a) H& V$ {/ B% X8 b
* ?& B/ R9 m; `$ H) j& x. W |
|