• 목록
  • 아래로
  • 위로
  • 0
  • 임꺽
  • 조회 수 3803

'***************************************************************************************
'CIMON의 GRID에서 txt파일로 출력
'***************************************************************************************
Sub do_grid03_output_grid2txtfile()
 
On Error goto Errstep
'읽기:1번째 칼럼 읽어 데이타 확인
grid_check$ = wcGridGetData ("GRID",1,1)
 
'확인
If grid_check$ = "" Then
     'message 
     SetTagVal "INDEX.MESSAGE", "파일출력할 검색된 데이타가 하나도 없습니다."
     PlaySound ("sound_fail")
     Exit Sub
End If
 
'생성:결과를 저장할 파일이름
file_name$ = GetTagVal ("INDEX.FILENAME")
 
'확인:파일이름공백
If file_name$ = "" Then
      'message 
      SetTagVal "INDEX.MESSAGE", "파일이름이 없습니다."
      PlaySound ("sound_fail.wav")
      Exit Sub
'점검:파일존재
ElseIf (FileExists(file_name$) = True) Then
     SetTagVal "INDEX.MESSAGE", file_name$ + "파일이 이미 있습니다."
     '//PlaySound ("sound_fail.wav")
     '//Exit Sub
End If
 
'초기화:데이타갯수
row_ck# = 0
 
'읽기:마지막데이타 확인
Do
     row_ck# = row_ck# + 1
     '읽기:1번째 칼럼
     grid_check$ = wcGridGetData ("GRID",1,row_ck#)
Loop While (grid_check$ <> "")
 
'file open
Open file_name$ for Output As #1
 
'그리드에 있는 내용을 텍스트파일로 출력
For i = 1 To row_ck#
     '초기화
     gird_text$ = ""
     grid_check$ = ""
 
     '읽기:1번째 칼럼
     grid_check$ = wcGridGetData ("GRID",1,i)
     '확인
     If grid_check$ = "" Then 
            Goto Ending
     Else
         '초기화
         grid_check$ = ""
         '1줄을 2칸부터 1칸씩 읽기
         For j = 2 to 6
               If j = 2 Then _
                   grid_check$ = wcGridGetData ("GRID",j,i) + ","
               If j >= 3 And j <= 5 Then _
                    grid_check$ = grid_check$  + wcGridGetData ("GRID",j,i) + ","
              If j = 6 Then _
                   grid_check$ = grid_check$ + wcGridGetData ("GRID",j,i)
       Next j
      End If
 
      '파일출력
      Print #1, grid_check$
 
      'message 
      SetTagVal "INDEX.MESSAGE", Format(i,"000#") + "번째를 파일출력합니다."
Next i
 
Ending:
 
'file close
Close #1
 
'message 
SetTagVal "INDEX.MESSAGE",CStr(row_ck#-1) + "개 데이타를" + file_name$ + "이름으로 출력하였습니다."
PlaySound ("sound_success.wav")
 
'exit
Exit Sub

Errstep:
'message 
SetTagVal "INDEX.MESSAGE","처리도중 에러가 발생하였습니다."
PlaySound ("sound_fail.wav")

End Sub
 

공유

facebooktwitterpinterestbandkakao story
퍼머링크

댓글 0

권한이 없습니다.