vbscript возвращает строку целых слов <= указанный предел

Question

Я хочу, чтобы в vbScript (Classic ASP) синтаксический анализ строки до указанной длины без вырезания слов.Конечная строка может быть меньше указанной длины (чтобы избежать сокращения слов), но не должна превышать ее ..

Answer 1

@ Caveatrob: Также предполагается, что вы разбиваете на пробелы:

<%  
Option Explicit  

Function TrimIt(sInput, iLength)  
    Dim aWords, iCounter, sOutput, sTmp  

    sOutput = sInput  

    If InStr(sInput, " ") > 0 Then  
        aWords = Split(sInput, " ")  
        For iCounter = 0 To UBound(aWords)  
            If Len(aWords(iCounter) & " ") + Len(sTmp) <= iLength Then  
                sTmp = sTmp & " " & aWords(iCounter)  
            Else  
                Exit For  
            End If  
        Next  
        sOutput = sTmp  
    End If  

    TrimIt = sOutput  
End Function  

Response.Write TrimIt("This works slightly better", 11)  
%>  

Answer 2

Предполагая, что вы разбиваете слова на пробел.

startIndex = 0
index = 1
do while len(inputString) - startIndex > desiredLength
    tmp = mid(inputString, 0, desiredLength)
    outputStrings[index] = left(tmp, instrrev(tmp, " ")-1)
    startIndex = startIndex + len(outputStrings[index]) + 1
    index = index + 1
loop