Global first:String
Global second:String

Function SplitString(in:String,separator:String,comment:String)
   Local sep:Int
   Local cmt:Int
   Local i:Int
   
   cmt = in.Find(comment)
   sep = in.Find(separator)
   
   If cmt in   = in[0..cmt]
   
   in=Replace(in," ","")
   in=Replace(in,Chr(9),"")
   
   If sep      
      first    = in[0..sep-1]
      second   = in[sep..in.length]
   EndIf
   
End Function

rem
   in:String
         Der String der geteilt werden soll
         
   separator:String
         Das Zeichen oder der String an dem in:String
         geteilt werden soll
         
   comment:String
         Wenn man am Ende der Zeile Kommentare
         gestatten will, gibt dieser Parameter an
         mit welchem Zeichen oder String ein
         Kommentar eingeleitet wird
End Rem

SplitString("schnicks =     100      // Kommentar","=","//")

Print first+" == "+second