writing to textfile with string in " "

[pradeep.sands]

Hey guys, I have a command where I write the record values to a text file. The code is working but I need to make small change.


For example, this is my command:

Dim path As String
path = Application.CurrentProject.path & "\export\"
Open (path & "\export.txt") For Append As text
Print #text, .Fields(1).Value & ";" & .Fields(2).Value & ";" & .Fields(3).Value & vbCrLf
Close #text

assume my field(1) value is a number, field2 value is text(string), field3 value is again a number..
so my txt displays as:

10;abcd;20


However I need the string to be in quotes, like this:

10;"abcd";20

or

10;'abcd';20


Instead of 'Print' command, If I use the 'Write', then the whole line is displayed in quotes:

"10;abcd;20"

which I don't want to. Can someone help me with this?

[pbaldy]

Try


Print #text, .Fields(1).Value & ";'" & .Fields(2).Value & "';" & .Fields(3).Value & vbCrLf

[pradeep.sands]

It worked.
Thank you.

[pbaldy]

No problem. You can get the double quotes with Chr(34) if you decide you want them instead.

[pradeep.sands]

Oh..okay..thanks for the additional info..but I guess single quotes would suffice for my task...