Parsing out a URL\/Web Address\/Email Address
\nGetting a list of URLs from a common sentence, or a line of text:
\nWritten by: Nelson Williams
\nThis tip helps you to retreive a StringList full of URLs,
\nEMail addresses, etc.
\n
\n[code lang=”delphi”]function GetURLs(line: string): TStringList;
\nvar
\n i : integer;
\n posURL,
\n s : string;
\nbegin
\n \/\/Obviously, first we create a TStringList.
\n Result := TStringList.Create;
\n \/\/We must make a copy of our string, since we need a variant section of a string
\n \/\/to work with out loop. S is just that.
\n s := line;
\n \/\/This is our counter.
\n i := 0;
\n \/\/If the string is smaller than 5 characters, its not going to be a URL, that is
\n \/\/for sure.
\n if Length(s) < 5 then exit;\n \/\/We begin our repeat..unitl loop, using I as the counter of spaces.\n \/\/This is a classic string cracking loop, where a a sentence is broken into its words.\n \/\/Here, we are breaking the string into words, and checking each word in the string\n \/\/if it has any properties that qualify it to be a url.\n repeat\n \/\/Get the first space.\n i := Pos(' ', s);\n \/\/If a space does exist, in fact, then we carve out the possible link.\n if i > 0 then
\n begin
\n \/\/This is the copy method.
\n posURL := Copy(s, 1, i-1);
\n \/\/Decrease the s, dynamic string, by whatever we just carved out, so next time
\n \/\/we loop around, we dont have to worry about it. Just use copy to remove the
\n \/\/value equivalent to posURL from the main string.
\n s := Copy(s, i+1, Length(s)-i);
\n \/\/Call the function below, and check if the word is actually a link.
\n if isURL(posURL) then
\n \/\/if the word indeed is a ling, then add it to the string list.
\n Result.Add(posURL);
\n \/\/The expressions within this begin..end section do the same as above, but this
\n \/\/is called if only one word\/token remains in the s string.
\n end else
\n begin
\n PosURL := s;
\n if isURL(posURL) then
\n Result.Add(posURL);
\n Break;
\n end;
\n \/\/if s is empty, stop the loop.
\n until Length(s) = 0;
\n \/\/This little section will free the TStringList if it contains no items, and set it
\n \/\/to nil.
\n if Result.Count = 0 then
\n begin
\n Result.Free;
\n Result := nil;
\n end;
\nend;
\n{ This function does the actual checking for the token being a URL. }
\nfunction IsURL(s: string): Boolean;
\nvar
\n i: integer;
\nbegin
\n \/\/From the top, make the result false.
\n Result := False;
\n \/\/Again, if the text of the token is less than 5, its just not going
\n \/\/to be a URL.
\n if Length(s) < 5 then exit;\n \/\/If the token contains a period at the end, or two periods combined, \n \/\/its also not going to be a url.\n if (s[Length(s)] = '.') or (Pos('..', s) > 0) then exit;
\n \/\/Now we check for bogus characters, Anything between 33 and 126 is valid,
\n \/\/Above or below, are not valid url characters.
\n for i := 1 to Length(s) do
\n if (Ord(s[i]) < 33) or (Ord(s[i]) > 126) then exit;
\n \/\/The next few things check for individual characteristics of various stringd.
\n if (Pos(‘www.’,LowerCase(s)) = 1) or (Pos(‘news:’, LowerCase(s)) = 1) and
\n (Length(s) > 6) then
\n begin
\n Result := True;
\n Exit;
\n end;
\n if (Length(s) > 12) or (Pos(‘mailto:’, LowerCase(s)) = 1) and
\n (Pos(‘@’, s) > 1) and (Pos(‘.’, s) > 4) and (Pos(‘.’, s) > (Pos(‘@’, s) +1)) then
\n begin
\n Result := True;
\n Exit;
\n end;
\n if (Pos(‘http::\/\/’, LowerCase(s)) > 0) or (Pos(‘ftp:\/\/’, LowerCase(s)) > 0) and
\n (Length(s) > 10) and (Pos(‘.’, s) > 7) then
\n begin
\n Result := True;
\n Exit;
\n end;
\nend;
\n[\/code]<\/p>\n
[tags]Delphi, Network, Internet[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"
Parsing out a URL\/Web Address\/Email Address Getting a list of URLs from a common sentence, or a line of text: Written by: Nelson…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,106,116],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-3d","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/199"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=199"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/199\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=199"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=199"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=199"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}