Best Implementation for Set of Elements that I manually change

[Lost Zergling]

Hi JohnM
This one is not the best implementation (your specifications does ot need keys, just indices)
Much slower(*), consummes memory and requires a library (viewtopic.php?f=8&t=26533), BETA state.
Depending on what you expect to do you might appreciate using it (if only for 'short' syntax).
(on previous versions of the compiler, I could load bigger string if string type not in an array when loading lots of strings)
(*) : In most of user cases user will not notice.

Code: Select all

#Include once "D:\Basic\LZLE.bi"
Dim MyList As List
Dim As String file_name, text, StrNumLigne
Dim As Integer file_num, indice=0

file_name = "D:\Basic\Filename.ext"
file_num = FreeFile( )
If( Open( file_name For Input As #file_num ) ) Then
   Print file_name & " not opened"
Else 
   Do Until EOF( file_num )               '' loop until we have reached the end of the file     
      Line Input #file_num, text               '' read a line of text ...
      MyList.HashTag(Str(indice)) : MyList.Val(text)
      indice+=1
   Loop
   Close #file_num
End If
Randomize , 1
StrNumLigne=Str(Int(Rnd * indice))
MyList.HashTag( StrNumLigne )
Print "Line " & StrNumLigne & " = " & MyList.Val
Sleep
System

To substract an element, syntax is :

Code: Select all

'Persistent parameters (need to be set one time)
MyList.NFRecursive(1) 'Optional : forces dynamic reuse of obsolete index entries (automatic only when NodeFlat is in a loop)
MyList.NFmethod(-1) 'Indicates destination for NodeFlat (GarbageCollector)

'For each element you want to delete/substract
MyList.HashTag( ValidKey ) : MyList.NodeFlat 'If key is not valid a empty element will be created then send to "GarbageCollector"
' Or 
If MyList.HasKey( ValidKey ? ) Then : MyList.NodeFlat : End If  ' (slower) (Check NFmethod and AutoCursor)

This should handle heavy memory load in a context you're adding and substracting a lot of elements when processing.

PS : Welcome to FreeBasic :-)