- 0
- 임꺽
- 조회 수 3756
'***************************************************************************************
'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
공유
댓글 0
권한이 없습니다.
