GetLongestRe

Function GetLongestRe(Text)
  i=1
  CharC=1
  LongestC=0
  CharType=" "
  Do until i > Len(Text)
    LastC=CurC
    CurC=Mid(Text, i, 1)
    if LastC = CurC Then
      CharC=CharC+1
      if CharC > LongestC Then
        LongestC = CharC
        CharType = CurC
      end if
    else
      CharC=1
    end if
    i=i+1
  Loop
  GetLongestRe=String(LongestC, CharType)
End Sub

Eigene Werkzeuge