Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim a As String = "kjsd klsdfkj ldsjflk lkdjsflkj <u>meno</u> khkjhkjh kjhk kjh k"
Dim i As Integer = Len(a)
Dim i1 As Integer = InStr(a, "<u>")
Dim i2 As Integer = InStr(a, "</u>")
Dim meno As String = Microsoft.VisualBasic.Strings.Left(a, i2 - 1)
Dim i3 As Integer = Len(meno)
meno = Microsoft.VisualBasic.Strings.Right(meno, (i3 - (i1 + 2)))
MsgBox(meno)
End Sub
tohle funguje, nevím jestli je to nejelegantnější řešení, ale funguje.
|