about PeekS

[applePi]

how to let Trond code here to work in PB 5.50 :
http://purebasic.fr/english/viewtopic.php?f=13&t=25999
Thanks

[falsam]

[PB 5.50]

Code: Select all

a$ = "the cat in the hat "
Length = Len(a$)
For t=1 To Length
  Letter.s = PeekS(Ascii(a$)+t-1, 1, #PB_UTF8)
  Word.s = Word + Letter
  If Letter = " "
    Debug Word + "."
   ; or some other process
    Word = ""
  EndIf
Next

Result

the .
cat .
in .
the .
hat .

[Fred]

Here is the version which should work in ascii and unicode mode:

Code: Select all

a$ = "the cat in the hat "
Length = Len(a$)
For t=1 To Length
  Letter.s = PeekS(@a$+(t-1)*SizeOf(Character), 1)
  Word.s = Word + Letter
  If Letter = " "
    Debug Word + "."
   ; or some other process
    Word = ""
  EndIf
Next

Also Ascii() return a dynamic buffer which needs to be freed or you will experience a leak.

[Demivec]

Code: Select all

a$ = "the cat in the hat "
Length = Len(a$)
For t=1 To Length
  Letter.s = PeekS(a$+(t-1) * SizeOf(Character), 1)
  Word.s = Word + Letter
  If Letter = " "
    Debug Word + "."
   ; or some other process
    Word = ""
  EndIf
Next 

@Edit: Fred beat me to it.

[netmaestro]

If one is being asked to take a string consisting of an expression in human language and break it down into its individual words, the first option from PureBasic that comes to mind is StringField(). Is there a reason to dismiss it and look elsewhere?

[applePi]

Thanks for the solutions

StringField(). Is there a reason to dismiss it and look elsewhere?

no i know StringField() is a good and better choice https://www.purebasic.com/documentation ... field.html
it is may be not available in 2007 purebasic version
i just want the PeekS to work.

[ts-soft]

it is may be not available in 2007 purebasic version

StringField()?

StringField is available since 9. Oktober 2002, PB Version 3.40.