Stringlist functions

' add and insert items

sub StringList_AddItem(ByRef sList As String, sItem As String)

sub StringList_InsertItem(ByRef sList As String, index As Integer, sItem As String)

' change item with specified index

sub StringList_ChangeItem(ByRef sList As String, index As Integer, sItem As String)

' delete item with specified index

sub StringList_DeleteItem(ByRef sList As String, index As Integer)

' get item with specified index

function StringList_GetItem(sList As String, index As Integer) As String

' get item index (or test if item exists)

function StringList_GetItemIndex(sList As String, sItem As String) As Integer

' get item count

function StringList_ItemCount(sList As String) As Integer

' sort all strings in the list

sub StringList_Sort(ByRef sList As String)

' Load a text file and store each line as item in a string list

function StringList_LoadFromFile(sFilename As String, ByRef sList As String) As Boolean

' Save a string list to a file

function StringList_SaveToFile(sFilename As String, ByRef sList As String) As Boolean

Eine Stringliste ist ein einfacher String, bei dem jedes Element der Liste in einer eigenen Zeile gespeichert ist.

Zeilen werden durch ein carriage return linefeed getrennt (chr(13)+chr(10), oder CRLF).

Mit den StringList-Funktionen können solche Listen sehr einfach verwaltet werden, zum Beispiel mit Funktionen zum Einfügen oder Löschen einzelner Elemente.

Sie können auch Strings mit Zeilenumbrüchen zu einer Stringliste hinzufügen, alle carriage return linefeeds werden innerhalb der Stringliste automatisch entsprechend kodiert.

Stringlisten beginnen mit dem Index 0. Das heißt, das erste Element hat den Index 0, das zweite Element hat den Index 1, usw. Die Anzahl der Elemente kann mit der Funktion "StringList_ItemCount" bestimmt werden.

Mit der Funktion "StringList_GetItemIndex" kann der Index eines bestimmten Elements ermittelt werden. Wird das Element nicht gefunden, dann liefert diese Funktion den Wert -1.

Dim sl, s, i, sItem, nCount

' Clear the string list

sl = ""

' Add items to the stringlist

StringList_AddItem(sl, "WebSite")

StringList_AddItem(sl, "Watcher")

StringList_AddItem(sl, "cool")

' items are now: WebSite, Watcher, cool

' Insert item after "Watcher"

StringList_InsertItem(sl, 2, "is")

' items are now: WebSite, Watcher, is, cool

' Check if item exists

i = StringList_GetItemIndex(sl, "power")

' returns i = -1

i = StringList_GetItemIndex(sl, "is")

' returns i = 2

' Change last item

StringList_ChangeItem(sl, 3, "very cool")

' items are now: WebSite, Watcher, is, very cool

' Iterate through all items

s = ""

nCount = StringList_ItemCount(sl)

For i = 0 To nCount - 1

s = Trim(s + " " + StringList_GetItem(sl, i))

' s is now: WebSite-Watcher is very cool

' Sort the string list

StringList_Sort(sl)

' items are now: is, very cool, Watcher, WebSite

' Delete item with index 2

StringList_DeleteItem(sl, 2)

' items are now: is, very cool, WebSite

' Delete item "WebSite"

StringList_DeleteItem(sl, StringList_GetItemIndex(sl, "WebSite"))

' items are now: is, very cool

' Save string list to file

StringList_SaveToFile("c:\files\stringlist.txt", sl)