Nimmt alle vorhandenen Projekte und wandelt den Code in Grossbuchstaben um. Die vorhandenen Codes werden vorher in ein File C:\projektcodes.txt
herausgeschrieben, um im Notfall die alten Codes wieder einlesen zu können.
Damit die Codes automatisch bereits bei der Eingabe in Grossbuchstaben erscheinen, können Sie die Systemeinstellung "Codes in Grossbuchstaben umwandeln" in der Sektion Allgemein vornehmen.
Alle Versionen
Irgendwo in Vertec
'---Bezeichnung: Codes in Grossbuchstaben umwandeln
' Klassen: keine
' ObjectScript: No
' ContainerScript: No
' EventType: Kein
' EventClass:
' EventMembers:
' ExtendedRights: No
'---Nimmt alle vorhandenen Projekte und wandelt den Code in Grossbuchstaben
' um. Die vorhandenen Codes werden vorher in ein File C:\projektcodes.txt
' herausgeschrieben, um im Notfall die alten Codes wieder einlesen zu können.
'---17.02.04, Vertec AG: erstellt.
'---05.03.09, sr: Header eingefügt.
option explicit
dim projlist
dim proj
dim fso, aFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.CreateTextFile("c:\projektcodes.txt", True)
set projlist = Vertec.eval("projekt")
for i = 0 to projlist.count-1
set proj = projlist.objects(i)
aFile.WriteLine(proj.member("code"))
proj.member("code") = UCase(proj.member("code"))
next
aFile.Close