none
TXT화일에 넣고 다음줄 RRS feed

  • 질문

  •         Dim FileNum As Integer
            Dim FW As StreamWriter

            FileNum = FreeFile()
            FW = New StreamWriter("D:\VB\공조기선정\엑셀\임시저장.txt", True) '새로운 화일 만들기

            With DataGridView1
                For i = 0 To 20 '세로
                    For j = 0 To 74 ' 가로

                        FW.Write(i, .Item(j, i).Value & ",")

                        (74개를 TXT화일에 넣고 다음줄  해서 20줄로 넣고 싶습니다)

                          DataGridView1의 가로 줄은 100개 입니다.

                    Next
                Next
            End With

            FW.Close() '화일 닫기

            Me.Close() '현재 창을 안보이게 하고 메모리에서도 지운다


    • 편집됨 박희철 2013년 4월 16일 화요일 오전 3:53
    2013년 4월 16일 화요일 오전 3:46

답변

  • Imports System.IO
    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim FileNum As Integer
            Dim FW As StreamWriter
            FileNum = FreeFile()
            FW = New StreamWriter("c:\temp\임시저장.txt", True) '새로운 화일 만들기
            Dim sLine As String
            sLine = ""
            'With DataGridView1
            For i = 0 To 20 '세로
                For j = 0 To 74 ' 가로
                    sLine &= i.ToString() & "_" & j.ToString() '여기에 .Item(j, i).Value를 넣으면 됨.
                    If (Len(sLine) > 0) Then sLine &= ","
                Next
                sLine &= System.Environment.NewLine '다음줄로 넘김
            Next
            FW.Write(sLine) '(74개를 TXT화일에 넣고 다음줄  해서 20줄로 넣고 싶습니다)
            'End With
            FW.Close() '화일 닫기
            'Me.Close() '현재 창을 안보이게 하고 메모리에서도 지운다
        End Sub
    End Class

    이런식으로 한번 해보세요.
    2013년 4월 17일 수요일 오전 12:37

모든 응답

  • Imports System.IO
    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim FileNum As Integer
            Dim FW As StreamWriter
            FileNum = FreeFile()
            FW = New StreamWriter("c:\temp\임시저장.txt", True) '새로운 화일 만들기
            Dim sLine As String
            sLine = ""
            'With DataGridView1
            For i = 0 To 20 '세로
                For j = 0 To 74 ' 가로
                    sLine &= i.ToString() & "_" & j.ToString() '여기에 .Item(j, i).Value를 넣으면 됨.
                    If (Len(sLine) > 0) Then sLine &= ","
                Next
                sLine &= System.Environment.NewLine '다음줄로 넘김
            Next
            FW.Write(sLine) '(74개를 TXT화일에 넣고 다음줄  해서 20줄로 넣고 싶습니다)
            'End With
            FW.Close() '화일 닫기
            'Me.Close() '현재 창을 안보이게 하고 메모리에서도 지운다
        End Sub
    End Class

    이런식으로 한번 해보세요.
    2013년 4월 17일 수요일 오전 12:37
  • 제가 짜려고 하는 프로그램은

    원한는 값을 받아 계산하고 도면그려 그린 data을 그리드에 한줄뿌리고

    다시

    원한는 값을 받아 계산하고 도면그려 그린 data을 그리드에 다음 한줄뿌리고

    원하는데 까지 하면 DataGridView1의  값을 txt나 엑셀에 저장 합니다.

    나중에 불러 견적도 내고 bm도끈는 프로그램인데요

    도와 주셔서 거의 완성 했습니다.

     DataGridView1의 차곡 차곡 data넣는것만 남았습니다.

    form1 에서 입력 -> form2 에서 옵션 -> form3 에서 추가 입력 -> form4 에서 계산 -> form5 에서 도면작성

    -> form6 에서 DataGridView1의 한줄 넣기 -> form7 에서 엑셀 넣기 -> form1로 돌아가기

    2013년 4월 19일 금요일 오전 3:10