20-06-14, 11:25 AM
.....
.....
كود :
Dim Resultreg As String = TextBox1.Text
Dim result = Regex.Match(Resultreg, "(?<=<!--googleoff: all-->)\r\n.+?\r\n(?=<!--googleon: all-->)").Value.Trim
MsgBox(result).....



