This is not really a classic ASP group, but I can sense that telling
you to find a more appropriate group would be profoundly unhelpful,
because you aren't a professional developer.
This is a typical example of code written without the slightest amount
of prescience. Don't you just want to grab people who write such code
by the scruff of their neck and shake them till they faint ?? ;-)
I think it's a testament to how boring the day is going for me that I
decided to write this code for you (VBScript, imagine !!) :
I think it should work in most scenarios :
---
Dim fullName
fullName = "Mohandas Karamchand Gandhi"
Const initialSeparator = "."
Dim separators(3)
separators(0) = "," 'Comma
separators(1) = " " 'Space
separators(2) = ";" 'Semicolon
separators(3) = "-" 'Hypen
'Call the function with the first separator.
GetInitials(0)
Function GetInitials(byval i)
Dim initials, namePart, allNames
allNames = Split(fullName, separators(i))
If UBound(allNames) > 1 Then
'If the Split succeeded, then try to find the initials.
For Each namePart In allNames
If Len(namePart) > 0 Then
'Get the first letter of this Name part and append it to the
initials variable.
initials = initials & UCase(Left(namePart, 1)) &
initialSeparator
End If
Next
Response.Write("The initials are: " & initials)
Else
'If the Split failed, call this function recursively with the next
separator.
If i < UBound(separators) Then
GetInitials(i + 1)
Else
Response.Write("The supplied name could not be parsed into its
initials.")
End If
End If
End Function
---
Points to note :
1. You can provide any number of possible separators for the names.
2. You can modify the character used as a separator for the Output
initials.
3. You will still need to adapt the code for your own scenario, so I
have tried to provide explanatory comments.
HTH.
On Nov 11, 12:12 am, Ben <[EMAIL PROTECTED]> wrote:
> Hello VB.Net members. I'm a Network/Server admin who has had some web
> page maintenance thrown into my lap. We have an ASP page that is
> coded with some VB that splits a field in two so that we can get the
> First Letter of a persons first and last name. Below is the code that
> does this...
>
> dim strPatientFullName
> strPatientFullName = Split(strPatientName2, ",")
> strPatientName = left(strpatientfullname(0), 1) & ", " &
> left(strpatientfullname(1), 2)
>
> It looks for the comma to do the split. Here is my
> problem...sometimes the users who do the input do not use a comma but
> rather just a space. When this happens our program blows up and only
> lists people up to the last person before the one w/ no comma. How
> can I do some error handling on my site so I can do the split at the
> comma and then if there is no comma have it check for a space and then
> if there is no space have it just grab the first letter of the
> strPatientFullName?
>
> Any help is greatly appreciated and if I need to clarify something
> please let me know.
>
> Thanks,
