[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2004/08/25(Wed) 12:39
投稿者名：ハル
Ｅメール：
ＵＲＬ　：
タイトル：CSV出力について
いつもお世話になります。
CSVファイルを出力した所、項目がダブルコーテーションでくくられます。
ダブルコーテーションをとりたいのですが、どのように行えば良いのか教えて下さい。m(__)m

Dim A AS STRING,B AS STRING

A="AAA"
B="BBB"
Open "c:\TEST.CSV" For Output As #1
Write #1, A, B
Close #1

出力結果(現在)
"AAA","BBB"
出力結果(理想)
AAA,BBB

投稿時間：2004/08/25(Wed) 12:58
投稿者名：KIM.J
Ｅメール：
ＵＲＬ　：
タイトル：Re: CSV出力について
A = "AAA"
B = "BBB"
Open "c:\TEST.CSV" For Output As #1
Print #1, A; ","; B
Close #1
とか

投稿時間：2004/08/25(Wed) 12:59
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: CSV出力について
> Write #1, A, B
Print #1, A, B  に変更して見ては。

"" が含まれると何かまずい事があるのでしょうか？

投稿時間：2004/08/25(Wed) 13:08
投稿者名：ハル
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: CSV出力について
すいません。説明不足でした。
変数AとBにダブルコーテーションまたはLFコードが含まれる場合にのみ、項目をダブルコーテーションでくくり
たいのですが。
A = "AAA"
B = 5
C = "BB""CC"

Write #1, A, B, C

求める出力結果
AAA , 5 , "BB""CC"

投稿時間：2004/08/25(Wed) 13:20
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: CSV出力について
★ - CSV出力の件 - ハル 08/23-17:05 No.91 New

のむしかえしですか？

投稿時間：2004/08/25(Wed) 13:23
投稿者名：ハル
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: CSV出力について
はい。説明下手ですいませんm(__)m

投稿時間：2004/08/25(Wed) 13:33
投稿者名：KIM.J
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: CSV出力について
今までの花ちゃんさんの答えを組み合わせると可能かと思うのですが？

投稿時間：2004/08/25(Wed) 13:33
投稿者名：LESIA
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: CSV出力について
> すいません。説明不足でした。
> 変数AとBにダブルコーテーションまたはLFコードが含まれる場合にのみ、項目をダブルコーテーションでくくり
> たいのですが。
> A = "AAA"
> B = 5
> C = "BB""CC"
>
> Write #1, A, B, C
>
> 求める出力結果
> AAA , 5 , "BB""CC"

If (InStr(A, """") > 0) Or (InStr(A, vbLf) > 0) Then
    A = """" & A & """"
End If

If (InStr(B, """") > 0) Or (InStr(B, vbLf) > 0) Then
    B = """" & B & """"
End If

If (InStr(C, """") > 0) Or (InStr(C, vbLf) > 0) Then
    C = """" & C & """"
End If

Print #1, A, B, C

投稿時間：2004/08/25(Wed) 14:11
投稿者名：ハル
Ｅメール：
ＵＲＬ　：
タイトル：ありがとうございました

花ちゃん、KIM.Jさん、LESIAさん
ありがとうございましたm(__)m