싸이먼에서 데이타 분리해서 가져오기

문자열자르기 스크립트 예제.zip

이 예제를 응용하여서 풀어보세요 답이 나올듯 합니다

공백 문자 있으면 분리 하는 예제 인데 위에 언급한 바코드 값은 &로 값을 분리 하니 

공백아니 아닌 &값을 가지고 문자 분리를 하면될듯 합니다

곰부리님

우선 관심 가져주셔서 정말 감사합니다.^^

곰부리님이 보내주신 예제 다음과 같이 실행해보니

첨부화일과 같이 되더라고요.

(F507928&20150430&21&71.0)

(&21까지만 데이타 불러옴)

실행예제

Sub STRING_CUT()

 dim stringbuff$(100)
 strmsg$= GetTagVal("BARCODE.CALL_DATA1")

 strlen = len(strmsg)

 cnt  = 1
 search = 0
 for i = 1 to strlen
 
  x% = InStr(1,strmsg$,"&",1)

  if x% <> 0 then

   B$ =  Mid(strmsg$,1, x%)

   strmsg$ = Mid(strmsg$, x% +1 , len(strmsg$) - x%)

   
   strlen = len(strmsg$)

   
   stringbuff$(cnt) = B$
   cnt = cnt +1

  end if
       
 Next i

 for j = 1  to cnt -1
 msgbox stringbuff$(j)
 next j

End Sub

실행시 제일 끝에 있는 71.0 데이타를

ok 누르는 동작없이 바로 화면에 표시할려고 하는데 가능한가요??

답변잘 봤습니다