回复：Durée也許是這樣的：
For(k=1, k<=6, k++,
StartValue = Column(k+2)[1];
For(i=1, i<=6, i++,
If(num(Column(i+8)[1])>StartValue,break())
);
If(i<7, Write(Column("Date début "||(Column(i+8)<<GET name=""></GET>回复：持續時間感謝你的回复@保丁但這是一個測試數據庫，這個腳本應該適用於超過 700 列。
回复：Durée有點懶惰的解決方案，但它可能有效
Names Default To Here(1);
dt = Open("$DOWNLOADS/AAAA.jmp");
// would get only numeric columns, but the provided example table is broken...
all_cols = dt << Get Column Names(/*Numeric, */"String");
// so first we have to fix the datatable
Remove From(all_cols, 1, 2);
For Each({col_name}, all_cols,
Column(dt, col_name) << Set Data Type("Numeric");
Column(dt, col_name) << Set Modeling Type("Continuous");
);
// create list of duration columns
// same amount of columns AND in same order for "number" and duration
date_cols = {};
some_cols = {};
For Each({col_name}, all_cols,
If(Starts With(lowercase(col_name), "date d"),
Insert Into(date_cols, col_name);
, !IsMissing(Regex(col_name, "^\d+$")),
Insert Into(some_cols, col_name);
,
show(col_name);
);
);
If(N Items(date_cols) != N Items(some_cols),
Throw("Column mismatch");
);
// create new columns
dur_cols = {};
For Each({some_col}, some_cols,
new_col = dt << New Column("duration " || some_col, Numeric, Continuous);
Insert Into(dur_cols, new_col << get name);
);
// calculation
For Each Row(
For Each({date_col, idx}, date_cols,
datesomething = dt[Row(), some_cols[idx]];
datesomethingvals = dt[Row(), some_cols];
// to make comparison easier
datesomethingvals[idx] = .;
datesomethingvals[Loc(datesomethingvals < datesomething)] = .; // lazy handling
idx_of_interest = Loc Min(Abs(datesomethingvals - datesomething));
If(idx_of_interest == 0,
continue();
);
val_of_interest = dt[Row(), date_cols[idx_of_interest]];
dt[Row(), dur_cols[idx]] = Abs(val_of_interest - dt[Row(), date_col]); // not sure if Abs is correct here
);
);
// durations for 900 and 4500 for some reason missing from demo data回复：持續時間感謝你的回复@jthi ！
期間
大家好，
我有如下數據庫，
在漫畫中，綠色單元格是我們想要獲得的結果。
我想創建一個腳本來計算持續時間。
我有“開始日期”列，然後有一個“數字”列，表示執行順序。
目標是根據數字計算“開始日期 y - 開始日期 x”。
我用漫畫的例子來解釋自己：
第一行：我們注意到列“720”在單元格中有數字 12，因此我們在所有“數字”列中查找第一個大於 12 的列（這裡列“740”的值為 21）
因此持續時間 720 將是持續時間 720 = 開始日期 740 - 開始日期 720。
然後對於持續時間 740 它將是持續時間 740 = 開始日期 9801 - 開始日期 740 具有相同的原則
這是我開始寫的腳本：
dt = Current Data Table();
dur_cols = Filter Each( {col_name}, dt << Get Column Names( "String", Continuous ),
Starts With( col_name, "Date début" )
);
num_colnr = Transform Each( {col_name}, dur_cols, Word( -1, col_name ) );
char_cols = dt << Get Column Names ("string", Character);
wait(1);
N_taches = N Items(dur_cols);
for (i = 1, i <= N_taches, i++,
Eval(
Eval Expr(
col = dt << New Column ( "durée" || num_colnr[i], Numeric, "Continuous", Format(":jou:hh:m",8));
col << Formula(
colidx = Loc(dt[row(), char_cols] > Eval(num_colnr[i]))[1];
If ( N Items(colidx) > 0,
val = dur_cols[colidx] - Eval(dur_cols[i]);
If(IsMissing(val),
0
,
val
);
,
0
);
);
)));感謝您的幫助 ！
消費者和市場研究質量與工藝工程回复：Durée所以？ 只需增加 For 循環計數。 或者通過包含 N cols() 作為上限使其動態化。
如果您已經解決了這個問題，請將此主題標記為已解決好嗎？
