PureBasic Forums - English

Posted: **Thu Jul 03, 2014 7:21 am**

There is another language that uses the tilde to prevent the ugly, but on Windows common, path problems with '\':

Procedure.s Esc(s.s)
   s = ReplaceString(s, "~q", Chr( 34)) ;  34 (quotation mark ")
   s = ReplaceString(s, "~n", Chr( 10)) ;  10 (newline)
   s = ReplaceString(s, "~r", Chr( 13)) ;  13 (return)
   s = ReplaceString(s, "~t", Chr(  9)) ;   9 (tab)
   s = ReplaceString(s, "~~", Chr(126)) ; 126 (tilde ~)
   ProcedureReturn s
EndProcedure

Debug Esc("some ~qText~q ~~ ~t~t~t~t and a~r~nnew line")

Posted: **Mon Feb 09, 2015 5:22 pm**

@Danilo
Nice escape function.
Thank you for sharing.

Posted: **Tue Feb 10, 2015 8:47 am**

Apart from the fact that the substitution happens at runtime and, even though the code is short and concise it is also highly inefficient.

The "right" solution would be to have something like this natively implemented using a string prefex, e.g.

Code: Select all

Define a.s = &"Hello\nWorld"

That way existing code is unaffected and substitution is only done if explicitly stated.

Posted: **Tue Feb 10, 2015 10:39 am**

Whatcha gonna do?

Cry to me? Stand by me?

A Change is gonna come! Imagine!

Posted: **Tue Feb 10, 2015 11:01 pm**

This is what I've come up with. I didn't do any speed testing or serious unit testing,
so I'd be happy if somebody could give me a hand.

The main "issue" with Danilo's procedure is that it iterates through the same string multiple times.
I put the replacement logic into a separate procedure in order to speed up cases
where no escape sequences occur.
I'm not sure if putting a #NUL character into the middle of a string confuses PB,
but it seems to work so far (possible memory leak?).
The Select statement could be optimized by removing it entirely and replacing
the insertion character assignment with a lookup table. I don't believe PB's selects actually work that way (I could be wrong).
In other languages this would be the normal way how select works.

Code: Select all


EnableExplicit

Procedure.i EscapeMove(*current.Character)
	Protected *insert.Character
	
	*insert = *current
	While *current\c <> #NUL
		If *current\c = '~'
			*current + SizeOf(Character)
			Select *current\c
				Case '~' : *current\c = '~'
				Case 'q' : *current\c = '"'
				Case 'n' : *current\c = #LF
				Case 'r' : *current\c = #CR
				Case 't' : *current\c = #TAB
				Case 'v' : *current\c = #VT
				Case '0' : *current\c = #NUL
				Case 'a' : *current\c = #BEL
				Case 'b' : *current\c = #BS
				Case 'f' : *current\c = #FF
				Case #NUL : Break
			EndSelect
		EndIf
		
		*insert\c = *current\c
		*current + SizeOf(Character)
		*insert + SizeOf(Character)
	Wend
	*insert\c = #NUL
	
	ProcedureReturn *current
EndProcedure

Procedure.i EscapeInline(*current.Character)
	While *current\c <> #NUL
		If *current\c = '~'
			ProcedureReturn EscapeMove(*current)
		EndIf
		*current + SizeOf(Character)
	Wend
	
	ProcedureReturn *current
EndProcedure

Procedure.s Escape(string.s)
	EscapeInline(@string)
	ProcedureReturn string
EndProcedure

Debug Escape("Hello~qWorld~q~tWhat's Up?~nNext Line")

Edit: fixed small bug.

Posted: **Wed Feb 11, 2015 12:51 am**

And let's not forget mk-soft's sprintf like function:
http://www.purebasic.fr/english/viewtop ... 12&t=32026

PureBasic Forums - English

Special chars in strings

Re: Special chars in strings

Re: Special chars in strings

Re: Special chars in strings

Re: Special chars in strings

Re: Special chars in strings

Re: Special chars in strings