60824_ko-KR

liliconcom

텍스트 편집 상자와 숫자 편집 상자가 있는 콤보 상자에서 데이터를 가져오는 방법은 무엇입니까?

안녕 모두,

 

현재 사용자 입력을 기반으로 데이터 테이블에 열을 만드는 스크립트를 만들려고 합니다. 먼저 사용자에게 열 이름을 요청한 다음 사용자 입력에 따라 열의 이름을 다른 문자로 구문 분석합니다. 콤보 상자에서 선택한 옵션이 7개 미만인 경우 평가 가져오기에 문제가 있습니다. 현재 삭제된 상자는 '접착제'로 평가할 수 없다는 오류가 발생합니다. 이 문제를 해결할 방법이 있습니까? try 함수를 사용해 보았는데 이상한 값이 나왔습니다.

 

감사해요,

앤디

 

clearlog();

dt = Current Data Table();
nc = ncol(dt);

New Window("SID parser",
 H List Box("Main Box",
  V List Box("VLISTBOXcolumn names",
   PanelBox("Select Column",
    colListData=ColListBox(All,nLines(min(nc,10)))
   ), //end panel box
  ), // end VLISTBOXcolumn names
  V List Box("VLISTBOXDIGITS",
   Text Box("Select Number of Columns"),
   x = Combo Box( {"1", "2","3","4","5","6","7"},
    << set function( Function( {this},
    value = this << get;
    If(
     value == 1,
     Try( (this << sib) << deletebox ); // delete what might already exist
     this << sibappend( 
      V List Box( 
       H List Box(
        Text Box("Number of Characters"),
        y = Number Edit Box(2,4),
        Text Box("Column Name"),
        z = Text Edit Box("Protocol"),
        z << set width(100),
       ) // end 1st column HLISTBOX
      ) 
     ), 
     
     value == 2,
     Try( (this << sib) << deletebox ); // delete what might already exist
     this << sibappend( // add new box
      V List Box( 
       H List Box(
        Text Box("Number of Characters"),
        y = Number Edit Box(2,4),
        Text Box("Column Name"),
        z = Text Edit Box("Protocol"),
        z << set width(100),
        ), // end 1st column HLISTBOX
       H List Box(
        Text Box("Number of Characters"),
        y2 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z2 = Text Edit Box("Optional"),
        z2 << set width(100),
       ) // end 2nd column h list box
      ) //end VLISTBOX
     ), // end sib append
     
     value == 3,
     Try( (this << sib) << deletebox ); // delete what might already exist
     this << sibappend( // add new box
      V List Box( 
       H List Box(
        Text Box("Number of Characters"),
        y = Number Edit Box(2,4),
        Text Box("Column Name"),
        z = Text Edit Box("Protocol"),
        z << set width(100),
        ), // end 1st column HLISTBOX
       H List Box(
        Text Box("Number of Characters"),
        y2 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z2 = Text Edit Box("Optional"),
        z2 << set width(100),
       ), // end 2nd column h list box
       H List Box(
        Text Box("Number of Characters"),
        y3 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z3 = Text Edit Box("Tube Type"),
        z3 << set width(100),
       ), // end 3rd column h list box
      ) //end VLISTBOX
     ), // end sib append
     
     value == 4,
     Try( (this << sib) << deletebox ); // delete what might already exist
     this << sibappend( // add new box
      V List Box( 
       H List Box(
        Text Box("Number of Characters"),
        y = Number Edit Box(2,4),
        Text Box("Column Name"),
        z = Text Edit Box("Protocol"),
        z << set width(100),
        ), // end 1st column HLISTBOX
       H List Box(
        Text Box("Number of Characters"),
        y2 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z2 = Text Edit Box("Optional"),
        z2 << set width(100),
       ), // end 2nd column h list box
       H List Box(
        Text Box("Number of Characters"),
        y3 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z3 = Text Edit Box("Tube Type"),
        z3 << set width(100),
       ), // end 3rd column h list box
       H List Box(
        Text Box("Number of Characters"),
        y4 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z4 = Text Edit Box("Sample Number"),
        z4 << set width(100),
       ), // end 4th column h list box
      ), //end VLISTBOX
     ), // end sib append
     
     value == 5,
     Try( (this << sib) << deletebox ); // delete what might already exist
     this << sibappend( // add new box
      V List Box( 
       H List Box(
        Text Box("Number of Characters"),
        y = Number Edit Box(2,4),
        Text Box("Column Name"),
        z = Text Edit Box("Protocol"),
        z << set width(100),
        ), // end 1st column HLISTBOX
       H List Box(
        Text Box("Number of Characters"),
        y2 = Number Edit Box(1,4),
        Text Box("Column Name"),
        z2 = Text Edit Box("Optional"),
        z2 << set width(100),
       ), // end 2nd column h list box
       H List Box(
        Text Box("Number of Characters"),
        y3 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z3 = Text Edit Box("Tube Type"),
        z3 << set width(100),
       ), // end 3rd column h list box
       H List Box(
        Text Box("Number of Characters"),
        y4 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z4 = Text Edit Box("Sample Number"),
        z4 << set width(100),
       ), // end 4th column h list box
       H List Box(
        Text Box("Number of Characters"),
        y5 = Number Edit Box(1,4),
        Text Box("Column Name"),
        z5 = Text Edit Box("Analyte Level"),
        z5 << set width(100),
       ), // end 5th column h list box
      ), //end VLISTBOX
     ), // end sib append
     
     value == 6,
     Try( (this << sib) << deletebox ); // delete what might already exist
     this << sibappend( // add new box
      V List Box( 
       H List Box(
        Text Box("Number of Characters"),
        y = Number Edit Box(2,4),
        Text Box("Column Name"),
        z = Text Edit Box("Protocol"),
        z << set width(100),
        ), // end 1st column HLISTBOX
       H List Box(
        Text Box("Number of Characters"),
        y2 = Number Edit Box(1,4),
        Text Box("Column Name"),
        z2 = Text Edit Box("Optional"),
        z2 << set width(100),
       ), // end 2nd column h list box
       H List Box(
        Text Box("Number of Characters"),
        y3 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z3 = Text Edit Box("Tube Type"),
        z3 << set width(100),
       ), // end 3rd column h list box
       H List Box(
        Text Box("Number of Characters"),
        y4 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z4 = Text Edit Box("Sample Number"),
        z4 << set width(100),
       ), // end 4th column h list box
       H List Box(
        Text Box("Number of Characters"),
        y5 = Number Edit Box(1,4),
        Text Box("Column Name"),
        z5 = Text Edit Box("Analyte Level"),
        z5 << set width(100),
       ), // end 5th column h list box
       H List Box(
        Text Box("Number of Characters"),
        y6 = Number Edit Box(1,4),
        Text Box("Column Name"),
        z6 = Text Edit Box("Run"),
        z6 << set width(100),
       ), // end 6th column h list box
      ), //end VLISTBOX
     ), // end sib append
     
     value == 7,
     Try( (this << sib) << deletebox ); // delete what might already exist
     this << sibappend( // add new box
      V List Box( 
       H List Box(
        Text Box("Number of Characters"),
        y = Number Edit Box(2,4),
        Text Box("Column Name"),
        z = Text Edit Box("Protocol"),
        z << set width(100),
        ), // end 1st column HLISTBOX
       H List Box(
        Text Box("Number of Characters"),
        y2 = Number Edit Box(1,4),
        Text Box("Column Name"),
        z2 = Text Edit Box("Optional"),
        z2 << set width(100),
       ), // end 2nd column h list box
       H List Box(
        Text Box("Number of Characters"),
        y3 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z3 = Text Edit Box("Tube Type"),
        z3 << set width(100),
       ), // end 3rd column h list box
       H List Box(
        Text Box("Number of Characters"),
        y4 = Number Edit Box(3,4),
        Text Box("Column Name"),
        z4 = Text Edit Box("Sample Number"),
        z4 << set width(100),
       ), // end 4th column h list box
       H List Box(
        Text Box("Number of Characters"),
        y5 = Number Edit Box(1,4),
        Text Box("Column Name"),
        z5 = Text Edit Box("Analyte Level"),
        z5 << set width(100),
       ), // end 5th column h list box
       H List Box(
        Text Box("Number of Characters"),
        y6 = Number Edit Box(1,4),
        Text Box("Column Name"),
        z6 = Text Edit Box("Run"),
        z6 << set width(100),
       ), // end 6th column h list box
       H List Box(
        Text Box("Number of Characters"),
        y7 = Number Edit Box(1,4),
        Text Box("Column Name"),
        z7 = Text Edit Box("extra"),
        z7 << set width(100),
       ), // end 7th column h list box
      ), //end VLISTBOX
     ); // end sib append
     
    ); // end if statement
   )) //end function

    ), //end combo box
  V List Box( 
   H List Box(
    Text Box("Number of Characters"),
    y = Number Edit Box(2,4),
    Text Box("Column Name"),
    z = Text Edit Box("Protocol"),
    z << set width(100),
   ) // end 1st column HLISTBOX
  ); // since 1 is selected by default, put the box here initially
 ), //end VLISTBOXDIGITS
 ), // end HLISTBOX Main Box
 H List Box("OK and Cancel",
  Button Box("OK",
   Print( "Pressed OK");
   SelectedColumn = colListData << getSelected;
   
   firstdigit = y << get();
   seconddigit = y2  << get();
   thirddigit = y3  << get();
   fourthdigit = y4  << get();
   fifthdigit = y5  << get();
   sixthdigit = y6  << get();
   seventhdigit = y7  << get();
   
   
   firstColumnName = z  << getText();
   secondColumnName =  z2  << getText();
   thirdColumnName =  z3  << getText();
   fourthColumnName = z4  << getText();
   fifthColumnName =  z5  << getText();
   sixthColumnName = z6  << getText();
   seventhColumnName = z7  << getText();
      
   currentwindow() << closewindow()
   
  ), // end Button Box OK
  Button Box("Cancel", currentwindow() << closewindow())
 ), // end Button Box Cancel
); //end SID parser dialog box

try( dt << Delete Column( ascolumn(firstColumnName)) );
dt << new column(firstColumnName, character, nominal,
 Formula(substr(ascolumn(SelectedColumn),0,firstdigit),empty())
);

try( dt << Delete Column( ascolumn(secondColumnName)) );
dt << new column(secondColumnName, character, nominal,
 Formula(substr(ascolumn(SelectedColumn),Add(firstdigit,1),seconddigit),empty())
);

try( dt << Delete Column( ascolumn(thirdColumnName)) );
dt << new column(thirdColumnName, character, nominal,
 Formula(substr(ascolumn(SelectedColumn),Add(firstdigit,seconddigit,1),thirddigit),empty())
);

try( dt << Delete Column( ascolumn(fourthColumnName)) );
dt << new column(fourthColumnName, character, nominal,
 Formula(substr(ascolumn(SelectedColumn),Add(firstdigit,seconddigit,thirddigit,1),fourthdigit),empty())
);

try( dt << Delete Column( ascolumn(fifthColumnName)) );
dt << new column(fifthColumnName, character, nominal,
 Formula(substr(ascolumn(SelectedColumn),Add(firstdigit,seconddigit,thirddigit,fourthdigit,1),fifthdigit),empty())
);

try( dt << Delete Column( ascolumn(sixthColumnName)) );
dt << new column(sixthColumnName, character, nominal,
 Formula(substr(ascolumn(SelectedColumn),Add(firstdigit,seconddigit,thirddigit,fourthdigit,fifthdigit,1),sixthdigit),empty())
);

try( dt << Delete Column( ascolumn(seventhColumnName)) );
dt << new column(seventhColumnName, character, nominal,
 Formula(substr(ascolumn(SelectedColumn),Add(firstdigit,seconddigit,thirddigit,fourthdigit,fifthdigit,sixthdigit,1),seventhdigit),empty())

 

 

Re: 텍스트 입력란과 숫자 입력란이 있는 콤보 상자에서 데이터를 가져오는 방법은 무엇입니까?감사합니다. 많은 도움이 됩니다!Re: 텍스트 입력란과 숫자 입력란이 있는 콤보 상자에서 데이터를 가져오는 방법은 무엇입니까?

스크립트의 두 번째 문제는 대화 상자 창이 모달이 아니라는 것입니다. 즉, 새 창 이후의 JSL은 확인을 기다리지 않습니다.

 

디스플레이를 동적으로 만드는 다양한 방법을 보여주는 대안인 2개의 스크립트를 첨부했습니다.이러한 스크립트는 Test라는 새 열이 있는 Big Class를 사용합니다. 해당 열(테스트)을 선택합니다. 이 창을 통해 사용자는 마음을 바꿀 수 있습니다. 실수로 5를 쳤지만 6을 의미하는 경우 다른 값을 선택해 보십시오.7개의 HListBox가 모두 창에 있지만 선택한 숫자만 표시되고 이름과 값은 OK 스크립트로 검색(<

 

이러한 스크립트는 정확한 요구 사항을 충족하지 못할 수 있지만 복사/붙여넣기(일명 무차별 대입) 코드에 대한 대안에 대한 몇 가지 아이디어를 제공해야 합니다.

 

DialogDialog대화ResultsResults 결과

 

Re: 텍스트 입력란과 숫자 입력란이 있는 콤보 상자에서 데이터를 가져오는 방법은 무엇입니까?

귀하의 신청서가 아직 명확하지 않습니다. 그러나 OK ButtonBox와 관련된 작업이 7개의 숫자 편집 상자와 텍스트 편집 상자가 모두 존재한다고 가정하기 때문에 스크립트에서 오류가 발생합니다. 그러나 생성한 상자만 존재합니다.

7세트의 상자를 모두 만들고 7세트의 결과를 모두 얻으되 지정된 수만 사용하는 것이 좋습니다.

 

 

   firstdigit = y << get();
   seconddigit = y2  << get();
   thirddigit = y3  << get();
   fourthdigit = y4  << get();
   fifthdigit = y5  << get();
   sixthdigit = y6  << get();
   seventhdigit = y7  << get();
   
   
   firstColumnName = z  << getText();
   secondColumnName =  z2  << getText();
   thirdColumnName =  z3  << getText();
   fourthColumnName = z4  << getText();
   fifthColumnName =  z5  << getText();
   sixthColumnName = z6  << getText();
   seventhColumnName = z7  << getText();

나중에 대안을 게시하겠습니다.