Rated 3 out of 5 stars

by Tiger19 on Aug. 21, 2010 · permalink

gruppen-csv:

var FsObj = WScript.CreateObject("Scripting.FileSystemObject");
var FileObj = FsObj.GetFile("G:\\temp\\gruppen.txt");
var st = FileObj.OpenAsTextStream(1);

WScript.Echo(st.ReadLine());

while (!st.AtEndOfStream)
{
var FsObj = WScript.CreateObject("Scripting.FileSystemObject");
var FileName = "G:\\temp\\gruppe.csv";
var FileObj, DateiStream;
st.Skip(3);
var Gruppe = (st.Read(6));
var Typ = (st.Read(18));
var Anzeige = (st.Read(8));

if ( FsObj.FileExists(FileName)) {
FileObj = FsObj.GetFile(FileName);
DateiStream = FileObj.OpenAsTextStream(8);
}
else {
DateiStream = FsObj.CreateTextFile(FileName, false, false);
// Hinweis: CreateTextFile enthält ein implizites Getfile mit
// OpenAsTextStream, so dass sofort ein Stream verfügbar ist.
}
DateiStream.WriteLine("Gruppennamen: Typ: Anzeigenamen: ");
DateiStream.WriteLine("\t" + Gruppe + ";" + Typ + ";" + Anzeige + st.ReadLine());
DateiStream.Close();
}