|
发表于 2014-9-2 18:34:48
|
显示全部楼层
本帖最后由 vbnet 于 2014-9-2 18:42 编辑 # `* y; \7 K7 m" P9 K) R: I2 ]! o
' ~$ n, F. S7 g6 ^
一行如果有好几个6位以上数字
2 b2 @" k( s* o: v3 T/ ?; j/ V* Udferddd34567823uygfht678902333htyuiolkh2345676543$ ~( G9 s0 z- b0 b5 G& B9 l/ q+ D
可用编程来作3 P8 Z6 C4 F0 y+ f+ U" e& O- N1 \
供参考(用vb.net)# ]6 R/ z) |* v- B. }) c7 [1 v
---------------------------------------------------" J# x* y/ G% B8 v
目的:含6位以上数字保留; p( A9 b! E0 M: j- g; i7 w
-----------------------------------------------------2 X c- Z6 y) h5 ?8 f7 c8 F1 T
Imports System.Text.RegularExpressions
! O) f/ s. }% |6 E7 B! S& e* y" G# S( u6 ~9 _5 P, u
.....6 @ S: a. e+ b9 e; A
Dim instance As New Regex("\d{6,}")
$ a: { O. j2 h& `" | Dim str As String = ""
0 I- r) D r6 j4 R) Z Dim contents As MatchCollection = instance.Matches(RichTextBox1.Text)
6 h. M6 o+ u& ` ^( G
`+ T% J* i; Q1 W( Y For Each ma As Match In contents
0 E2 V( N+ C1 t T2 L" g0 P str = str + ma.Value + vbCrLf. y/ Y2 a3 Q L5 ?+ g
Next
0 H* w: t; W H9 b$ ^9 l5 V; L6 f! a) D# t3 A! s
RichTextBox1.Text = str; C% i' {3 `2 f
----------------------------------------------------------$ B* F \' O6 [/ C9 N% [0 b W
结果:3 |; k0 S* R2 f" v9 i
34567823% J6 H; o, c1 F* U/ F$ w
678902333
4 G1 t, K5 D: g* x1 L% y2 X# A2345676543
+ `+ K' @( G! x3 G0 U3 k1 Y+ |9 X; f) N: R! o; R
) ~8 D. a8 I# W3 C9 x
" d$ i$ W- B3 a6 O m
再试:4 a/ ] x& {* C1 O3 g; b
------------------------------------------------------------------
7 w4 \4 ^- |: a2 A8 Z3 ^" B) |法尔考接过9号球345678997衣后将肯定在本1234567赛季引领球队锋线,
) R2 d& U' G J) d3 \# n球衣之3432398前的主人正是摩纳哥前锋贝7654321尔巴托夫,后者在5 M3 t0 n* T8 q, H3 h; e) y
2012年离队。453456788其他穿过这件球衣的人有萨哈、安迪-科) S% m) X+ ~ v
尔以及布莱恩-麦克莱尔,以890874上四位曼联9号曾经的主人
5 q0 _3 A. X" }3 Y* w2 F' L; T总共为球队打进1871234567粒顶级联赛进球,但87654321是仅在2010/11+ m0 G S" |( S
赛季,贝234567765尔巴托夫以21球夺得英超金靴。
! U1 ?6 c3 P- k4 P---------------------------------------------------------------------- o% @4 U$ c+ M3 B1 \: t
结果:
+ l* K A0 j6 E+ w4 M345678997
8 N; P" A( C( b: k, n. P2 ?1234567
) T* M( N+ D6 }1 D3432398
M4 ]& L6 |2 R3 a- q; F, l5 F( J7654321
3 I# C! _" f- ]9 A9 ~3 Y; G% ^# [453456788
2 t/ a/ l$ R& c7 Z/ ~. z8908744 O* H$ h8 R2 k( ~, g
1871234567
9 x2 L. w2 v9 u: p6 }9 P87654321
3 B, V. m% D) s/ c; C! i* B2345677654 w! U+ ?( k# g8 k {1 O3 A
: |& C {5 u7 J1 y# B; `, X
" G/ g) f! y0 W9 u/ C7 K% S |
|