CSVファイルの空白について (ID:117557)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 皆様遅くなってしまい申し訳ありませんでした。 LESIAさんありがとうございますっ。 理解に時間がかかってしかいましたが Line Input #iFileNo, strBuffer で一行づつ取り込んでいくという発想はありませんでした。 さらに空白行はvbtabを代入して空のデータとして一行つくるのですね。 そして最後に MSFlexGrid1.Clip = Join(strData, vbCr) で配列を結合&改行する、と。すばらしいです。 やはりプログラミングも発想が大事なのですね。 同じように今度はグリッドデータをCSVファイルに保存しようと思い Private Sub Command3_Click() Dim strData As String Dim intFileNo As Integer 'ファイルNo With MSFlexGrid1 .Visible = False '一旦非表示に（読込が早くなる） .Col = 24 .Row = 20 .ColSel = 1 .RowSel = 1 strData = MSFlexGrid1.Clip 'MSFlexGridの選択されているデータをstrDataに格納 strData = Replace(strData, vbTab, ",") '格納されたデータから空白（タブ）を","に置き換える 'データの上書保存処理 intFileNo = FreeFile Open "C:\analized deta\seiseki2.csv" For Output As #intFileNo Write #intFileNo, strData Close #intFileNo 'カレントセルを反転表示に戻す .Visible = True .Row = 1 'ホームポジションに移動 .Col = 1 .TopRow = 1 .SetFocus End With End Sub このようにグリッドをすべて選択し、strdataに格納してタブを今度は逆の手順で","に置き換えCSVに上書きするというものです。 保存はできているのですが、なぜか読み込みと保存を繰り返すたびに先頭と終わりに""が加わって増えてしまうのです。たとえば先頭の数字が0だったとすると"0になり"""0になり…という具合です。データの終わりもまた然りです。なにがいけないのでしょうか？