我對 JSL 相當陌生，並且對編碼有非常基本的了解，因此我可能不知道描述我的問題的所有正確術語，所以我提前道歉。
我想自動化我經常執行的一個流程，其中我會組合和轉換兩個資料表。我已經有一個可以執行此操作的腳本，但我正在嘗試找出如何擁有 JMP 引用列，而不是對它們進行硬編碼，因為列引用可能會更改。例如，這是程式碼的一部分，它已經完成了我想要的操作，但是是硬編碼的：
(Data Table( baselined_dt ) <<
Join(
With( Data Table( main_dt ) ),
Select( :SampleId, :ReplicateId ),
SelectWith(
dlg["data_list"], :ReplicateId // Lets user select columns//
),
Select(
:Dye, :Type, :"1"n, :"2"n, :"3"n, :"4"n, :"5"n, :"6"n, :"7"n, :"8"n, :"9"n,
:"10"n, :"11"n, :"12"n, :"13"n, :"14"n, :"15"n, :"16"n, :"17"n, :"18"n,
:"19"n, :"20"n, :"21"n, :"22"n, :"23"n, :"24"n, :"25"n, :"26"n, :"27"n,
:"28"n, :"29"n, :"30"n, :"31"n, :"32"n, :"33"n, :"34"n, :"35"n, :"36"n,
:"37"n, :"38"n, :"39"n, :"40"n, :"41"n, :"42"n, :"43"n, :"44"n, :"45"n
),
By Matching Columns( :ReplicateId = :ReplicateId ),
Drop multiples( 0, 0 ),
Include Nonmatches( 0, 0 ),
Preserve main table order( 1 )
)) << Set Name( "Joined Data Table" );
問題是 :"#"n 的數量並不總是 1-45，有時可能是 1-40。現在，如果是這種情況，我只需刪除程式碼中的 41-45，但我想要一種方法來自動執行此操作，這樣我就不必每次都更改程式碼。我已經能夠創建包含 {"1"n、"2"n、"3"n 等} 的列表，或包含 {":1"、":2"、":3"、等}，但我不確定我想做的事情是否需要這樣做。
本質上，我有限的程式碼知識認為「Join」函數中的 For 循環可以完成此任務，但我還沒有找到使其工作的方法。我什至不知道“Join”函數中是否可以使用 For 循環。我的思考過程的解決方案看起來像這樣：
cycle_list = {};
For( i = 1, i <= N Items(cycle_num), i++,
y1 = cycle_num[i];
y2 = (":" || y1);
InsertInto(cycle_list, y2)
);
(Data Table( baselined_dt ) <<
Join(
With( Data Table( main_dt ) ),
Select( :SampleId, :ReplicateId ),
SelectWith(
dlg["data_list"], :ReplicateId // Lets user select columns//
),
Select(
:Dye, :Type,
For( i = 1, i <= N Items( cycle_list ), i++,
cycle_list[i];
);
),
By Matching Columns( :ReplicateId = :ReplicateId ),
Drop multiples( 0, 0 ),
Include Nonmatches( 0, 0 ),
Preserve main table order( 1 )
)) << Set Name( "Joined Data Table" );如果在論壇或腳本索引中的某處有對此的引用，我要么找不到關於它的類似討論，要么我可能只是不知道如何正確地表達我想要做的事情。
通常在這種情況下，如果您有列列表，則可以使用 Eval()
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Trial1.jmp");
dt2 = Open("$SAMPLE_DATA/Little.jmp");
collist = {:popcorn, :oil amt, :batch, :yield};
dt_joined = dt << Join(
With(dt2),
Select(Eval(collist)),
SelectWith(:yield),
By Matching Columns(:popcorn = :popcorn, :batch = :batch, :oil amt = :oil),
Output Table("Join table")
);
如果您將列作為字串，它也將起作用（這就是我這樣做的方式）
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Trial1.jmp");
dt2 = Open("$SAMPLE_DATA/Little.jmp");
collist = {"popcorn", "oil amt", "batch", "yield"};
dt_joined = dt << Join(
With(dt2),
Select(Eval(collist)),
SelectWith(:yield),
By Matching Columns(:popcorn = :popcorn, :batch = :batch, :oil amt = :oil),
Output Table("Join table")
);
或透過Name Expr() - 這是 kind 或 sqrt( Eval() )
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Trial1.jmp");
dt2 = Open("$SAMPLE_DATA/Little.jmp");
collist = {"popcorn", "oil amt", "batch", "yield"};
dt_joined = dt << Join(
With(dt2),
Select(Name Expr(collist)),
SelectWith(:yield),
By Matching Columns(:popcorn = :popcorn, :batch = :batch, :oil amt = :oil),
Output Table("Join table")
);
嗯，甚至Print(collist); collist有效...並且 collist 被印出來。所以，似乎這個參數得到了評估。
dt_joined = dt << Join(
With(dt2),
Select(Print(collist);collist),
SelectWith(:yield),
By Matching Columns(:popcorn = :popcorn, :batch = :batch, :oil amt = :oil),
Output Table("Join table")
);
我不知道 Eval 指令。由於我將列作為列表中的字串，我只是像您一樣添加了 Eval(cycle_num) 並且它有效！我使解決方案過於複雜化了。十分感謝你的幫助！
