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

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

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

日時： 2009/12/28 10:30
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[ファイル入出力][グリッド関係][]                                    *
* キーワード：CSV,MSHFlexgrid,,,,                                                 *
***********************************************************************************

-----------------------------------------------------------------------------------
Write # ステートメントを使った通常の保存方法 - 花ちゃん 2007/09/14
-----------------------------------------------------------------------------------

Write # ステートメントを使った全ての表示データを保存する方法を投稿しておきます。
1行分のデータを１度に書き込むような通常の方法と違って列数が多い場合の書き込み等に
適しているかも。

Private Sub Command1_Click()
'保存したデータ全てを、"" で囲まれています。
'   On Error Resume Next
   Dim i         As Long
   Dim j         As Long
   Dim intFileNo As Integer

   intFileNo = FreeFile
   '保存したファイルを確認し易いように拡張子を txt にして保存
   '(メモ帳で保存した状態が確認できるので、実使用時は、.csv で保存)
   Open "SaveTest.txt" For Output As #intFileNo
   With MSFlexGrid1
      For i = 0 To .Rows - 1
         For j = 0 To .Cols - 2
            Write #intFileNo, .TextMatrix(i, j),      'セルデータが続く場合
         Next j
         Write #intFileNo, .TextMatrix(i, .Cols - 1)  '行末のデータのみ
      Next i
   End With
   Close #intFileNo
   MsgBox "保存しました"
End Sub