[VB 2008] Regex + replace greier.

[Gjest]

Hei!

 

Nytt spørsmål fra meg.

 

La oss si brukeren skriver inn følgende i en tekstboks:

 

http://shareing.com/fil.rar
http://uploadit.com/fil.rar

 

Da vil jeg at programmet mitt skal detekte "sharing.com" & "uploadit.com" og spørre om den skal plasser de slik i en tekstboks:

[ code ]
http://shareing.com/fil.rar
http://uploadit.com/fil.rar

[ / code ]

 

Uten mellom mellom [ og ]

så det blir en code-tagg.

 

Noen som kan hjelpe meg?

Endret 18. desember 2009 av Gjest

[Tepose.]

TextBox2.Text = "[KODE]" & TextBox1.Text & "[/KODE]"

 

Endret 18. desember 2009 av ETOD

[Gjest]

Desverre var det ikke helt det jeg var ute etter.

 

Hvis du ikke forstår hva jeg mente så spør.

[GeirGrusom]

Dim reg As New Regex("http://(?<Domain>[a-zA-Z0-9\-]+\.[a-zA-Z]+)(/[^/]*)*")
Dim m As Match = reg.Match(TextBox.Text)
Do While m.Success
 Dim result As DialogResult = MessageBox.Show("Fant " & m.Groups("Domain").Value & ". Vil du legge dem i en tekstboks?", MessageBoxButtons.YesNo, MessageBoxIcons.Question)
 If result = DialogResult.Yes Then
TextBox.Text &= m.Value & VbCrLf
 End If
 m = m.NextMatch()
Loop

Tror det skal funke nogenlunde.

edit: Så noen parantesfeil

edit2: Prøvde å rette opp MessageBox saken.

Endret 18. desember 2009 av GeirGrusom

[Gjest]

Fikk error på messagebox.show

[GeirGrusom]

Sikkert jeg som har skrevet noe feil VB. Sitter med noe annet i C# akkurat nå.

[Gjest]

Hei og takk for svar!

Men nå blir det slik:

http://shareing.com/fil.rar
http://uploadit.com/fil.rar
[ code ]
http://shareing.com/fil.rar
http://uploadit.com/fil.rar

[ / code ]

[GeirGrusom]

Dette funker hos meg:

 

		Dim reg As New Regex("http://(?<Domain>[a-zA-Z0-9\-\.]+)(/[^/\s]*)*")
	Dim m As Match = reg.Match(InputText.Text)
	Do While m.Success
		Dim result As DialogResult = MessageBox.Show("Fant " & m.Groups("Domain").Value & ". Vil du legge dem i en tekstboks?", "Funn!", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
		If result = DialogResult.Yes Then
			InputText.Text = InputText.Text.Substring(0, m.Index) & "[url='" & m.Value & "']" & m.Groups("Domain").Value & "[/url]" & InputText.Text.Substring(m.Index + m.Length)
		End If
		m = m.NextMatch()
	Loop

Visual Basic...I hate it SO MUCH!

Endret 18. desember 2009 av GeirGrusom

[Gjest]

Hei!

 

Det virker!

Men problem, 2 stykker under hverandre skaper et problem for meg:

[ url=http://upload.com/fil. upload2.com[ /url]://upload2.com/fil2.rar

Hva er galt?

Endret 18. desember 2009 av Gjest

[GeirGrusom]

Du kan forsøke å legge til SingleLine (eller MultiLine) som parameter til constructoren i Regex saken. Dette skal endre oppførselen for hvordan regex motoren behandler newline.