SampleCase_
<Gen-it>
24-01-2001
public class
{
= new ;
public void set(value)
{
= value;
}
public get()
{
return ;
}
}
String
Long
Date
Double
String
String()
Long(0)
Date()
Double()
String()
str
lng
dat
dbl
str
'
Function Upper(nodelist)
Upper = UCASE(nodelist.nextNode().text)
End Function
'
Function Lower(nodelist)
Lower = LCASE(nodelist.nextNode().text)
End Function
'
Function CapFirst(nodelist)
dim strText
dim strOutput
strText = nodelist.nextNode().text
strOutput = UCASE(Left( strText, 1))
strOutput = strOutput + LCASE((Right( strText, LEN(strText)-1)))
CapFirst = strOutput
End Function
'
Function FillSpace(nodelist, length)
dim strText
dim strOutput
strText = nodelist.nextNode().text
strOutput = strText + String( length - LEN(strText) , " ")
FillSpace = strOutput
End Function