#3309 BBTK Bug New Normal - Bug gdcmvtk - GetXCoherentInfoGdcmReader std - FilesFro...

[bbtk.git] / packages / gdcmvtk / bbs / boxes / DicomSerieInfoDir.bbs

diff --git a/packages/gdcmvtk/bbs/boxes/DicomSerieInfoDir.bbs b/packages/gdcmvtk/bbs/boxes/DicomSerieInfoDir.bbs
new file mode 100644 (file)
index 0000000..9967d14
--- /dev/null
+++ b/packages/gdcmvtk/bbs/boxes/DicomSerieInfoDir.bbs
@@ -0,0 +1,85 @@
+# ----------------------------------
+# - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
+# - /home/davila/Creatis/C8/creatools_source/bbtk/packages/gdcmvtk/bbs/boxes/DicomSerieInfoDir.bbs
+# ----------------------------------
+
+include std
+include itkvtk
+include std
+include gdcmvtk
+include creaImageIO
+
+define DicomSerieInfoDir gdcmvtk
+
+author "Author ??"
+description "Description ??"
+
+category "<VOID>"
+
+new std:FilesFromDirectory Box03
+  set Box03.Type "0"
+
+new std:GetVectorStringElement Box04
+  set Box04.I "0"
+
+new std:GetVectorStringElement Box05
+  set Box05.I "0"
+
+new gdcmvtk:GetXCoherentInfoGdcmReader Box06
+  set Box06.DicomTags "D0028_0030"
+
+new creaImageIO:GetDicomAttributesFromMaps Box07
+  set Box07.KeyDicom "D0028_0030"
+
+new std:ConcatStrings Box08
+  set Box08.In1 "D0008_103e"
+
+new std:ConcatStrings Box09
+  set Box09.In2 "  "
+  set Box09.In4 "  ("
+  set Box09.In6 "imgs)"
+
+new std:GetVectorStringElement Box10
+  set Box10.I "0"
+
+new std:GetDoubleVectorSize Box11
+
+new std:ReplaceCleanString Box13
+  set Box13.Replace "_"
+  set Box13.Search " "
+
+new std:MagicBox Box15
+
+new std:ReplaceCleanString Box16
+  set Box16.Search "____(0imgs)"
+
+new std:ReplaceCleanString Box17
+  set Box17.Search ","
+
+
+connect Box04.Out Box03.In
+connect Box03.Out Box05.In
+connect Box05.Out Box06.In
+connect Box06.DicomInfo Box07.In
+connect Box08.Out Box06.DicomTags
+connect Box08.Out Box07.KeyDicom
+connect Box07.Out Box09.In3
+connect Box03.OutSimple Box11.In
+connect Box11.VectorSize Box09.In5
+connect Box09.Out Box13.In
+connect Box10.Out Box09.In1
+connect Box15.Out Box10.I
+connect Box15.Out Box04.I
+connect Box13.Out Box17.In
+connect Box17.Out Box16.In
+
+# Complex input ports
+input LstPaths Box04.In " "
+input LstSimpleDirName Box10.In " "
+input idDir Box15.In " "
+
+# Complex output ports
+output OutString Box16.Out " "
+
+
+endefine