Examples of the program for the URL in the string

zhaozj2021-02-08  217

Function Tolink (STR) DIM Re 'Regular Expression Object DIM STRCONTENT IF INULL (STR) THEN STR = "" SET RE = New Regexp' Create Regular Expression Object with Re .global = True 'Search Apply to the entire string .ignoreCase = True 'Search SARCONTENT = STR

'********************************************************** ************** The email address link automatically sets' ************************************* **********************************. Pattern = "([/ w] *) @ ([/ w) /.]* "strcontent = .replace (strcontent,"

End with set re = nothing tolink = strcontent end function


New Post(0)