Documentation Center

PslTransList.FindID

Returns a PslTransString with a given ID.

Syntax

Expression.FindID (ID as VARIANT, Index as Long) as PslTransString

Expression Object of type PsTransList

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 translation strings with the ID 100
Dim trn As PslTransList
Set trn = PSL.ActiveTransList
If Not trn Is Nothing Then
    Dim t As PslTransString
    Dim index As Long
    index = 1
    While True
        Set t = trn.FindID(100, index)
        If t Is Nothing Then Exit While
        PSL.Output Str(t.Number)
        index = index + 1
    Wend
End If