PslSourceList.FindID
Returns a PslSourceString with a given ID.
Syntax
Expression.FindID (ID as VARIANT, Index as Long) as PslSourceString
Expression Object of type PslSourceList
ID The ID you're looking for
Index Set to 1 to find the first token with ID. Increase the number to find following tokens with that ID.
Example
' Find all source strings with the ID 100
Dim src As PslSourceList
Set src = PSL.ActiveSourceList
If Not src Is Nothing Then
Dim s As PslSourceString
Dim index As Long
index = 1
While True
Set s = src.FindID(100, index)
If s Is Nothing Then Exit While
PSL.Output Str(s.Number)
index = index + 1
Wend
End If