VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

MSFlexgridを使ってのCSVファイル読み書き色々(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2007/09/15 07:05
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[ファイル入出力][グリッド関係][]                                    *
* キーワード：CSV,MSHFlexgrid,,,,                                                 *
***********************************************************************************

元質問：MS(H)Flexgrid→CSVファイルへ出.. - さとり 2007/09/13-14:47 No.10187

MSFlexGrid関係の「テキストファイルを読込、表示、保管する（No.2)」を参考にし、
MS(H)FlexgridのデータをCSVファイルへ出力するプログラムを作成しております。
FlexGridのいくつかの列(任意選択)のColWidthを 0 にできるのですが、
0の列はCSV出力しないとやりたいのですが、どのように判定すればよろしいでしょうか？

-----------------------------------------------------------------------------------
Re: MS(H)Flexgrid→CSVファイル.. - 花ちゃん 2007/09/13-19:31 No.10190
-----------------------------------------------------------------------------------

Private Sub Command1_Click()
'   On Error Resume Next
   Dim i         As Long
   Dim j         As Long
   Dim intFileNo As Integer
   Dim TxtLine   As String
   intFileNo = FreeFile
   Open App.Path & "\Test.csv" For Output As #intFileNo
   With MSFlexGrid1
      For i = 0 To .Rows - 1
         TxtLine = ""
         For j = 0 To .Cols - 1
            '手動で列幅を設定した場合０に上手くならないので大きめに設定
            If .ColWidth(j) > 30 Then
               TxtLine = TxtLine & .TextMatrix(i, j) & ","
            End If
         Next j
         If Right$(TxtLine, 1) = "," Then
            TxtLine = Left$(TxtLine, Len(TxtLine) - 1)
            Print #intFileNo, TxtLine
         End If
      Next i
   End With
   Close #intFileNo
   MsgBox "保存しました"
End Sub

--------------------------------------------------------------------------
出力データには、"" が付加されません。