WritePreferenceString with leading spaces

Michael Vogel · Post by **Michael Vogel** » Mon Sep 15, 2008 10:55 am

Hi,
just wondered that WritePreferenceString does not use doublequotes at the beginning and end of the string?!

ReadPreferenceString() works fine with values like...

Code: Select all

value = " test "

...but when rewriting this back to a preference file, it is seen as...

Code: Select all

value =  test

So the next time it will be only "test" without the spaces...

Is this like it should work? Do I have to add the doublequotes by myself or could this be a problem (with future versions)?

Code: Select all

If Trim(Text)<>Text
	Text=#DOUBLEQUOTE$+Text+#DOUBLEQUOTE$
EndIf
WritePreferenceString(Name,Text)

Michael

Kukulkan · Post by **Kukulkan** » Mon Sep 15, 2008 12:53 pm

Hi Michael,

I suggest you to store such values in base64 encoded format (now usable in unicode executables, too

)

Code: Select all

; encodes a string to Base64 encoding 
Procedure.s b64encode(Original.s) 
  If Original.s = "": ProcedureReturn "": EndIf 
  Result.s = Space(StringByteLength(Original.s) * 1.36) 
  length.l = Base64Encoder(@Original.s, StringByteLength(Original.s), @Result.s, Len(Result.s)) 
  ProcedureReturn Left(Result.s, length.l) 
EndProcedure 

; decodes a Base64 encoded string 
Procedure.s b64decode(Encoded.s) 
  If Encoded.s = "": ProcedureReturn "": EndIf 
  Result.s = Space(StringByteLength(Encoded.s)) 
  length.l = Base64Decoder(@Encoded.s, StringByteLength(Encoded.s), @Result.s, Len(Result.s)) 
  ProcedureReturn Left(Result.s, length.l) 
EndProcedure

Debug Chr(34)+b64decode(b64encode("This is a test string"))+Chr(34)

Kukulkan

AND51 · Post by **AND51** » Mon Sep 15, 2008 2:13 pm

Kukulan, funzt nicht richtig!
You must correct your procedure, I've just tested it for validity.

Code: Select all

; encodes a string to Base64 encoding 
Procedure.s b64encode(Original.s) 
  If Original.s = "": ProcedureReturn "": EndIf 
  Result.s = Space(Len(Original.s) * 1.36) 
  length.l = Base64Encoder(@Original.s, Len(Original.s), @Result.s, Len(Result.s)) 
  ProcedureReturn Left(Result.s, length.l) 
EndProcedure 

; decodes a Base64 encoded string 
Procedure.s b64decode(Encoded.s) 
  If Encoded.s = "": ProcedureReturn "": EndIf 
  Result.s = Space(Len(Encoded.s)) 
  length.l = Base64Decoder(@Encoded.s, Len(Encoded.s), @Result.s, Len(Result.s)) 
  ProcedureReturn Left(Result.s, length.l) 
EndProcedure 


Debug Chr(34)+b64decode(b64encode("Aha-Erlebnis!"))+Chr(34)

Kukulkan · Post by **Kukulkan** » Mon Sep 15, 2008 3:13 pm

Hi And51,

Thank you. You are right if you say that the code did not work in unicode-executables. I corrected this in the code postet above. Now the code works in both variations (ascii and unicode).

Kukulkan

AND51 · Post by **AND51** » Mon Sep 15, 2008 3:59 pm

Ouuups!

I didn't say the word "unicode", actually... Somehow I forgot it. I have uicode activated by default so I didn't thought this is the actueal reason.
Eigentlich, it was your own idea.

ts-soft · Post by **ts-soft** » Mon Sep 15, 2008 4:04 pm

> Eigentlich
is german, i think "in fact" is the right vocable

AND51 · Post by **AND51** » Mon Sep 15, 2008 4:24 pm

@ TS-Soft

In fact, I know...

And in fact, you can also use "actually" for "eigentlich"; it's the same.

It's only a little joke.

Kukulkan · Post by **Kukulkan** » Mon Sep 15, 2008 4:47 pm

Hi,

In my opinion, Eigentlich is best translated with in fact.

Kukulkan