	DICOM Solutions

Features Webcasts und Screenshots Kostenlose Testversion Bestellinformationen Benutzerzone Portable USB-Version

PowerDicom

Ein Beispiel-Skript

Das folgende Beispielskript demonstriert, wie einfach es ist, alle DICOM-Dateien in einem ganzen Ordner mit PowerDicom™ zu anonymisieren. Dieses Skript benutzt VBScript (Windows Script Host). Viele andere Programmier-, Skript- oder Macro-Sprachen können ähnlich verwendet werden.

rem              Sample Script anonymize.vbs
rem
rem  This script changes the patient's name in each file of a given
rem  folder and saves all files to a different directory
rem==========================================================================
rem  Source and Destination Directories
 SourceDir="files\"
 DestDir=WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop")+"\test\"

rem creating  a filesystem object and the PowerDicom.Automation object
set fs=WScript.CreateObject("Scripting.FileSystemObject")
set PowerDicomAuto = WScript.CreateObject("PowerDicom.Automation")

if fs.FolderExists(SourceDir) then
  set Files=fs.GetFolder(SourceDir).Files
else
  WScript.Echo(SourceDir+" doesn't exist.")
  WScript.Quit
end if

if Not fs.FolderExists(DestDir) then
  fs.CreateFolder(DestDir)
end if

for each Item in Files
  rem opening a DICOM-file
   v= PowerDicomAuto.OpenFile(Item.Path)
if v>0 then
    rem  modify the Patient's name
      PowerDicomAuto.SetItemValue &H10,&H10,"anonymous"

    rem save the modified file
    if PowerDicomAuto.SaveFile(DestDir+Item.Name)<1 then
      WScript.Echo("Error Writing File "+ Item.Name + " to " + DestDir)
      end if
    rem close the file
    PowerDicomAuto.CloseFile()
  end if
next

WScript.Echo("Finished Anonymizing")