← Back to team overview

sslug-teknik team mailing list archive

Re: kopiering af links

 

On Fri, Oct 13, 2000 at 15:38:32 +0200, Hardy Henneberg wrote:

> Er der en nem måde at kopiere links fra en mail over i et html dokument?
> 
> Problemet er at når jeg læser mails vil jeg gerne gemme dele af disse mails
> indeholdende links, så jeg kan læse dem på et senere tidspunkt.

Jeg har et lille awk script der laver en bookmarkliste i textformat af
adresser med http://....  til html-links.
Kald med 
  "gawk -f txt2html.awk  minfil.txt > minfil.html"
Vil du have flere textfiler til en:
  "gawk -f txt2html.awk  minfil1.txt minfil2.txt .... > allefil.html"

Du  tilpasser selv:

.............. txt2html.awk ..................
# (C) 1998 Frank Damgaard / GPL
# convert ftp://... and http://... in text file to a html file with links
BEGIN {
  print "<HTML>\n<HEAD><TITLE>",header,"</TITLE>"
  print "<LINK REL=\"STYLESHEET\" HREF=\"/style/local.css\" TYPE=\"text/css\">"
  print "</HEAD>"
  print "<BODY>\n<H4>",header,"</H4>"
  print "<PRE>"
}

{
  gsub(/&/,"\\&amp;",$0);
  gsub(/</,"\\&lt;",$0);
  gsub(/>/,"\\&gt;",$0);
}

/[Hh][Tt][Tt][Pp]:\/\// {
  for (i=1; i<=NF; i++) {
    if ( $i ~ /[Hh][Tt][Tt][Pp]:\/\// ) {
	a=$i
	gsub(/\?/,"\\?",a);
	b="<a href=\""$i"\">"$i"</A>"
	sub(a,b,$i);
	i++;
    }
  }
  print $0
  next
}

/[Ff][Tt][Pp]:\/\// {
  for (i=1; i<=NF; i++) {
    if ( $i ~ /[Ff][Tt][Pp]:\/\// ) {
	a=$i
	gsub(/\?/,"\\?",a);
	b="<a href=\""$i"\">"$i"</A>"
	sub(a,b,$i);
	i++;
    }
  }
  print $0
  next
}

{
  print
  next
}
END {
  print "</PRE>\n</BODY>\n</HTML>"
}

-- 
Frank Damgaard


Follow ups

References