Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:getlongestre [2007/02/11 22:37] (aktuell)
80.134.126.36 angelegt
Zeile 1: Zeile 1:
 +====== GetLongestRe ======
  
 +<code vb>
 +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
 +</​code>​

Eigene Werkzeuge