PureBasic Forums - English

Code: Select all

;Purebasic 6.11 LTS(Windows-x64)

For k = 1 To 6
  Debug "single space between words, k = " + Str(k) + ": " + StringField("Hello I am a splitted string", k, " ")
Next

Debug " "

For k = 1 To 6
  Debug "double space between words, k = " + Str(k) + ": " + StringField("Hello  I  am  a  splitted  string", k, " ")
Next

Debug " "

For k = 1 To 6
  Debug "three spaces between words, k = " + Str(k) + ": " + StringField("Hello   I   am   a   splitted   string", k, " ")
Next

Debug " "

For k = 1 To 6
  Debug "one space before 'Hello', k = " + Str(k) + ": " + StringField(" Hello I am a splitted string", k, " ")
Next

Debug " "

For k = 1 To 6
  Debug "two spaces before 'Hello', k = " + Str(k) + ": " + StringField("  Hello I am a splitted string", k, " ")
Next

Code: Select all

a$ = "   Hello    I    am    a    splitted string"

For k = 1 To CountString(a$, " ") + 1
	If StringField(a$, k, " ")
		Debug StringField(a$, k, " ")
	EndIf
Next

Debug "----"

;plan B
a$ = Trim(a$)
While FindString(a$, "  ")
	a$ = ReplaceString(a$, "  ", " ")
Wend
For k = 1 To CountString(a$, " ") + 1
	Debug StringField(a$, k, " ")
Next

Code: Select all

Define String$ = "   Hello    I    am    a    splitted string"
; https://www.purebasic.fr/english/viewtopic.php?p=588707#p588707
String$ = TrimCharsToString(String$, " ", #CR$ + #LF$ + #TAB$ + " ")
Debug String$

Code: Select all

String.s="This"+Space(3)+"is"+Chr(160)+"example "+Chr(160)+" of    string that contains   spaces and non-breaking spaces"
Debug "String is: "+String
;      
If CreateRegularExpression(0,"[^"+Chr(32)+Chr(160)+"]+")
  If ExamineRegularExpression(0,String)
    While NextRegularExpressionMatch(0)
      Debug "Position: "+RegularExpressionMatchPosition(0)+" "+"String: "+RegularExpressionMatchString(0)
    Wend
  EndIf
  FreeRegularExpression(0)
EndIf