正则表达式代码删除句点

Question

Dim wr_str as string

Dim str as string = "Introduction........................1"

Dim no As Match = Regex.Match(wr_str, "(^.*?)(\s*)([0-9]+)\s*$")

wr_str = Regex.Replace(wr_str, "(^.*?)(\s*)([0-9]+)\s*$", no.groups(1).value & no.groups(3).value)

---

Input string = "Introduction........................1"

I require the output string as 'Introduction;1'.

Could you please let me know how to change the regex expression to ignore the dots after the text

Answer 1

You can use capturing groups like this:

Dim myMatch = Regex.Match("Introduction.............1", "(^.*?)\.*([0-9]+)\s*$")
Dim res2 = myMatch.Groups(1).Value + ";" + myMatch.Groups(2).Value

Dots are captured with \\.* , and are not used for final string creation.

EDIT: To match your code context:

Dim no as Match = Regex.Match("Introduction.............1", "(^.*?)\.*([0-9]+)\s*$")
wr_str = Regex.Replace(wr_str, "(^.*?)(\.*)([0-9]+)\s*$", no.Groups(1).Value.Replace(".", "").Trim() & ";" & no.groups(2).value)

Answer 2

In it's simplest form, this should work:

Dim wr_str as string

Dim str as string = "Introduction........................1"

Dim no As Match = Regex.Match(wr_str, "(^.*?)(\.*)([0-9]+)\s*$")

wr_str = Regex.Replace(wr_str, "(^.*?)(\.*)([0-9]+)\s*$", no.groups(1).value & ";" & no.groups(3).value)

The regex was matching on whitespace, not dots.

Answer 3

看来这可以做到：

wr_str = Regex.Replace(wr_str, "\\.+", ";")

Answer 4

Try this regex pattern (ignorecase+multiline):

^(.*?)\.*?(\d+)$

See more - regex tester

http://i.imgur.com/qrTMsHr.png