[Resolvido] Contando caracteres

[xanburzum 169]

<%

Dim strScriptName

Dim strInputText

 

'Leia no nome do script

'Ponto de ação do formulário para.

strScriptName = Request.ServerVariables("URL")

 

'Leitura na entrada da área de texto.

strInputText = Request.Form("txtWordCount")

 

'Check for de entrada vazia e ignorá-lo ..

If strInputText = "" Then

strInputText = "This is some text for the textarea!"

Else

' Echo fora de entrada:

Response.Write "You entered:<br />" & vbCrLf

Response.Write "<pre>"

Response.Write Server.HTMLEncode(strInputText)

Response.Write "</pre>" & vbCrLf

 

' Imprima as contagens :

Response.Write "<p>It contained <b>" _

& GetWordCount(strInputText) _

& "</b> words and <b>" _

& GetCharCount(strInputText) _

& "</b> characters.</p><br />" & vbCrLf

End If

 

 

'**** Funções ***********************************

Function GetWordCount(strInput)

Dim strTemp

 

 

strTemp = Replace(strInput, vbTab, " ")

strTemp = Replace(strTemp, vbCr, " ")

strTemp = Replace(strTemp, vbLf, " ")

 

'Remova os espaços à esquerda e à direita

strTemp = Trim(strTemp)

 

'Combine múltiplos espaços aos mais simples

Do While InStr(1, strTemp, " ", 1) <> 0

strTemp = Replace(strTemp, " ", " ")

Loop

 

' pega a contagem, dividindo a string em um array

'E retornando número de elementos na mesma.

'Eu adiciono um para lidar com o limite inferior 0.

GetWordCount = UBound(Split(strTemp, " ", -1, 1)) + 1

End Function ' GetWordCount

 

Function GetCharCount(strInput)

GetCharCount = Len(strInput)

End Function ' GetCharCount

'**** End Funções *************************************

 

'formulário

 

%>

<p>Enter some text:</p>

 

<form action="<%= strScriptName %>" method="post">

<textarea name="txtWordCount" cols="40" rows="5"

><%= Server.HTMLEncode(strInputText) %></textarea>

 

<br />

 

<input type="submit">

</form>

<%

Dim strScriptName

Dim strInputText

 

'Leia no nome do script

'Ponto de ação do formulário para.

strScriptName = Request.ServerVariables("URL")

 

'Leitura na entrada da área de texto.

strInputText = Request.Form("txtWordCount")

 

'Check for de entrada vazia e ignorá-lo ..

If strInputText = "" Then

strInputText = "This is some text for the textarea!"

Else

' Echo fora de entrada:

Response.Write "You entered:<br />" & vbCrLf

Response.Write "<pre>"

Response.Write Server.HTMLEncode(strInputText)

Response.Write "</pre>" & vbCrLf

 

' Imprima as contagens :

Response.Write "<p>It contained <b>" _

& GetWordCount(strInputText) _

& "</b> words and <b>" _

& GetCharCount(strInputText) _

& "</b> characters.</p><br />" & vbCrLf

End If

 

 

'**** Funções ***********************************

Function GetWordCount(strInput)

Dim strTemp

 

 

strTemp = Replace(strInput, vbTab, " ")

strTemp = Replace(strTemp, vbCr, " ")

strTemp = Replace(strTemp, vbLf, " ")

 

'Remova os espaços à esquerda e à direita

strTemp = Trim(strTemp)

 

'Combine múltiplos espaços aos mais simples

Do While InStr(1, strTemp, " ", 1) <> 0

strTemp = Replace(strTemp, " ", " ")

Loop

 

' pega a contagem, dividindo a string em um array

'E retornando número de elementos na mesma.

'Eu adiciono um para lidar com o limite inferior 0.

GetWordCount = UBound(Split(strTemp, " ", -1, 1)) + 1

End Function ' GetWordCount

 

Function GetCharCount(strInput)

GetCharCount = Len(strInput)

End Function ' GetCharCount

'**** End Funções *************************************

 

'formulário

 

%>

<p>Enter some text:</p>

 

<form action="<%= strScriptName %>" method="post">

<textarea name="txtWordCount" cols="40" rows="5"

><%= Server.HTMLEncode(strInputText) %></textarea>

 

<br />

 

<input type="submit">

</form>