<script>

function starte()
{
if(document.forma.R1[0].checked)
starteI();
if(document.forma.R1[1].checked)
starteN();
}
function starteI()
{
var fso, f;
var ForReading = 1, ForWriting = 2;
fso =new ActiveXObject("Scripting.FileSystemObject");
f1 =fso.OpenTextFile("GesamtISSN3.txt",ForReading,true);
T=f1.ReadAll();
F4=window.open("fenster.htm");
F1=window.open("fenster1.htm");
F1.document.write("<big>Zweifelhafte Treffer</big><p>");
F=window.open("fenster2.htm");
F.document.write("<big>Keine ISSN gefunden</big><p>");
F2=window.open("fenster3.htm");
F3=window.open("fenster4.htm");
F3.document.write("<big>Titel mit Doppelpunkt</big><p>");
treffer0=0;
treffer1=0;
treffer2=0;
treffer3=0;
treffers=0;
trefferM=0;
T1=T.replace(/\s+/g," ");
T2=T1.replace(/\-SERIES|SERIES|\bPART\b|SECTION/g,"");
T3=T2.replace(/\s\bOF\sTHE\b|bTHEN\b\s/g,"");
T4=T3.replace(/\s-\w\w+-/g,"");
T5=T4.replace(/\s-\w+\s\w+-/g,"");
T6=T5.replace(/\s-\w+\s\w+\s\w+-/g,"");
T7=T6.replace(/-/g,"");
T8=T7.replace(/:/g,"");
TI=T8.replace(/\s\s+/g," ");
TIA=TI.split(">");
R=document.forma.area.value;
if(R.length<50)
{
alert("Keine Eingabe!")
return;
}
R1=R.replace(/ä/g,"a");
R1a=R1.replace(/Ä/g,"A");
R2=R1a.replace(/ö/g,"o");
R3=R2.replace(/ü/g,"u");
R4=R3.replace(/ß/g,"ss");
Ra=R4.replace(/\r|\n/g,">");
Raa=Ra.replace(/>>/g,">");
Rab=Raa.replace(/\s+>\s+|\s+>|>\s+/g,">");
Rb=Rab.replace(/>>/g,">");
Rba=Rb.replace(/>>>>>+/g,">");
Rbd1=Rba.replace(/\ba\sjournal|\bA\sJournal|\ba\sJournal|\bA\sjournal/g,"");
Rbd2=Rbd1.replace(/of\sthe\b/g,"");
Rbe=Rbd2.replace(/,\sThe\b|,\sthe\b|,\sTHE\b|,\sLa\b|,\sLe\b|,\sDer\b|,\sDie\b|de\sl'/g,"");
Rbg=Rbe.replace(/Journal|journal|JOURNAL/g,"J");
Rc=Rbg.replace(/,|;|\s\(PNAS\)/g,"");
Rd=Rc.replace(/&/g,"and");
Rg=Rd.replace(/\s+/g," ");
Rh=Rg.toUpperCase();
Ri=Rh.replace(/-\sSERIES/g,"SERIES");
Rj=Ri.replace(/ZAMP\s-\s|ZAMM\s-\s|\sSERIES|\s\bPART\b|\sSECTION\b/g,"");
Rk=Rj+">ZZ";
RAA=Rk.split(">");
TA=RAA.sort();
for(x=0;x<TA.length-1;x++)
if(TA[x]!=TA[x-1])
if(TA[x].length>1)
if(TA[x]!="BIOLOGIE")
if(TA[x]!="PSYCHOLOGIE")
if(TA[x]!="MEDIZIN")
if(TA[x]!="ZEITSCHRIFT")
if(TA[x].search(/VOLLTEXT|NACH\sFACH|QRSTU|QRS|KONTAKT|ANSPRECHP|VERMISSE|SCHNELLE\sSUCHE|ANGEBOT|ZEITSCHRIFTEN|REGENSBURG|INHALTSVERZ|HABEN\sSIE|ZUGANGS|BITTE\sBEACHTEN|INFORMATIONEN\sZUR|FREI\sZUG|\bNEU\b|BIELEFELD|ANGEHORIGE|EFG|ABC|KLM|A\s+B\s+C\s+D\s+E/)==-1)
{
zz=TA[x].match(/\(AKT|\(ALT|\(BIS\s\d+|\(AB\s\d+|\(-\d\d\d\d|\(\d\d\d\d-|\(\d\d\d\d\s-/);
zz2=TA[x+1].match(/\(AKT|\(ALT|\(BIS\s\d+|\(AB\s\d+|\(-\d\d\d\d|\(\d\d\d\d-|\(\d\d\d\d\s-/);
if(!zz)
zz="";

S=TA[x].match(/\s\b[A-I]\b|\([A-I]\)/);
if(S)
Sa=S;
if(!S)
Sa="";
za=TA[x].search(/PROCEED|AMERICAN\sJ\sOF\sPHYSIOL/);
if(za!=-1)
Z0=TA[x].replace(/:/,"");
if(za==-1)
Z0=TA[x];
Z00=Z0.replace(/MUTATION\sRESEARCH.+/,"MUTATION RESEARCH");
Z1=Z00.replace(/DERMATO-/,"DERMATO ");
Z2=Z1.replace(/OTO-/,"OTO ");
Z3=Z2.replace(/CHEMICO-/,"CHEMICO ");
Z4=Z3.replace(/CARDIO-/,"CARDIO ");
Z5=Z4.replace(/RHINO-/,"RHINO ");
Z6=Z5.replace(/NEURO-/,"NEURO ");
Z6a=Z6.replace(/MUND-/,"MUND ");
Z6b=Z6a.replace(/SOCIO-/,"SOCIO ");
Z6c=Z6b.replace(/HERZ-/,"HERZ ");
Z6d=Z6c.replace(/THORAX-/,"THORAX ");
Z6e=Z6d.replace(/KIEFER-/,"KIEFER ");
Z7=Z6e.replace(/\bNON-/,"NON");
Z8=Z7.replace(/\sBJOG|\s662000FF|®|\sJBC|\sPARIS|JASMS\s|\sPCCP|\sJIDR/,"");
Z9=Z8.replace(/L´|L'/,"L ");
Z10=Z9.replace(/Í/g,"I");
Z11=Z10.replace(/Á/g,"A");
Z12=Z11.replace(/Ó/g,"O");
Z13=Z12.replace(/Ú/g,"U");
ZA1a=Z13.replace(/\(A\)/, "A");
ZA1b=ZA1a.replace(/\(B\)/, "B");
ZA1c=ZA1b.replace(/\(C\)/, "C");
ZA1d=ZA1c.replace(/\(D\)/, "D");
ZA1e=ZA1d.replace(/\(E\)/, "E");
ZA2=ZA1e.replace(/É/g,"E");
L=ZA2.match(/=.+/);
if(!L)
L="";
ZA2aa=ZA2.replace(/\s\[.+|\s=.+|=.+|\/.+|\s:.+|:.+|\..+|'|´|`/g,"");
pv=ZA2aa.indexOf(Sa);
if(pv==-1)
ZA2a=ZA2aa+Sa;
if(pv!=-1)
ZA2a=ZA2aa;
ZA2b=ZA2a.replace(/\bOF\sTHE\b\s|DE\sL\s|DE\sLA\s/g,"");
ZA3a=ZA2b.replace(/\s\(.+|;.+/g,"");
ZA3aa=ZA3a.replace(/\(.+/g,"");
ZA3b=ZA3aa.replace(/\s-.+/,"");
ZA3=ZA3b.replace(/-\s/g,"");
ZA4a=ZA3.replace(/-/g," ");
pza1=ZA4a.indexOf("MECHANICAL ENGINEERS");
if(pza1!=-1)
ZA4b=ZA4a.replace(/J\sOF\s.+/,"J");
if(pza1==-1)
ZA4b=ZA4a;
pza3=ZA4b.indexOf("PROCEEDINGS ROYAL SOCIETY OF LONDON A");
if(pza3!=-1)
ZA4b="PROCEEDINGS ROYAL SOCIETY OF LONDON A";
if(pza3==-1&&pza1==-1)
ZA4b=ZA4a;
pza4=ZA4b.indexOf("PROCEEDINGS ROYAL SOCIETY OF LONDON B");
if(pza4!=-1)
ZA4b="PROCEEDINGS ROYAL SOCIETY OF LONDON B";
if(pza4==-1&&pza1==-1&&pza3==-1)
ZA4b=ZA4a;
ZA5=ZA4b.replace(/\s+/g," ");
dop=TA[x].search(/:/);
if(dop!=-1)
F3.document.write("<br>"+">"+TA[x]+">"+ZA5);

pa=TI.indexOf(">"+ZA5+"=");
if(pa!=-1)
{
treffer1++;
pb=TI.indexOf("=",pa);
pc=TI.indexOf(">",pb);
ZJ=TI.substring(pa,pb);
IS=TI.substring(pb,pc);
SJ=TI.substring(pa,pc);
s=SJ.match(/\*/);
if(s)
{
treffers++;
pd=TI.indexOf(">",pc+1);
SJ2=TI.substring(pc,pd);
is2=SJ2.match(/\d\d\d\d\d\d\d\w/);
s2=SJ2.match(/\*/);
F2.document.write("<br>"+ZJ+IS+is2+L+zz);
if(s2)
{
pe=TI.indexOf(">",pd+1);
SJ3=TI.substring(pd,pe);
is3=SJ3.match(/\d\d\d\d\d\d\d\w/);
if(!s2)
is3="";
if(!s)
is2="";
F2.document.write("<br>"+ZJ+IS+is2+"*"+is3+L+zz);
}
}
if(!s)
F2.document.write("<br>"+ZJ+IS+L+zz);
}
if(pa==-1)
{
pd=TI.indexOf(">"+ZA5)
if(pd!=-1)
{
treffer3++
pe=TI.indexOf("=",pd);
pf=TI.indexOf(">",pd+1);
ZJ=TI.substring(pd+1,pe);
IS=TI.substring(pe,pf);
F1.document.write("<br>"+">"+TA[x]+" **"+ZJ+IS+zz);
}
if(pd==-1)
{
treffer0++;
F.document.write("<br>"+">"+Z0+zz);
}
}
}
alert(RAA.length+" Zeilen eingelesen!")
alert(treffer1+" ISSN aus Gesamt ergänzt");
alert(treffer3+" zweifelhaft");
alert(treffer0+" ISSN nicht gefunden");
alert(treffers+" mit mehrfacher ISSN");
}
</script>