asked on

how to join two functions

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
%>

all help greatly received.

kenny

Emad Gawai

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

%>

thatelvis

ASKER

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

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

Emad Gawai

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, "...") %>

thatelvis

ASKER

nope it didnt work,

Emad Gawai

let me try on this first, i wil get back 2 u.

YZlat

<%
' 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
%>

kelvinwkw

<%
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 =)

ASKER CERTIFIED SOLUTION

kelvinwkw

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

thatelvis

ASKER

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)%>

thatelvis

ASKER

<%
' 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

YZlat

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