Ben,
Your apology is well received, accepted and appreciated. I would
prefer if you would provide feedback and let us know how you fared
with the code. You can rest assured that since we already have made an
exception by helping you, we will not hesitate to go the distance and
provide assistance till the matter is resolved.
On Nov 11, 7:52 pm, Ben <[EMAIL PROTECTED]> wrote:
> First off let me apologize for posting to the wrong group. Secondly
> thanks so much for the reply and actually doing the code. I will work
> at getting this code incorporated into my page and working. I
> appreciate your help and sorry again for clogging up your group with
> classic ASP and not knowing the difference.
> Thanks,
> Ben
>
> On Nov 11, 1:27 am, Cerebrus <[EMAIL PROTECTED]> wrote:
>
>
>
> > 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,- Hide quoted text -
>
> - Show quoted text -
