VBS Check character

[T_Noble]

Hi all,

 

First post on here, so hoping that I have it right.

 

I have the following code (Written in VBS):

' Gather required information
strLUsername = net.username
strLComputer = net.computername
strLDate = CStr(Date)
strLTime = CStr(Time)
strOU = LCase(GetDN)
If InStr(staff, user.Description) Then
strType = "staff"
Else
strType = "student"
End If

I want it to do the following:

 

If First Character of the username is an integer (1-9) Then

StrType = "student"

Else

StrType = "staff"

End If

 

Thanks for any replies in advanced.

 

Kind Regards

 

Tom

[Gerry]

This should get you the first character.

 

FirstCharacter = Left(strLUsername, 1)

 

Left Function

[T_Noble]

Could I use the following (Working on code from both the above replies)?

 

' Gather required information
strLUsername = net.username
strLComputer = net.computername
strLDate = CStr(Date)
strLTime = CStr(Time)
strOU = LCase(GetDN)
FirstCharacter = Left(strLUsername, 1)
If FirstCharacter = "[1-9]" Then
strType = "student"
Else
strType = "staff"
End If

 

Regards

 

Tom

[Gerry]

This should work:

 

If FirstCharacter >= "1" And FirstCharacter <= "9" Then
StrType = "student"
Else
StrType = "staff"
End If

 

Here's a couple of sites that have helped me:

VBScript Tutorial

Script Center

 

And you might want to check this script editor out: VbsEdit - Award-winning VBScript Editor - VBS editor - VBScript debugger - VBS debugger

It has some nag screens, but the trial period never runs out.

[apeo]

You could use isnumeric:

 

' Gather required information
strLUsername = net.username
strLComputer = net.computername
strLDate = CStr(Date)
strLTime = CStr(Time)
strOU = LCase(GetDN)
FirstCharacter = Left(strLUsername, 1)
If isNumeric(FirstCharacter) Then
strType = "student"
Else
strType = "staff"
End If

 

Think that should work but i havent tested it.

[T_Noble]

Both the thanked replies work well.

 

' Gather required information
strLUsername = net.username
strLComputer = net.computername
strLDate = CStr(Date)
strLTime = CStr(Time)
strOU = LCase(GetDN)
FirstCharacter = Left(strLUsername, 1)
If isNumeric(FirstCharacter) Then
strType = "student"
Else
strType = "staff"
End If

 

and

 

If FirstCharacter >= "1" And FirstCharacter <= "9" Then
StrType = "student"
Else
StrType = "staff"
End If

 

Kind Regards All

 

Tom

[ajb]

Forgive me for appearing a little pernickety but...

 

The IsNumeric function will return True when FirstCharacter is equal to "0" won't it?

 

Maybe this isn't quite the behaviour you wanted.

 

Cheers, Andy.