Korta ner sträng med hela ord (ASP version)

För en tid sedan gav jag tipset om att korta ner en sträng med hela ord (http://aspkoll.se/GoodiesTipsRead.asp?id=70)

Tänkte även lägga in en ASP version av detta:

Function shortString(strWords, intNumbOfWords)
    Dim arrayOfWords
    arrayOfWords = split(strWords) 

    If UBound(arrayOfWords) > intNumbOfWords - 1 Then
        For i = 0 to intNumbOfWords - 1
            shortString = shortString & arrayOfWords(i) & " "
        Next
    Else
        shortString = Join(arrayOfWords)
    End If
End Function

Tyvärr måste man väl säga att man inte har valet att kunna ha en Optional i klassisk ASP.

Test:

Dim Test
Test = shortString("Im testing to see if this can split my words correctly", 3) 'Will split after 3 words: 'Im testing to...'

Detta tips skapades 2008-11-28 15:13:34 av voigtan. Det har lästs 400 gånger. ||

Kommentarer

Ingen har kommenterat denna artikel än.