PureBasic Forums - English

Code: Select all

set.s="[1,2,3,4,5,8,9,11,15,17,19,45,65,78]"

NewList myset()
ParseJSON(0, set)
ExtractJSONList(JSONValue(0), myset())

ForEach myset()
  Debug myset()
Next

Code: Select all

ResetList(llTPS())
nPts = GetYourData(d())
If nPts > 1
  For i = 0 To nPts - 1
    AddElement(llTPS())
    llTPS() = d(i)
  Next i
EndIf

Code: Select all

EnableExplicit
NewMap List()

List("10")
List("12")
List("18")
List("25")

ForEach List()
  Debug MapKey(List())
Next

Code: Select all

;This procedure adds an integer value to a list, optionally at a specified position
Procedure ListAddn(List tempb.i(), value.i , position=-1)
	Protected top
	top=ListSize(tempb())
	If pos>top Or position=-1
		AddElement(tempb())
		tempb()=value
		ProcedureReturn
	EndIf
	SelectElement(tempb(), position)
	InsertElement(tempb())
	tempb()=value
EndProcedure

;Add a string value to a list only if the value is not in the list
Procedure.i ListAddS(List temp$(), value$, checkcase=#True)
	Protected added, lookfor$, found, a$
	If value$
		;check to see if value$ is already in list temp$()
		lookfor$=value$
		If checkcase
			lookfor$=LCase(lookfor$)
		EndIf
		ForEach temp$()
			a$=temp$()
			If checkcase
				a$=LCase(a$)
			EndIf
			If lookfor$=a$
				found=#True
				Break
			EndIf
		Next
		If found=#False
			AddElement(temp$())
			temp$()=value$
			added=#True
		EndIf
		ResetList(temp$())
	EndIf
	ProcedureReturn added
EndProcedure

Procedure.i MakeList(List mylist.i(),listtoadd$)
	Protected n, i, a$
	n=CountString(listtoadd$, ",")+1
	For i=1 To n
		a$=StringField(listtoadd$, i, ",")
		ListAddn(mylist(), Val(a$))
	Next
	ProcedureReturn n
EndProcedure


NewList TestList.i()
alist$="2,8,11,4,78,5,3,9,1,19,14,19,65,45"
MakeList(TestList(),alist$)
SortList(TestList(),#PB_Sort_Ascending)
ForEach TestList()
	Debug TestList()
Next

End

Code: Select all

Macro quote()
"
EndMacro

Macro listSplit(arg)
 tmp$ = quote()arg#quote()
 For privateI = 1 To CountString(tmp$, " ") + 1
  AddElement(*currentList\x() )
  *currentList\x() = Val(StringField(tmp$, privateI, " ") )
 Next
EndMacro

Structure myList
 List x.i()
EndStructure

Global *currentList.myList

Procedure myListCreate()
 Protected *this.myList = AllocateMemory(SizeOf(myList) )
 InitializeStructure(*this, myList)
 *currentList = *this
 ProcedureReturn *this
EndProcedure

Define *x.myList = myListCreate()

listSplit(1 2 4 8 16 32)

ForEach(*x\x() )
 Debug *x\x()
Next

Code: Select all

EnableExplicit
; https://www.purebasic.fr/english/viewtopic.php?f=12&t=65159&p=486382&hilit=SplitL#p486382
Procedure SplitL(String.s, List StringList.s(), Separator.s = " ")
	
	Protected S.String, *S.Integer = @S
	Protected.i p, slen
	slen = Len(Separator)
	ClearList(StringList())
	
	*S\i = @String
	Repeat
		AddElement(StringList())
		p = FindString(S\s, Separator)
		StringList() = PeekS(*S\i, p - 1)
		*S\i + (p + slen - 1) << #PB_Compiler_Unicode
	Until p = 0
	*S\i = 0
	
EndProcedure

Global NewList NumStr.s()
Global NewList Num.i()
Global s$ = "1,2,3,4,5,8,9,11,15,17. ,19,45,65,78"
SplitL(s$, NumStr(), ",")
ForEach NumStr()
	If AddElement(Num())
		Num() = Val(NumStr())
	EndIf
Next
FreeList(NumStr())

ForEach Num()
	Debug Num()
Next

Code: Select all

set.s = "[1,2,3,4,5,8,9,11,15,17,19,45,65,78]"

NewList myset()

Procedure MakeList(List mylist(), set.s)
  CreateJSON(0)
  ParseJSON(0, set)
  ExtractJSONList(JSONValue(0), mylist())
  FreeJSON(0)
EndProcedure

MakeList(myset(), set)

ForEach myset()
  Debug myset()
Next

Code: Select all

NewList myset()

AddElement(myset()) : myset() = 1
AddElement(myset()) : myset() = 2
AddElement(myset()) : myset() = 3
AddElement(myset()) : myset() = 4
AddElement(myset()) : myset() = 5 
AddElement(myset()) : myset() = 8
AddElement(myset()) : myset() = 9
AddElement(myset()) : myset() = 11
AddElement(myset()) : myset() = 15
AddElement(myset()) : myset() = 17
AddElement(myset()) : myset() = 19
AddElement(myset()) : myset() = 45
AddElement(myset()) : myset() = 65
AddElement(myset()) : myset() = 78