339483_zh-TW

liliconcom

JSL>為文本編輯框保留默認條目：代碼改進

嗨，JMP社區，

我一直在玩一個簡短的腳本來根據開始和結束字符串自動對列進行分組。雖然在我的本地計算機上可以正常工作，但我想知道是否有更好的方法可以保留以下文本編輯框的默認條目：運行而不是將這些默認條目保存在單獨的文件中？

到目前為止，這是我的代碼：是否有任何改進建議？

Names Default to Here (1);

dt = Current Data Table ();

CList = dt << get column names (string);

GList = {};


NCol = N Items (CList);

Try (dat = open("C:\AUTODAT.JMP", Invisible), 
  
  dat = new table ("AUTODAT", Invisible,
       Add Rows (2),
       New Column ("Entries", Character, Nominal, set values ({"NEW START", "NEW END"}))
        
      );
 );     
  
DefStart = column (dat, "Entries") [1];
DefEnd = column (dat, "Entries") [2]; 

Dlg = New Window (" AUTO-GROUPING: ENTER SEARCH STRINGS", 
 
 << Modal,
 Border Box (top (15), Bottom (15), Left (40), Right (40),
  V List Box (
   Text Box ("ENTER START STRING:"),
   ST = Text Edit Box (DefStart, Set Width (200)),
   
   Spacer Box (0,25),
   
   Text Box ("ENTER END STRING:"),
   ET = Text Edit Box (DefEnd, Set Width (200)),
   
   Spacer Box (0,25),
   
   Button Box ("OK", 
    StartString = ST << Get Text ();
    EndString = ET << Get Text ()
   ),
   
   Button Box ("CANCEL", 
    Close( dat, NoSave );
    Throw (1))
  )
  
 )
);

Column (dat, "Entries")  << set values (Eval List ({StartString, EndString}));

dat << Save As ("C:\AUTODAT.JMP", 1);

Close (dat, NoSave);

Switch = ((Length (StartString) > 0) * 10) + (Length (EndString) > 0); 

For (i = 1, i <= NCol, i++,

 Match (Switch, 
   11,
   if(Starts With (CList [i], StartString) & Ends With (CList [i], EndString), 
    Insert into (GList, CList [i])),
   10,
   if(Starts With (CList [i], StartString), 
    Insert into (GList, CList [i])),
   1, 
   if(Ends With (CList [i], EndString), 
    Insert into (GList, CList [i])),
   0, Throw (1)
   ) 
 
 
);


Group = dt << Group Columns (GList);

其他腳本編寫回复：JSL>為文本編輯框保留默認條目：代碼改進

處理已保存的數據表的標準方法是將需要保存的值保存為JSL。我只是使用所需的JSL創建文本字符串以初始化值並使用Save Text File（）保存它。然後在隨後的運行中，我僅使用Include（）來初始化值。

回复：JSL>為文本編輯框保留默認條目：代碼改進吉姆，你好
始終以金錢為重。
謝謝，
TS