レコードごとにカンマをつけたい

解決

A 2006-02-15 11:20:02 No: 130238

既存のデータファイルのデータの例
able,〜できる、有能な
aboad,車内に、船内に
about,〜について、およそ
academy,専門学校
active,活動的な

ファイルに保存する際に上のようにカンマを付けてデータ保存するには
どうしたらいいですか？

Private Sub cmd2_Click()→追加ボタンを押した時のイベント
Dim FNAME As String
Dim ret As String
CommonDialog1.ShowSave
FNAME = CommonDialog1.FileName

Open FNAME For Append As #1
Print #1, txt1.Text, txt2.Text
Close #1

ret = MsgBox("追加されました", vbOKOnly, "確認")
If ret = vbOK Then
    Close
  Else
    txt1.SetFocus

End If
End Sub

魔界の仮面弁士 2006-02-15 11:29:38 No: 130239

> カンマを付けてデータ保存するには
> どうしたらいいですか？

保存処理の
> Print #1, txt1.Text, txt2.Text
という部分を、
Print #1, txt1.Text & "," & txt2.Text
にするだけかな。

A 2006-02-15 11:33:52 No: 130240

ありがとうございます。
カンマを入れるのはできました。

でも改行して追加したい場合はどうしたらいいですか？

特攻隊長まるるう 2006-02-15 11:44:24 No: 130241

改行コードというものが存在します。
ヘルプにも載ってますし、過去ログ検索『改行』でも引っ掛かります。

A 2006-02-15 11:51:41 No: 130242

出来ました。ありがとうございました。

A 2006-02-15 11:57:09 No: 130243

解決したのに追加ですいません。
改行コードを入れた後、2連続で追加をしてみたら
追加した2行の間に1行余計に空白があいてしまったのですが、
空白をなくすにはどうしたらいいですか？

特攻隊長まるるう 2006-02-15 12:24:56 No: 130244

>追加した2行の間に1行余計に空白があいてしまったのですが、
Print で書き込んでるから改行コードが必要ないのでしょう。

matsu 2006-02-15 12:26:45 No: 130245

推測ですが
Print #1, txt1.Text & "," & vbCrLf & txt2.Text & vbCrLf
としていませんか？

Print #1, txt1.Text & "," & vbCrLf & txt2.Text
とするとうまくいくと思います。

A 2006-02-15 13:05:10 No: 130246

改行コード入れないでやったら出来ました。すいません。