3列のテーブルがあるとしましょう（以下の例）。 3つの列すべてを含む「都市コード」列によってテーブルのサブセットを作成します。
| 都市コード | 登録番号 | 登録日 |
| 032 | 0320537648 | 20201026 |
| 160 | 1600084082 | 20201020 |
| 281 | 2821162566 | 20201020 |
| 325 | 3250488500 | 20201024 |
| 420 | 4200618843 | 20201101 |
| 511 | 5110680174 | 20201027 |
| 720 | 7200054737 | 20200825 |
次のように、サブセットファイルのみをテキストファイルとして保存したいと思います。citycodevalue.txt
フォーラムで次のjslスクリプトを見つけました。これは、ファイルをテキストファイルとして保存するのに非常に役立ちました。 問題は、ファイルが都市コード= value.txtとして保存されることです。
メインデータテーブルにもテキストファイルが保存されていますが、これは不要です。
//Save as txt file
openDTs = {};
For( i = 1, i <= N Table(), i++,
Insert Into( openDTs, Data Table( i ) )
);
For( i = 1, i <= N Items( openDTs ), i++,
one_name = openDTS[i] << get name;
file_path = one_name || ".txt";
openDTS[i] << Save(file_path);
);
私はJMPとスクリプトの両方に慣れていないので、どんなアイデアでも大歓迎です。
以下は、提供したサンプルデータテーブルを作成するスクリプトです。次に、サブセットを作成し、各サブセットを.txtファイルとして保存します。
この例を実行するために必要なのは、コード行を変更することだけです。
saveFolder = "C:\xxxxxxxxxxxxx\";
ファイルを保存するフォルダへの実際のパスを指定して、コードを実行します
Names Default To Here( 1 );
// Create the example data table
New Table( "Example",
Add Rows( 7 ),
New Column( "City code", Numeric, "Continuous", Format( "Best", 12 ), Set Selected, Set Values( [32, 160, 281, 325, 420, 511, 720] ) ),
New Column( "Registration Number",
Numeric,
"Continuous",
Format( "Best", 12 ),
Set Values( [320537648, 1600084082, 2821162566, 3250488500, 4200618843, 5110680174, 7200054737] )
),
New Column( "Registration Date",
Numeric,
"Continuous",
Format( "Best", 12 ),
Set Values( [20201026, 20201020, 20201020, 20201024, 20201101, 20201027, 20200825] )
)
);
// Here is the real code.....just change the saveFolder = to the actual folder you want to
// save the files to
dt = Current Data Table();
// Create the subsets
dtSub = dt << Subset( By( :City code ),
All rows, Selected columns only( 0 ),
columns( :Registration Number, :Registration Date ) );
saveFolder = "C:\xxxxxxxxxxxxx\";
For( i = 1, i <= N Items( dtSub ), i++,
// Given the structure of the data tables created with a Subset using a By() clause
// City Code = 32
// the Word() function retuns the "32" and it is added as the name of the file to save
dtSub[i] << Save( saveFolder || Word( -1, dtSub[i] << get name, "=" ) || ".txt" )
);
@txnelsonどうもありがとうございます！ チャームのように働いた。
