Report per Skript - Dauer bei vielen Seiten

[variocrew]

Hallo zusammen,

ich arbeite an einem DIAdem-Skript, mit dem Events in einer Messdatei ausgewertet werden und jedes Event im Report als einzelne Seite dargestellt wird. Dafür gibt es in der Reportvorlage ein "Musterblatt" mit vier leeren Diagrammen. Das Musterblatt wird im Skript für jedes Event kopiert die Diagramme werden für die Kopie befüllt. Anschließend wird das Reportblatt automatisch umbenannt und das Musterblatt wird für das nächste Event kopiert, usw. Es mehrere hundert Events (idR 1000) in einer Messdatei, entsprechend werden 1000 Reportseiten erstellt. Das Problem ist hierbei, dass die Ausführung des Skriptes durch die Erstellung der 1000 Seiten sehr lange dauert (rund 1,5 Stunden). Gibt es eine Möglichkeit, die Reporterstellung zeiteffizienter zu gestalten oder ist es nun mal so aufwendig, die 1000 Seiten in DIAdem zu kompilieren? 

Vielen Dank im Voraus

[Walter_Rick]

Hi variocrew,

I have created a small test script (see below, tested with DIAdem 2021 SP1). This takes about 170 s this is less than 3 minutes. So, the question is, what takes so much time.

One option is to analyze the script by using the Script Profiler.

How many memory does your PC have?

dim iLoop, iNo

iNo = 1000

call StopWatchReset(1)
call Report.LoadLayout("d:\Test\Test.TDR")
for iLoop = 1 to iNo
  call Report.AppendLayout("d:\Test\Test.TDR")
  Report.Sheets(Report.Sheets.Count).Name = "Test_" & str(iLoop)
next
Report.Refresh
LogfileWrite StopWatch(1)
msgbox StopWatch(1)

Greetings

Walter