PureBoard

Code: Alles auswählen

EnableGraphicalConsole(1) : ClearConsole()       

SortStructuredArray(DVD(), 0, OffsetOf(Movie\Jahr$), #PB_Sort_String)
    PrintN("")
    ConsoleColor(15,0)
    
         For index = 1 To 9999
               
        AusgabeProm$=""
           AusgabeProm$ = DVD(index)\Star$
              If FindString (LCase(AusgabeProm$),LCase(Servertext$),1)
                   MaxIndex = CountString(AusgabeProm$, ",")+1
        
        For K = 1 To MaxIndex
          SubString$ =""
            SubString$ = StringField(AusgabeProm$, K, ",")
              SubString$ = Trim(SubString$, ",")
                SubString$ = Trim(SubString$, " ")
                    
                If FindString (LCase(SubString$),LCase(Servertext$),1) : Print_s(SubString$) : Print_S(" ° ") : EndIf
                     Next 
                          Print (DVD(index)\Jahr$) : Print_S(" ° ")     
                              Print_s (DVD(index)\Name$) : PrintN("")
 EndIf   
    Next