Lesezeichen als CSV Datei

black69

Ich möchte meine Lesezeichen in einer Datenbank speichern. Da ich nicht jede URL einzeln eingeben möchte, würde ich gerne nur den Namen und die URL (ohne http:\\) der lesezeichen in einer CSV speichern wollen, doch geht das und wie?

Scheinmensch

Hi!

Probier mal dieses VBSkript. Bei meinem Fuchs funktioniert es. Kopiere das Skript in den Profilordner, wo auch die "bookmarks.html" liegt, und dazu auch noch die Datei "recode.exe" von dieser Webseite (http://recode.progiciels-bpi.ca/showfile.html?mode=archives). Sie wird vom Skript benötigt, um die Lesezeichendatei aus dem UTF-8-Format zu übersetzen. Nach dem Start des Skriptes (Doppelklick), wird eine Datei "bookmarks.csv" erstellt.
Das Entfernen der Protokollangabe finde ich keine so gute Idee, denn es kann auch Lesezeichen mit anderen Protokollen (z.B. https, ftp) geben. Damit da kein Informationsverlust auftritt, werden diese dann auch nicht entfernt.
Sicherheitshalber solltest Du vorher eine Kopie des Profilordners machen (man weiss ja nie..:wink:).
Kopiere folgenden Code in ein leeres Editorfenster und speichere es mit der Endung ".vbs" ab.

Code

set shell=createobject("wscript.shell")
cmd="recode utf-8..latin1 <bookmarks.html >bookmarks.lat"
shell.run "%comspec% /c "&cmd,0,true
set fso=createobject("scripting.filesystemobject")
set i=fso.opentextfile("bookmarks.lat")
set o=fso.opentextfile("bookmarks.csv",2,true)
while not i.atendofstream
 a=split(i.readline,"<DT><A")
 if ubound(a)=1 then
  b=split(a(1),chr(34))
  if left(lcase(b(1)),7)="http://" then b(1)=mid(b(1),8)
  if instr(b(1),";") then b(1)=chr(34)&b(1)&chr(34)
  csv=b(1)&";"
  b=split(a(1),">")
  a=split(b(ubound(b)-1),"<")
  a(0)=html_entity_decode(a(0))
  if instr(a(0),chr(34)) then
   a(0)=chr(34)&replace(a(0),chr(34),chr(34)&chr(34))&chr(34)
  end if
  if instr(a(0),";") and left(a(0),1)<>chr(34) then
   a(0)=chr(34)&a(0)&chr(34)
  end if
  o.writeline csv&a(0)
 end if
wend
i.close
o.close
fso.deletefile "bookmarks.lat"
wscript.quit


function html_entity_decode(strg)
 dim a,b,n
 a=array("&","<",">",""","'","&nbsp;","&apos;")
 b=array("&","<",">",chr(34),"'"," ","´")
 for n=0 to ubound(a)
  strg=replace(strg,a(n),b(n))
 next
 html_entity_decode=strg
end function

Alles anzeigen

Gruss,
Scheinmensch