netinstall datenbank nid extractor

eine variation des nid importers, nur diesmal als csv output. vielleicht kanns einer von euch mal gebrauchen:

Code:

// nid extractor
// based on flatbyte's nid importer (c)2004
// autor: ingo bieneck (www.flatbyte.com)
// version: 1.090121 (c)01/2009

var fso = new ActiveXObject("Scripting.FileSystemObject");
sNiDatabaseGUID="";
sNiDatabaseVersion="";

ReadNiDb("nidb.nid");

function ReadNiDb(sNidFile) {
oFile = new ActiveXObject("Scripting.FileSystemObject");

if(!fso.FileExists(sNidFile)) {
WScript.Echo(sNidFile+"\nIn diesem Verzeichnis existiert keine NetInstall Datenbank.");
return;
}
sNiDatabaseGUID="";

try {
oStream = oFile.OpenTextFile(sNidFile);
}
catch(e) {
WScript.Echo(e.description); // keine arme, keine kekse.
return;
}

iCnt=0;
sFolder="";

do {
sToParse=oStream.ReadLine();

// "database"
if(sToParse.substr(0,13)=="$NIRT_VERSION") {
sNiDatabaseVersion=sToParse.substr(14);
}
if(sToParse.substr(0,4)=="GUID" && sNiDatabaseGUID=="") {
sNiDatabaseGUID=sToParse.substr(5);
}

// "folder"
if(sToParse.substr(0,1)=="&") {
sFolder="";
do {
sToParse2=oStream.ReadLine();
if(sToParse2.substr(0,4)=="GUID") sFolder=sToParse2.substr(5);
} while (!sToParse2=="")
sFolder+=sToParse.substr(1);
}

// "project"
if(sToParse.substr(0,1)=="~") {
sText=sToParse.substr(1);
sValue="";

do {
sToParse2=oStream.ReadLine();
if(sToParse2.substr(0,4)=="GUID") sValue+=sToParse2.substr(5);
// nur fuer den nid importer
//if(sToParse2.substr(0,5)=="FLAGS") sValue+="|"+sToParse2.substr(6)+"|"+sFolder;
//if(sToParse2.substr(0,4)=="0b32") sValue+="|"+sToParse2.substr(6);
} while (!sToParse2=="")

//dump, umleiten in datei mit: cscript.exe nidextractor.js > datei.txt
WScript.Echo(sValue+","+sText+","+sFolder);
iCnt++;
}

} while(!oStream.AtEndOfStream)
oStream.Close();

WScript.Echo(iCnt+" Projekte in Datenbank"); // just info.
}