tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
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
            '手動で列幅を設定した場合0に上手くならないので大きめに設定
            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

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



 [スレッド一覧へ] [親スレッドへ]