How to get a doubleQuote into a string ?

[vmars316]

Hello & Thanks ,
I know that the hex value is 22 ,
but I can't figure out how to get that into a string as a " .
Thanks...vm

[skywalk]

Code: Select all

#DQ$            = Chr(34)
MyString$ = #DQ$ + "Hello" + #DQ$
debug MyString$

[TI-994A]

Hello vmars316. skywalk's right; although you could also use PureBasic's built-in constant, #DQUOTE$:

Code: Select all

MyString$ = #DQUOTE$ + "Hello" + #DQUOTE$
Debug MyString$

[Alex777]

Or even #DOUBLEQUOTE$ if you prefer ...

Code: Select all

MyString$ = #DOUBLEQUOTE$ + "Hello" + #DOUBLEQUOTE$
Debug MyString$

[StarBootics]

Another way around :

Code: Select all

MyString$ = Chr(34) + "Hello" + Chr(34)
Debug MyString$

[TI-994A]

Or, if you prefer to use the hexadecimal values:

Code: Select all

MyString$ = Chr(Val("$22")) + "Hello" + Chr(Val("$22"))
Debug MyString$

[Tenaja]

Or, if you prefer to use the hexadecimal values:

Code: Select all

MyString$ = Chr(Val("$22")) + "Hello" + Chr(Val("$22"))
Debug MyString$

Or, better yet, just straight hex without the Val() call (which is very slow, relatively speaking)

Code: Select all

MyString$ = Chr($22) + "Hello" + Chr($22)
Debug MyString$

[Little John]

Another method needed?

Code: Select all

MyString$ = Chr('"') + "Hello" + Chr('"')
Debug MyString$

[TI-994A]

Or, if you prefer to use the hexadecimal values:

Code: Select all

MyString$ = Chr(Val("$22")) + "Hello" + Chr(Val("$22"))
Debug MyString$

Or, better yet, just straight hex without the Val() call (which is very slow, relatively speaking)

Code: Select all

MyString$ = Chr($22) + "Hello" + Chr($22)
Debug MyString$

It was meant as a caricature to the preceding two posts.

[infratec]

Wait until Wilbert reads this thread.
Then you'll get the fastest possible way in assembler.

[wilbert]

Wait until Wilbert reads this thread.
Then you'll get the fastest possible way in assembler.

Sorry to disappoint you, no assembler this time
I liked the solution Little John gave with

Code: Select all

Chr('"')

If you want more workarounds, here's another one

Code: Select all

DataSection
  MyString:
  !db 'This is a test "string".', 0
EndDataSection

S.s = PeekS(?MyString, -1, #PB_Ascii)

Debug S

[mk-soft]

@wilbert
very nice

Code: Select all

t.s = "'Hallo World'"
ReplaceString(t, "'", #DQUOTE$, #PB_String_InPlace)
Debug t

[idle]

wrapping it in a macro is perhaps more convenient

Code: Select all

Macro DQ(text) 
  #DQUOTE$ + text + #DQUOTE$ 
EndMacro   

mystring.s = DQ("foo") + "," + DQ("bar") 

Debug mystring

[vmars316]

Code: Select all

#DQ$            = Chr(34)
MyString$ = #DQ$ + "Hello" + #DQ$
debug MyString$

Ah, great help! Thanks..vm

[vmars316]

Hello vmars316. skywalk's right; although you could also use PureBasic's built-in constant, #DQUOTE$:

Code: Select all

MyString$ = #DQUOTE$ + "Hello" + #DQUOTE$
Debug MyString$

Ah, good to know! Thanks..