378002_zh-TW

liliconcom

如何編寫腳本以將列名（當前為日期）更改為當天？

我想要改變只是我工作表中的連續數字列，它們是當前的完整日期，從1日到31日到當天

從03/01/2020到1

2020年3月2日至2

 

我還想在工作表中添加一個列，其中包含“本月的Abbv名稱”。

 

提前致謝

數據表腳本編寫回复：如何編寫腳本以將列名（當前為日期）更改為當天？

您可以這樣做：

 

Names Default To Here( 1 );

dt = New Table( "Dates",
 New Column( "date", "Numeric", "Continuous", Format( "Date Abbrev", 20 ), set values( Date DMY( Index( 1, 31 ), 3, 2020 ) ) )
);
Wait( 3 );

dt << New Column( "Day", Formula( Day( :date ) ) );
dt:date << hide();
dt << New Column( "Month",
 Formula(
  Match( Month( :date ),
   1, "Jan",
   2, "Feb",
   3, "Mar",
   4, "Apr",
   5, "May",
   6, "Jun",
   7, "Jul",
   8, "Aug",
   9, "Sep",
   10, "Oct",
   11, "Nov",
   12, "Dec"
  )
 )
);

回复：如何編寫腳本以將列名（當前為日期）更改為當天？

這是我如何解決您的要求

Names Default To Here( 1 );
dt = Current Data Table();

theMonth=.;
For( i = 1, i <= N Cols( dt ), i++,
 If( Substr( Column( dt, i ) << get name, 1, 2 ) == "N(",
  If( isMissing(theMonth) == 1,
   theMonth = Month( Informat( Word( 2, Column( dt, i ) << get name, "()" ), "m/d/y" ) );
  );
  Column( dt, i ) << set name(
   Char( Day( Informat( Word( 2, Column( dt, i ) << get name, "()" ), "m/d/y" ) ) )
  )
 )
);

monthList = {"Jan","Feb","Mar","Apr","May","Jun",
 "Jul","Aug","Sep","Oct","Nov","Dec"
};
dt << New Column( monthList[theMonth]);