Inverted commas in strings

How do you include an inverted comma or quote into a string??

Try this

Dim TestStr as string

TestStr = "Test"
debug.print TestStr '(Test)
TestStr = Chr(34) & TestStr & Chr(34)
debug.print TestStr '("Test")

Try it out
Adrian

Hi andromedia !!!

AdrianH Solution is in my opionion the right one if you want to code this.

if you want do use it as constant Text then you can also do
following
x = """test"""
debug.print x
"test"

or
x = "'test'"
debug.Print x
'test'
or
x = """'test'"""
debug.Print x
"'test'"

-cu TheOnly

look in MSDN for the ASCII Character codes. You can use them with the CHR() function.

If you need them, here are all the ASCII codes:

Code:

---

! = 33
" = 34
# = 35
$ = 36
% = 37
& = 38
' = 39
( = 40
) = 41
* = 42
+ = 43
, = 44
- = 45
. = 46
/ = 47
0 = 48
1 = 49
2 = 50
3 = 51
4 = 52
5 = 53
6 = 54
7 = 55
8 = 56
9 = 57
: = 58
; = 59
< = 60
= = 61
> = 62
? = 63
@ = 64
A = 65
B = 66
C = 67
D = 68
E = 69
F = 70
G = 71
H = 72
I = 73
J = 74
K = 75
L = 76
M = 77
N = 78
O = 79
P = 80
Q = 81
R = 82
S = 83
T = 84
U = 85
V = 86
W = 87
X = 88
Y = 89
Z = 90
[ = 91
\ = 92
] = 93
^ = 94
_ = 95
` = 96
a = 97
b = 98
c = 99
d = 100
e = 101
f = 102
g = 103
h = 104
i = 105
j = 106
k = 107
l = 108
m = 109
n = 110
o = 111
p = 112
q = 113
r = 114
s = 115
t = 116
u = 117
v = 118
w = 119
x = 120
y = 121
z = 122
{ = 123
| = 124
} = 125
~ = 126
 = 127
€ = 128
 = 129
‚ = 130
ƒ = 131
„ = 132
… = 133
† = 134
‡ = 135
ˆ = 136
‰ = 137
Š = 138
‹ = 139
Π= 140
 = 141
Ž = 142
 = 143
 = 144
‘ = 145
’ = 146
“ = 147
” = 148
• = 149
– = 150
— = 151
˜ = 152
™ = 153
š = 154
› = 155
œ = 156
 = 157
ž = 158
Ÿ = 159
= 160
¡ = 161
¢ = 162
£ = 163
¤ = 164
¥ = 165
¦ = 166
§ = 167
¨ = 168
© = 169
ª = 170
« = 171
¬ = 172
* = 173
® = 174
¯ = 175
° = 176
± = 177
² = 178
³ = 179
´ = 180
µ = 181
¶ = 182
· = 183
¸ = 184
¹ = 185
º = 186
» = 187
¼ = 188
½ = 189
¾ = 190
¿ = 191
À = 192
Á = 193
 = 194
à = 195
Ä = 196
Å = 197
Æ = 198
Ç = 199
È = 200
É = 201
Ê = 202
Ë = 203
Ì = 204
Í = 205
Î = 206
Ï = 207
Ð = 208
Ñ = 209
Ò = 210
Ó = 211
Ô = 212
Õ = 213
Ö = 214
× = 215
Ø = 216
Ù = 217
Ú = 218
Û = 219
Ü = 220
Ý = 221
Þ = 222
ß = 223
à = 224
á = 225
â = 226
ã = 227
ä = 228
å = 229
æ = 230
ç = 231
è = 232
é = 233
ê = 234
ë = 235
ì = 236
í = 237
î = 238
ï = 239
ð = 240
ñ = 241
ò = 242
ó = 243
ô = 244
õ = 245
ö = 246
÷ = 247
ø = 248
ù = 249
ú = 250
û = 251
ü = 252
ý = 253
þ = 254
ÿ = 255

---

If you want to reproduce this in VB:

Code:

---

'Add a CommandButton and a textbox(multiline=true,scrollbars=vertical,font=Courier new)
Private Sub Command1_Click()
Dim x As Integer
    Text1.Text = ""
For x = 33 To 255
    Text1.Text = Text1.Text & Chr(x) & " = " & x & vbCrLf
Next
End Sub

---

[Edited by Jop on 10-15-2000 at 10:45 AM]