252145_zh-CN

liliconcom

如何将整个表格除以一列？

H 我是否将整个表格除以一列？

如下图所示，我想将整本圣经由放到栏中！

因此，我制作了脚本，但没有使用串联代码。

另外，如果太多，则此脚本效率很低。

我如何才能更有效地更改代码？（使用for或while？）

 

 

 

 

dt = current data table();

newdt = dt << Subset( Output Table Name( "Graph table" ), All Columns( 1 ), All Rows( 1 ) ) ;


newdt << Select Where( Contains ( :As is Config , ",")) ;

newdt2 = newdt << Subset( Output Table Name( "Subset1" ), All Columns( 1 ), Selected Rows( 1 ) ) ;


newdt << new column("new As is Config", Formula(Left( :As is Config, Contains( :As is Config, "," ) - 1 ))); 
column(newdt, "new As is Config" ) << Eval Formula; 
column(newdt, "new As is Config") << Delete Column Property( "Formula" ); 
column(newdt, "As is Config" ) << Formula(:new As is Config);
column(newdt, "As is Config" ) << Eval Formula; 
column(newdt, "As is Config") << Delete Column Property( "Formula" );  
newdt << Delete Columns( "new As is Config" ); 

 

newdt2 << new column("new As is Config", Formula(Substr(:As is Config, Contains( :As is Config, "," ) + 1, 100))); 
column(newdt2, "new As is Config" ) << Eval Formula; 
column(newdt2, "new As is Config") << Delete Column Property( "Formula" );
column(newdt2, "As is Config" ) << Formula(:new As is Config);
column(newdt2, "As is Config" ) << Eval Formula; 
column(newdt2, "As is Config") << Delete Column Property( "Formula" );  
newdt2 << Delete Columns( "new As is Config" ); 

newdt2 << Select Where( Contains ( :As is Config , ",")) ;

newdt3 = newdt2 << Subset( Output Table Name( "Subset2" ), All Columns( 1 ), Selected Rows( 1 ) ) ;



newdt2 << new column("new As is Config", Formula(Left( :As is Config, Contains( :As is Config, "," ) - 1 ))); 
column(newdt2, "new As is Config" ) << Eval Formula; 
column(newdt2, "new As is Config") << Delete Column Property( "Formula" );   
column(newdt2, "As is Config" ) << Formula(:new As is Config);
column(newdt2, "As is Config" ) << Eval Formula; 
column(newdt2, "As is Config") << Delete Column Property( "Formula" );  
newdt2 << Delete Columns( "new As is Config" ); 

 


newdt3 << new column("new As is Config", Formula(Substr(:As is Config, Contains( :As is Config, "," ) + 1, 100))); 
column(newdt3, "new As is Config" ) << Eval Formula; 
column(newdt3, "new As is Config") << Delete Column Property( "Formula" );   
column(newdt3, "As is Config" ) << Formula(:new As is Config);
column(newdt3, "As is Config" ) << Eval Formula; 
column(newdt3, "As is Config") << Delete Column Property( "Formula" ); 
newdt3 << Delete Columns( "new As is Config" ); 

newdt3 << Select Where( Contains ( :As is Config , ",")) ;

newdt4 = newdt3 << Subset( Output Table Name( "Subset3" ), All Columns( 1 ), Selected Rows( 1 ) ) ;



newdt3 << new column("new As is Config", Formula(Left( :As is Config, Contains( :As is Config, "," ) - 1 ))); 
column(newdt3, "new As is Config" ) << Eval Formula; 
column(newdt3, "new As is Config") << Delete Column Property( "Formula" ); 
column(newdt3, "As is Config" ) << Formula(:new As is Config);
column(newdt3, "As is Config" ) << Eval Formula; 
column(newdt3, "As is Config") << Delete Column Property( "Formula" );  
newdt3 << Delete Columns( "new As is Config" ); 

both = newdt << concatenate( Graph table, Subset1, Subset2, "Append to first Table"); // this code is not working...

回复：如何将整个表格除以一列？

我的第一个评论是看一下 

     文字转栏（）

函数，可以将C1，C2等值分解为自己的列。  在您处理代码时，这可能会给您带来好处。

还要看一下Word（）函数来提供帮助。

最后，以下是对您的串联代码的更改，该更改应适用于您：

both = newdt << concatenate( Data Table("Graph table"),
Data Table("Subset1"),
Data Table("Subset2"),
 Append to first Table(1));

 

回复：如何将整个表格除以一列？

哦谢谢 

我重新制作了这段代码，但无法正常工作 

问题是什么？？在这个脚本中...

 

Names Default To Here( 1 );

dt = Current Data Table();




newdt = dt << Subset( Output Table Name( "Graph table" ), All Columns( 1 ), All Rows( 1 ) );
//Graph table 


newdt << Select columns( :As is Config );

N = newdt << Subset( Output Table Name( "N" ), Selected Columns( 1 ), All Rows( 1 ) );

nColNow = N Items( n << get column names );
n << text to columns( delimiter( "," ), columns( :As is Config ) );
colAdded = N Items( n << get column names ) - nColNow;

For( i = 1, i <= colAdded, i++, 
 
 newdt[i] << Select Where( Contains( :As is Config, "," ) );
 newdt[i + 1] = newdt << Subset( Output Table Name( "Subset" ), All Columns( 1 ), Selected Rows( 1 ) );

 newdt[i] << New Column( "new As is Config",
  Formula( Left( :As is Config, Contains( :As is Config, "," ) - 1 ) )
 );
 Column( newdt[i], "new As is Config" ) << Eval Formula; //Formula 특성 계싼!!
 Column( newdt[i], "new As is Config" ) << Delete Column Property( "Formula" );  //formula 특성 지우기 
 Column( newdt[i], "As is Config" ) << Formula( :new As is Config );
 Column( newdt[i], "As is Config" ) << Eval Formula; //Formula 특성 계싼!!
 Column( newdt[i], "As is Config" ) << Delete Column Property( "Formula" );  //formula 특성 지우기
 newdt[i] << Delete Columns( "new As is Config" ); // new As is Config 삭제!!


 newdt[i + 1] << New Column( "new As is Config",
  Formula( Substr( :As is Config, Contains( :As is Config, "," ) + 1, 100 ) )
 );
 Column( newdt[i + 1], "new As is Config" ) << Eval Formula; //Formula 특성 계싼!!
 Column( newdt[i + 1], "new As is Config" ) << Delete Column Property( "Formula" );  //formula 특성 지우기 
 Column( newdt[i + 1], "As is Config" ) << Formula( :new As is Config );
 Column( newdt[i + 1], "As is Config" ) << Eval Formula; //Formula 특성 계싼!!
 Column( newdt[i + 1], "As is Config" ) << Delete Column Property( "Formula" );  //formula 특성 지우기 
 newdt[i + 1] << Delete Columns( "new As is Config" ); // new As is Config 삭제!!

 newdt[i + 1] << Select Where( Contains( :As is Config, "," ) );

 newdt[i + 2] = newdt[i + 1] << Subset(
  Output Table Name( "Subset" ),
  All Columns( 1 ),
  Selected Rows( 1 )
 );

 
 
 
 
);