dcsimg
Login | Register   
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: VBS
Expertise: Beginner
Aug 4, 2003

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


Format Strings in Proper Case

VBScript does not support the StrConv() function, which is useful to format strings in proper case. Use this algorithm to help you:

Public Function StrConv( _
	ByVal psString, ByVal plFormat) 'As String

	Dim lsString 	'As String
	Dim laString 	'As String
	Dim liCount 		'As Integer
	Dim lsWord 		'As String
	Const vbProperCase = 3
	
	lsString = psString
	
	Select Case plFormat
		Case vbProperCase
		lsString = LCase(lsString)
		laString = Split(lsString)
		For liCount = 0 To UBound(laString)
			lsWord = laString(liCount)
			If Len(Trim(lsWord)) > 0 Then
				lsWord = UCase(Left(lsWord, 1)) & _
					Right(lsWord, Len(lsWord) - 1)
				laString(liCount) = lsWord
			End If
		Next liCount
		lsString = Join(laString)
	Case Else
	End Select
	
	StrConv = lsString
End Function
The sample call StrConv(the pHillIes wiLL PrevaiL, 3) returns the string 'The Phillies Will Prevail.'

You can use the same name for the corresponding Visual Basic function to facilitate easy adoption of the native version should it ever be supported in future releases of VBScript. If desired, you also can add support for the other StrConv formatting options. VBScript doesnt currently support the Mid statement (as opposed to the Mid function) either, or you could rewrite this algorithm more efficiently using that.

Brian Egras
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date