Za prikaz odredjenog broja reci:
Code:
Dim MainString
MainString = "rec1 rec2 rec3 rec4 rec5 rec6 rec7 rec8"
response.write ShortString(MainString, 5)
Function ShortString(str, NumOfWords)
Dim arrWords
arrWords = Split(str, " ")
ReDim Preserve arrWords(NumOfWords - 1) '-- zero based
ShortString = Join(arrWords)
End Function
Za prikaz odredjenog broja slova:
Code:
response.write Left(MainString, 10)
ili
Code:
response.write Right(MainString, 10)
Pozdrav