213048_zh-CN

liliconcom

使用 JSL 读取 CSV 和文本文件

我有一个 CSV 文件，其中包含参数名称和容差。 我有另一个包含原始数据的文本文件。 我正在尝试在 JSL 中编写一个脚本来读取 CSV 和文本文件，然后将 CSV 文件中的筛选条件应用于文本文件中的数据。

CSV 文件格式如下：

# 参数容差

1 身高30

2直径50

 

TXT 文件格式为

内径 高度 直径

1AA 50 20

1BB 20 30

我想创建一个文本文件，其 ID 不符合筛选标准。

例如，在上述情况下，1AA 未通过高度筛选，因为值 50 大于容差 30。 我想要创建一个写入 1AA 的文本文件。

任何指导都将受到高度赞赏。

 

到目前为止，我只知道如何打开 CSV 或文本文件，但无法弄清楚如何在变量中保存公差并将筛选条件应用于数据。

txt_path = Pick File( "Pick a file" );

dt_screen = Open(
 txt_path, 

 Column Names are on line( 1 ),
 End of Field( "Comma" ), 

 Data Starts on Line( 2 ),
 End Of Line( "CRLF" )
);

回复：使用 JSL 读取 CSV 和文本文件

太感谢了。 您的解决方案工作完美，正是我所需要的。 我试图在具有更多行和列的更大数据集上使用它。 希望我能够快速修改剧本。 非常感谢您的帮助。

回复：使用 JSL 读取 CSV 和文本文件

虽然已经晚了，但这就是我的想法。 吉姆听到了关于文本文件输出的部分，我错过了......

csvfile = Save Text File("$temp/x.csv",
"#     Parameter    Tolerance
1     Height           30
2     Diameter       50
"
);
 
txtfile = Save Text File("$temp/y.txt",
"ID    Height    Diameter
1AA    50          20
1BB     20         30
1cc     20         90
"
);

dtparms = Open(csvfile,
    Import Settings(
        End Of Line( CRLF, CR, LF ),
        End Of Field( Spaces, Space, CSV( 0 ) ),
        Labels( 1 ),
        Column Names Start( 1 ),
        Data Starts( 2 )
    )
);

// get the parameters
parameterNames = dtparms[0, "parameter"]; // {"Height", "Diameter"}
parameterValues = dtparms[0, "tolerance"]; // [30, 50]

dtdata = Open(txtfile,
    Import Settings(
        End Of Line( CRLF, CR, LF ),
        End Of Field( Spaces, Space, CSV( 0 ) ),
        Labels( 1 ),
        Column Names Start( 1 ),
        Data Starts( 2 )
    )
);

For( iPname = 1, iPname <= N Items( parameterNames ), iPname += 1,
    col = Column( parameterNames[iPname] ); // Column( "Diameter" )
    val = parameterValues[iPname]; // 50
    dtdata << selectwhere( dtdata:col > val, current selection( "extend" ) );
);
dtdata<<SELECT columns=""></SELECT>

回复：使用 JSL 读取 CSV 和文本文件

这是一个适用于您的示例数据的脚本，并且应该适用于您的较大数据表。

Names default to here(1);

// Open the data file
txt_path = Pick File( "Pick a Data File" );
dt_data = Open(
 txt_path,
 columns(
  New Column( "ID", Character, "Nominal" ),
  New Column( "Height", Numeric, "Continuous", Format( "Best", 12 ) ),
  New Column( "Diamiter", Numeric, "Continuous", Format( "Best", 12 ) )
 ),
 Import Settings(
  End Of Line( CRLF, CR, LF ),
  End Of Field( Tab, Comma, CSV( 1 ) ),
  Strip Quotes( 1 ),
  Use Apostrophe as Quotation Mark( 0 ),
  Use Regional Settings( 0 ),
  Scan Whole File( 1 ),
  Treat empty columns as numeric( 0 ),
  CompressNumericColumns( 0 ),
  CompressCharacterColumns( 0 ),
  CompressAllowListCheck( 0 ),
  Labels( 1 ),
  Column Names Start( 1 ),
  Data Starts( 2 ),
  Lines To Read( "All" ),
  Year Rule( "20xx" )
 )
);

// Open the Tolerance data
txt_path = Pick File( "Pick a Tolerance File" );
dt_Tolerance = Open(
 txt_path,
 Worksheets( "Sheet1" ),
 Use for all sheets( 1 ),
 Concatenate Worksheets( 0 ),
 Create Concatenation Column( 0 ),
 Worksheet Settings(
  1,
  Has Column Headers( 1 ),
  Number of Rows in Headers( 1 ),
  Headers Start on Row( 1 ),
  Data Starts on Row( 2 ),
  Data Starts on Column( 1 ),
  Data Ends on Row( 0 ),
  Data Ends on Column( 0 ),
  Replicated Spanned Rows( 1 ),
  Replicated Spanned Headers( 0 ),
  Suppress Hidden Rows( 1 ),
  Suppress Hidden Columns( 1 ),
  Suppress Empty Columns( 1 ),
  Treat as Hierarchy( 0 ),
  Multiple Series Stack( 0 ),
  Import Cell Colors( 0 ),
  Limit Column Detect( 0 ),
  Column Separator String( "-" )
 )
);

// Get the column names in the data file
colNames = dt_data << get column names(string,continuous);

// Loop across the columns and get the Tolerances and then go through all
// of the rows in the data table and select the ones that fail
For( theCol = 1, theCol <= N Items(colNames), theCol++,
 theToleranceRow = dt_Tolerance << get rows where( colNames[theCol] == dt_Tolerance:Parameter);
 If( N Rows( theToleranceRow ) >0,
  // Change theToleranceRow from a matrix to a scaler value
  theToleranceRow = theToleranceRow[1];
  For(theRow = 1, theRow <= N Rows( dt_data ), theRow++,
   If( column(dt_data,colNames[theCol])[theRow] > dt_Tolerance:Tolerance[theToleranceRow],
    current data table(dt_data);
    Row State( theRow ) = Selected State( 1 );
   )
  )
 )
);

// Create the text string to save to the text file for all failing IDs
failedRows = dt_data<<GET selected="" rows=""> 0,
 failedText = dt_data:ID[failedRows[1]];
 For( selectedRow = 2, selectedRow <= N Rows(failedRows), selectedRow++,
  failedText = failedText || "\!n" || dt_data:ID[failedRows[selectedRow]]
 )
);

// Save the failed text string to a file
Save Text File( "path\to\failed.txt", failedText );</GET>