Solved

# how to join two functions

Posted on 2006-07-01
239 Views
Hello,

I have this function below and it works great. how ever I also want to use the one below on the same variable how do I do it

<%
' this will crop a sentence
Function CropSentence(strText, intLength, strTrial)
If Len(strText) > intLength Then
CropSentence = Left(strText, intLength) & strTrial
Else
CropSentence = strText
End If
End Function
%>

<%= CropSentence((Recmostofuser.Fields.Item("country_usr").Value), 10, "...") %>

--------------------------------------------------------------------- above is used for cropping a sentence and works --------------------------------

below is for making the first letter of each word capital but i want to use that and the above but dont know how to use them both together.

<% function Proper(str)
Proper = ucase(left(str,1)) & lcase(right(str,len(str)-1))
end function
%>

kenny

0
Question by:thatelvis
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 4
• 3
• 2
• +1

LVL 20

Expert Comment

ID: 17023799
try and let me know
<%
' this will crop a sentence
Function CropSentence(strText, intLength, strTrial)
If Len(strText) > intLength Then
CropSentence = Left(strText, intLength) & strTrial
Else
CropSentence = strText
End If

Proper(strText)

End Function

function Proper(str)
Proper = ucase(left(str,1)) & lcase(right(str,len(str)-1))
end function

%>

0

LVL 1

Author Comment

ID: 17023865
how can I apply both the CropSentence function and the Proper funcition to this

<%= ((Recmostofuser.Fields.Item("country_usr").Value), 10, "...") %>

0

LVL 20

Expert Comment

ID: 17024003
try this, i m not sure but it may work

<%
' this will crop a sentence
Function CropSentence(strText, intLength, strTrial)
If Len(strText) > intLength Then
CropSentence = Left(strText, intLength) & strTrial
Else
CropSentence = ucase(left(strText,1)) & lcase(right(strText,len(strText)-1))
End If

End Function

%>
<%= ((Recmostofuser.Fields.Item("country_usr").Value), 10, "...") %>
0

LVL 1

Author Comment

ID: 17024018
nope it didnt work,
0

LVL 20

Expert Comment

ID: 17024036
let me try on this first, i wil get back 2 u.
0

LVL 35

Expert Comment

ID: 17024080
<%
' this will crop a sentence
Function CropSentence(strText, intLength, strTrial)
If Len(strText) > intLength Then
CropSentence = Left(strText, intLength) & strTrial
Else
CropSentence = strText
End If
End Function

function Proper(str)
Proper = ucase(left(str,1)) & lcase(right(str,len(str)-1))
end function

dim arrText()
dim fullText, myText
myText=CropSentence((Recmostofuser.Fields.Item("country_usr").Value), 10, "...")
arrText=myText.Split(" ")
for i=0 to arrText.Length-1
fullText=fullText & Proper(arrText(i) & " "
next
%>
0

LVL 11

Expert Comment

ID: 17040208
<%
Function CropSentence(strText, intLength, strTrial)
If Len(strText) > intLength Then
CropSentence = Left(strText, intLength) & strTrial
Else
CropSentence = strText
End If
End Function

function Proper(str)
Proper = ucase(left(str,1)) & lcase(right(str,len(str)-1))
end function

for each element in split(CropSentence("ewtwet ery weryreyerwy ery er ywery er ywer", 20, "..."), " ")
xx = xx & proper(element) & " "
next
response.write xx
%>

How bout this =)
0

LVL 11

Accepted Solution

kelvinwkw earned 250 total points
ID: 17040235
<%
' this will crop a sentence
Function CropSentence(strText, intLength, strTrial)
If Len(strText) > intLength Then
tmpSentence = Left(strText, intLength) & strTrial
Else
tmpSentence = strText
End If
For Each element in split(tmpSentence, " ")
CropSentence = CropSentence & Proper(element) & " "
Next
End Function

function Proper(str)
Proper = ucase(left(str,1)) & lcase(right(str,len(str)-1))
end function

response.write (CropSentence("ewtwet ery weryreyerwy ery er ywery er ywer", 20, "..."))
%>

Or this shorter version =)
0

LVL 1

Author Comment

ID: 17040429
what I have below works for the use I want, thanks all for your help.

this will capitilise every word in a sentence.

<%
function proper(str)
proper = ""
aStr = split(str," ")
for i = 0 to ubound(aStr)
proper = proper & ucase(left(aStr(i),1)) & lcase(right(aStr(i),len(aStr(i))-1)) & " "
next
proper = rtrim(proper)
end function
%>

<%= proper(CropSentence((Recmostofuser.Fields.Item("country_usr").Value),10,"...")) %>

----------------------------------------------------------------------------------------------------

'this is for the first letter only and nothing else.

function Proper(str)
Proper = ucase(left(str,1)) & lcase(right(str,len(str)-1))
end function

<%=Proper(Reclistall.Fields.Item("firstname_usr").Value)%>
0

LVL 1

Author Comment

ID: 17040445
<%
' this will crop a sentence
Function CropSentence(strText, intLength, strTrial)
If Len(strText) > intLength Then
CropSentence = Left(strText, intLength) & strTrial
Else
CropSentence = ucase(left(strText,1)) & lcase(right(strText,len(strText)-1))
End If

End Function

%>
<% 'this will make the first word in each sentence capital
function proper(str)
proper = ""
aStr = split(str," ")
for i = 0 to ubound(aStr)
proper = proper & ucase(left(aStr(i),1)) & lcase(right(aStr(i),len(aStr(i))-1)) & " "
next
proper = rtrim(proper)
end function
%>

above works briliant
0

LVL 35

Expert Comment

ID: 17043349
you are welcome.

sorry I put
for i=0 to arrText.Length-1

as in ASP.NET insted of

for i = 0 to ubound(aStr)

as in classic ASP
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Preface This article introduces an authentication and authorization system for a website.  It is understood by the author and the project contributors that there is no such thing as a "one size fits all" system.  That being said, there is a certaâ€¦
There are two main kinds of selectors in CSS: One is base selector like h1, h2, body, table or any existing HTML tags.  For instance, the following rule sets all paragraphs (<p> elements) to red: (CODE) CSS also allows us to define our own custom â€¦
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: Tâ€¦
The viewer will receive an overview of the basics of CSS showing inline styles. In the head tags set up your style tags: (CODE) Reference the nav tag and set your properties.: (CODE) Set the reference for the UL element and styles for it to ensuâ€¦
###### Suggested Courses
Course of the Month6 days, 1 hour left to enroll