trouble with apostrophe

[ttuser4]

i am exporting data into a text file with this code:

sSQL = "Select [EMPID], [WDATE], [WTYPE], [WHRS], [PCODE], [WRATE] From WHOURS WHERE PAYPER=" & rst.Fields(0).Value & ";"
Set rs4 = New adodb.Recordset
rs4.Open sSQL, objAccessConnection, adOpenKeyset, adLockPessimistic
I = rs4.RecordCount
If I > 0 Then
While Not rs4.EOF
veta = rs4.Fields(0).Value & "," & rs4.Fields(1).Value & " 0:00:00," & rs4.Fields(2).Value & "," & rs4.Fields(3).Value & "," & rs4.Fields(4).Value & "," & rs4.Fields(5).Value
Put ff, , veta
rs4.MoveNext
Wend
End If
Put ff, , veta
Close ff

and I am getting this text:

479,5/14/12 0:00:00,O/T,1,90,8.75
479,5/14/12 0:00:00,R/T,8,90,8.75

but I need format with apostrophes so it would be like:

"479",5/14/12 0:00:00,"O/T",1,"90",8.75
"479",5/14/12 0:00:00,"R/T",8,"90",8.75

can you please help me to fix this?

thanks

 

[ttuser4]

ok, this Chr$(34) did it.

 

[dilettante]

Er, those are quotes, not apostrophes.

There is a clean way to use quotes in a string literal:

S = """That's all, folks!"""

Using Chr$() is clumsy, slow, and awkward.

 

[tedsmith]

Never knew that before!

 

[Andrzejek]

If

those are quotes, not apostrophes

then what are double-quotes?

Have fun.

---- Andy

 

[dilettante]

Double-quotes" is a made up phrase. If you want to throw in U.K. "English" then things get even weirder, but not worry: VB and Windows don't come from the U.K.

 

[strongm]

>those are quotes, not apostrophes

Nah! Technically, they’re primes ... ;-)
[tt]
" Double prime
' Prime
“ Left double quote
” Right double quote
‘ Left single quote
’ Right single quote/apostrophe
[/tt]

 

[dilettante]

Just don't start inverting your commas.

 

[tedsmith]

Interesting -
How do you produce left and right double quotes and the left single quote?
What are they used for?

 

[PeterWallace]

Set up a function
Public Function PutQuotes(ByRef txtToQuote As String) As String
Dim iASCII As Integer

iASCII = 34

PutQuotes = Chr(iASCII) & txtToQuote & Chr(iASCII)
End Function

and use as

WERE AName = " & PutQuotes(ASKFOR)

 

[tedsmith]

That just adds extra "quotes" (chr(34)) which according to stromgm is a prime

I have since found that the extra characters are in the vicinity of Chr(145)

What I meant was - what use in programming are these extra quote type masks as described by strongm (other than purely cosmetic)?

 

[strongm]

>other than purely cosmetic

I'm simply being typographically correct