Solved

how to join two functions

Posted on 2006-07-01
11
236 Views
Last Modified: 2010-04-06
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


0
Comment
Question by:thatelvis
  • 4
  • 3
  • 2
  • +1
11 Comments
 
LVL 20

Expert Comment

by:Gawai
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

by:thatelvis
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

by:Gawai
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

by:thatelvis
ID: 17024018
nope it didnt work,
0
 
LVL 20

Expert Comment

by:Gawai
ID: 17024036
let me try on this first, i wil get back 2 u.
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 35

Expert Comment

by:YZlat
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

by:kelvinwkw
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

by:
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

by:thatelvis
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

by:thatelvis
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

by:YZlat
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Introduction Knockoutjs (Knockout) is a JavaScript framework (Model View ViewModel or MVVM framework).   The main ideology behind Knockout is to control from JavaScript how a page looks whilst creating an engaging user experience in the least …
JavaScript has plenty of pieces of code people often just copy/paste from somewhere but never quite fully understand. Self-Executing functions are just one good example that I'll try to demystify here.
The viewer will learn how to dynamically set the form action using jQuery.
Video by: Mark
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now