218937_de-DE

liliconcom

So aktualisieren Sie mehrere Substitutionen, um Ns zum GraphBuilder-Skript hinzuzufügen: Skript enthalten

Hallo Team,

Ich möchte das folgende Skript ändern, um Ns zum GraphBuilder hinzuzufügen, indem die Platzhalter "_text0_" bis "_text5_" ersetzt werden.

Ich weiß, wie man eine einzelne Ersetzung für den Platzhalter "_Yname_" implementiert, aber ich stoße auf eine mentale Blockade, um eine mehrfache Ersetzung herauszufinden.

Außerdem weiß ich nicht, wie ich eine Spaltenstatistik aufrufen soll, um die Ns für jede Überlagerung auf den Diagrammen dynamisch zu generieren (siehe Bild unten im Skript).

 

Names Default to Here (1);

dt = Current Data Table ();

Clist = dt << Get Column Names (String);

For (i = 932, i<= 935, i++, 
  
  gb = Expr ( Graph Builder(
      Size( 789, 440 ),
      Variables(
       X( :Visit ),
       Y( column (i) ),
       Group X( :LEAD TAG ),
       Overlay( :SHORT TAG )
      ),
      Elements( Line( X, Y, Legend( 7 ), Error Bars( "Standard Error" ) ) ),
      SendToReport(
       Dispatch(
        {},
        _Yname_,
        ScaleBox,
        {Format( "Best", 12 ), Min( -1.8 ), Max( 1.0 ),
        Inc( 0.2 ), Minor Ticks( 1 ),
        Add Ref Line( 0, "Dotted", "Black", "", 2 )}
       ),
       Dispatch(
        {},
        "Graph Builder",
        FrameBox,
        {Add Graphics Script(
         2,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.6}, "_text0_" )
        ), Add Graphics Script(
         3,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.75}, "_text1_" )
        ), Grid Line Order( 5 ), Reference Line Order( 6 )}
       ),
       Dispatch(
        {},
        "Graph Builder",
        FrameBox( 2 ),
        {Left( 1 ), Right( 0 ), Top( 0 ), Bottom( 1 ),
        Add Graphics Script(
         2,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.75}, "_text3_" )
        ), Add Graphics Script(
         3,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.6}, "_text2_" )
        ), Grid Line Order( 5 ), Reference Line Order( 6 )}
       ),
       Dispatch(
        {},
        "Graph Builder",
        FrameBox( 3 ),
        {Left( 1 ), Right( 1 ), Top( 0 ), Bottom( 1 ),
        Add Graphics Script(
         2,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.6}, "_text4_" )
        ), Add Graphics Script(
         3,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.75}, "_text5_" )
        ), Grid Line Order( 5 ), Reference Line Order( 6 )}
       )
      )
     )
   ); 
  gbe = Eval (substitute(Name Expr (gb), Expr (_Yname_), Clist [i]));
  
  gbe << journal;
  gbe << close window;
);

Betreff: So aktualisieren Sie mehrere Substitutionen, um Ns zum GraphBuilder-Skript hinzuzufügen: Skript enthalten

Hallo Txnelson,

 

Vielen Dank für Ihre Hilfe. Wie Sie vorhergesagt haben, war das Skript zu 99 % da. Ich musste nur ein paar Aufrufe zur Haupttabelle (dt) hinzufügen, wie unten gezeigt.

 

For (i = 932, i<= 1115, i++, 
  
  try( close( dtSum, nosave ) );
  dtSum = <FONT color="#FF0000">dt</FONT> << Summary(invisible,
   Group( :LEAD TAG, :SHORT TAG ),
   N( as column( Clist[i] ) ),
   Freq( "None" ),
   Weight( "None" ),
   statistics column name format( "column" )
      
 );
  
    
  gb = Expr ( <FONT color="#FF0000">dt</FONT> << Graph Builder(
       Size( 789, 440 ),
       Variables(
        X( :Visit ),
        Y( column (i) ),
        Group X( :LEAD TAG ),
        Overlay( :SHORT TAG )
       ),
       Elements( Line( X, Y, Legend( 7 ), Error Bars( "Standard Error" ) ) ),
       SendToReport(
        Dispatch(
         {},
         _Yname_,
         ScaleBox,
         {Format( "Best", 12 ), Min( -1.8 ), Max( 1.0 ),
         Inc( 0.2 ), Minor Ticks( 1 ),
         Add Ref Line( 0, "Dotted", "Black", "", 2 )}
        ),
        Dispatch(
         {},
         "Graph Builder",
         FrameBox,
         {Add Graphics Script(
          2,
          Description( "Script" ),
          Text( Center Justified, {0.5, -1.6}, _text0_ )
         ), Add Graphics Script(
          3,
          Description( "Script" ),
          Text( Center Justified, {0.5, -1.75}, _text1_ )
         ), Grid Line Order( 5 ), Reference Line Order( 6 )}
        ),
        Dispatch(
         {},
         "Graph Builder",
         FrameBox( 2 ),
         {Left( 1 ), Right( 0 ), Top( 0 ), Bottom( 1 ),
         Add Graphics Script(
          2,
          Description( "Script" ),
          Text( Center Justified, {0.5, -1.75}, _text3_ )
         ), Add Graphics Script(
          3,
          Description( "Script" ),
          Text( Center Justified, {0.5, -1.6}, _text2_ )
         ), Grid Line Order( 5 ), Reference Line Order( 6 )}
        ),
        Dispatch(
         {},
         "Graph Builder",
         FrameBox( 3 ),
         {Left( 1 ), Right( 1 ), Top( 0 ), Bottom( 1 ),
         Add Graphics Script(
          2,
          Description( "Script" ),
          Text( Center Justified, {0.5, -1.6}, _text4_ )
         ), Add Graphics Script(
          3,
          Description( "Script" ),
          Text( Center Justified, {0.5, -1.75}, _text5_ )
         ), Grid Line Order( 5 ), Reference Line Order( 6 )}
        )
       )
      )
   ); 
  gbe = Eval (substitute(Name Expr (gb), Expr (_Yname_), Clist [i],
   Expr ( _text0_ ), char( column( dtSum, Clist[i] )[1] ),
   Expr ( _text1_ ), char( column( dtSum, Clist[i] )[2] ),
   Expr ( _text2_ ), char( column( dtSum, Clist[i] )[3] ),
   Expr ( _text3_ ), char( column( dtSum, Clist[i] )[4] ),
   Expr ( _text4_ ), char( column( dtSum, Clist[i] )[5] ),
   Expr ( _text5_ ), char( column( dtSum, Clist[i] )[6] )
  ));
  
  gbe << journal;
  gbe << close window;
    
);

Betreff: So aktualisieren Sie mehrere Substitutionen, um Ns zum GraphBuilder-Skript hinzuzufügen: Skript enthalten

Sie können mehrere Ersetzungen mit einem einzigen Aufruf der Funktion Substitute() durchführen.

gbe = Eval(
 Substitute( Name Expr( gb ),
  Expr( _Yname_ ), Clist[i],
  Expr( "_text0_"), "actual text",
...
 )
);

Betreff: So aktualisieren Sie mehrere Substitutionen, um Ns zum GraphBuilder-Skript hinzuzufügen: Skript enthalten

Hier ist eine Möglichkeit, dies zu tun.Ich kann nicht garantieren, dass der Code beim ersten Versuch funktioniert, da es sich um ungetesteten Code handelt, da ich keine Beispieldatentabelle habe.Es sollte jedoch ziemlich nah sein.

Names Default to Here (1);

dt = Current Data Table ();

Clist = dt << Get Column Names (String);

For (i = 932, i<= 935, i++, 

 try( close( dtsum, nosave ) );
 dtSum = << Summary(invisible,
  Group( :LEAD TAG, :SHORT TAG ),
  N( as column( Clist[i] ) ),
  Freq( "None" ),
  Weight( "None" ),
  statistics column name format( "column" ),
  Link to original data table( 0 )
 );
  
  gb = Expr ( dt << Graph Builder(
      Size( 789, 440 ),
      Variables(
       X( :Visit ),
       Y( column (i) ),
       Group X( :LEAD TAG ),
       Overlay( :SHORT TAG )
      ),
      Elements( Line( X, Y, Legend( 7 ), Error Bars( "Standard Error" ) ) ),
      SendToReport(
       Dispatch(
        {},
        _Yname_,
        ScaleBox,
        {Format( "Best", 12 ), Min( -1.8 ), Max( 1.0 ),
        Inc( 0.2 ), Minor Ticks( 1 ),
        Add Ref Line( 0, "Dotted", "Black", "", 2 )}
       ),
       Dispatch(
        {},
        "Graph Builder",
        FrameBox,
        {Add Graphics Script(
         2,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.6}, _text0_ )
        ), Add Graphics Script(
         3,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.75}, _text1_ )
        ), Grid Line Order( 5 ), Reference Line Order( 6 )}
       ),
       Dispatch(
        {},
        "Graph Builder",
        FrameBox( 2 ),
        {Left( 1 ), Right( 0 ), Top( 0 ), Bottom( 1 ),
        Add Graphics Script(
         2,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.75}, _text3_ )
        ), Add Graphics Script(
         3,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.6}, _text2_ )
        ), Grid Line Order( 5 ), Reference Line Order( 6 )}
       ),
       Dispatch(
        {},
        "Graph Builder",
        FrameBox( 3 ),
        {Left( 1 ), Right( 1 ), Top( 0 ), Bottom( 1 ),
        Add Graphics Script(
         2,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.6}, _text4_ )
        ), Add Graphics Script(
         3,
         Description( "Script" ),
         Text( Center Justified, {0.5, -1.75}, _text5_ )
        ), Grid Line Order( 5 ), Reference Line Order( 6 )}
       )
      )
     )
   ); 
  gbe = Eval (substitute(Name Expr (gb), Expr (_Yname_), Clist [i],
   Expr ( _text0_ ), char( column( dtSum, Clist[i] )[1] ),
   Expr ( _text1_ ), char( column( dtSum, Clist[i] )[2] ),
   Expr ( _text2_ ), char( column( dtSum, Clist[i] )[3] ),
   Expr ( _text3_ ), char( column( dtSum, Clist[i] )[4] ),
   Expr ( _text4_ ), char( column( dtSum, Clist[i] )[5] ),
   Expr ( _text5_ ), char( column( dtSum, Clist[i] )[6] )
  ));
  
  gbe << journal;
  gbe << close window;