[jawsscripts] Re: String Segment Count
- From: "Mike" <mike_sharp@xxxxxxxxxxxxx>
- To: <jawsscripts@xxxxxxxxxxxxx>
- Date: Tue, 6 Jul 2010 15:23:00 +0100
Martin
Once again thanks.
I have been playing around with the function and had changed the endif
location to return the string properly.
Still stuck on hyphenated names. I can use segment count and return an
integer value of the location of the hyphen, it's just reconstructing the
resulting string to include it in the right place thats confusing me. If i
had hair..........
--------------------------------------------------
From: "Martin Slack" <m.g.slack@xxxxxxxxxxxx>
Sent: Tuesday, July 06, 2010 2:52 PM
To: "JAWSScripts" <jawsscripts@xxxxxxxxxxxxx>
Subject: [jawsscripts] Re: String Segment Count
> Ok,
>
> I see now. If you need to retain the full double-barrelled names, you
> don't actually want to specify dash as a segment delimiter anywhere (until
> you get to changing the case that is). Just use a space as the delimiter,
> then the dash will be treated as a normal character within one of the
> names.
>
> One problem with using different sets of delimiters in different places
> is
> that the number of segments will, in general, increase if you use more
> delimiters, so your while loop might run out of input, or not reach the
> end
> of the string, if you have read the number of segments using different
> delimiters than when you look at each segment.
>
> You also had a couple of logic errors in your code which prevented the
> last segment from being processed. Try:
>
> ---code starts---
> Var
> String sData, String sData2, String sData3, String sData4, String sData5,
> String sText, Int iStart, Int iFinish, Int iLength
>
> Let sData = "MIKE JOHN MCBAIN"
> Let iStart = 1 Let iFinish = StringSegmentCount (sData, " ") + 1
> While iStart < iFinish
> Let sText = StringSegment (sData, " ", iStart)
> Let iLength = StringLength (sText)
> Let sData2 = SubString (sText, 1, 2)
> If sData2 == "MC" Then
> Let sData2 = StringUpper (StringLeft (sData2, 1)) +
> StringLower (Substring (sData2, 2, StringLength (sData2)))
> Let sData3 = StringChopLeft (StringLeft (sText, iLength), 2)
> Let sData3 = StringUpper (StringLeft (sData3, 1)) +
> StringLower (Substring (sData3, 2, StringLength (sData3)))
> Let sData4 = (sData2 + sData3)
> Else
> Let sData4 = StringUpper (StringLeft (sText, 1)) +
> StringLower (Substring (sText, 2, StringLength (sText)))
> EndIf
> If (iStart == (iFinish - 1)) Then
> Let sData5 = sData5 + sData4
> Else
> Let sData5 = sData5 + sData4 +" "
> EndIf
> Let iStart = iStart + 1
> EndWhile
> CopyToClipboard (sData5)
> Return (sData5)
> ---code ends---
>
> Of course, this still does not address the double-barrelled name problem,
> but you are now fairly on the way.
>
> Martin
>
>
> ----- Original Message -----
> From: "Mike" <mike_sharp@xxxxxxxxxxxxx>
> To: <jawsscripts@xxxxxxxxxxxxx>
> Sent: Tuesday, July 06, 2010 12:34 PM
> Subject: [jawsscripts] Re: String Segment Count
>
>
> Martin,
>
> Thanks very much for looking at the script and for your reply.
> The double space in the string is a mistake, sorry about that.
> The result you had is sort of what I am looking for but could you just
> explain the delimiters you used.
>
> In my script I have:
> Let iStart = 1 Let iFinish = StringSegmentCount (sData, " -") + 1
> and also:
> Let sText = StringSegment (sData, " ", iStart)
> When you say both StringSegments need to have the same delimiters I gather
> from that I need to add the hyphen to the second string segment statement?
>
> The returned string you have is better than what I was getting, however, I
> need the hyphen to remain when reconstrcuting the string, could you
> suggest
> a way in which that could be done?
>
> Also, stupidly on my part, it's all very well it working in the way I have
> it setup but it is pretty unlikely that a person is going to be called
> McMike McJones (unless their parents were having a laugh!). When I try my
> function with a string MIKE MCJONES I don't get the full name returned.
>
> I have added an else statement to the If statement but the string is
> missing
> some segments, only the first segements that do not begin with MC are
> returned.
>
> So far the revised script looks like this:
> Var
> String sData, String sData2, String sData3, String sData4, String sData5,
> String sText,
> Int iStart, Int iFinish, Int iLength
>
> Let sData = "MIKE JOHN MCBAIN"
> Let iStart = 1 Let iFinish = StringSegmentCount (sData, " -") + 1
> While iStart < iFinish
> Let sText = StringSegment (sData, " -", iStart)
> Let iLength = StringLength (sText)
> Let sData2 = SubString (sText, 1, 2)
> If sData2 == "MC" Then
> Let sData2 = StringUpper (StringLeft (sData2, 1)) + StringLower
> (Substring (sData2, 2, StringLength (sData2)))
> Let sData3 = StringChopLeft (StringLeft (sText, iLength), 2)
> Let sData3 = StringUpper (StringLeft (sData3, 1)) + StringLower
> (Substring (sData3, 2, StringLength (sData3)))
> Let sData4 = (sData2 + sData3) Else
> Let sData4 = StringUpper (StringLeft (sText, 1)) + StringLower
> (Substring (sText, 2, StringLength (sText)))
> If iStart == iFinish Then
> Let sData5 = sData5 + sData4 Else
> Let sData5 = sData5 + sData4 +" "
> EndIf
> EndIf
> Let iStart = iStart + 1
> EndWhile
> Copytoclipboard (sData5)
> Return (sData5)
>
>
> Regards
>
> Mike
>
> --------------------------------------------------
> From: "Martin Slack" <m.g.slack@xxxxxxxxxxxx>
> Sent: Tuesday, July 06, 2010 9:51 AM
> To: <jawsscripts@xxxxxxxxxxxxx>
> Subject: [jawsscripts] Re: String Segment Count
>
>> Mike,
>>
>> One thing I noticed was that your test string had two adjacent spaces
>> between two of the names, so one of the segments you were testing would
>> have
>> been null. The other thing to bear in mind is to give ALL your
>> StringSegment functions the same set of delimiters. When I did this,
>> your
>> code produced the output:
>>
>> McDave1 McDave2 McDave3 McDave4 McDave5 McDave6
>>
>> Is this what you are looking for? I'm still not sure how you want to
>> handle double-barrelled names.
>>
>> Martin
>>
>>
>> ----- Original Message -----
>> From: "Mike" <mike_sharp@xxxxxxxxxxxxx>
>> To: <jawsscripts@xxxxxxxxxxxxx>
>> Sent: Tuesday, July 06, 2010 8:39 AM
>> Subject: [jawsscripts] Re: String Segment Count
>>
>>
>> Geoff and all.
>>
>> I tried as suggested and it did not work. Let me explain what I am trying
>> to
>> achieve and paste the code thus far.
>> I am capturing names from a screen which need to be formatted in the
>> correct
>> way. This particular function has to check for names beginning with Mc
>> and
>> format it in such a way that the name appears like McTavish. My script
>> works
>> where the string has a blank space between each forename or surname but
>> in
>> some cases the name may be hyphenated. I need the string segment count to
>> look for a blank space and a hyphen. Here is my working code so far,
>> maybe
>> someone can critique what I have done and suggest a way forward.
>> As always..thanks in advance for the help.
>>
>> Var
>> String sData,
>> String sData2,
>> String sData3,
>> String sData4,
>> String sData5,
>> String sText,
>> Int iStart,
>> Int iFinish,
>> Int iLength
>>
>> Let sData = "MCDAVE1 MCDAVE2-MCDAVE3 MCDAVE4 MCDAVE5 MCDAVE6"
>> Let iStart = 1 Let iFinish = StringSegmentCount (sData, " -") + 1
>> While iStart < iFinish
>> Let sText = StringSegment (sData, " ", iStart)
>> Let iLength = StringLength (sText)
>> Let sData2 = SubString (sText, 1, 2)
>> If sData2 == "MC" Then
>> Let sData2 = StringUpper (StringLeft (sData2, 1)) + StringLower
>> (Substring
>> (sData2, 2, StringLength (sData2)))
>> Let sData3 = StringChopLeft (StringLeft (sText, iLength), 2)
>> Let sData3 = StringUpper (StringLeft (sData3, 1)) + StringLower
>> (Substring
>> (sData3, 2, StringLength (sData3)))
>> Let sData4 = (sData2 + sData3)
>> If iStart == iFinish Then
>> Let sData5 = sData5 + sData4 Else
>> Let sData5 = sData5 + sData4 +" "
>> EndIf
>> EndIf
>> Let iStart = iStart + 1
>> EndWhile
>> Copytoclipboard (sData5)
>> --------------------------------------------------
>> From: "Geoff Chapman" <gch@xxxxxxxxxxxxxxxx>
>> Sent: Tuesday, July 06, 2010 5:12 AM
>> To: <jawsscripts@xxxxxxxxxxxxx>
>> Subject: [jawsscripts] Re: String Segment Count
>>
>>> Hi Mike.
>>> well, I stand to be corrected, but my understanding was that you just
>>> shoved
>>> all of them next to each other inside quotation marks as the second
>>> param
>>> of
>>> the function?
>>> i.e.
>>>
>>> StringSegmentCount (MyString, "| ")
>>>
>>>
>>> the multiple delimiters in this case would be vertical bar followed by a
>>> space, in sequence.
>>> thus a vertical bar with no space following it, would not be considered
>>> legal for the above code?
>>>
>>> BTW, you can also use, as can be very handy in some situations, and end
>>> of
>>> line character of "\n" as a delimiter as well.
>>>
>>> hth..
>>> ----- Original Message -----
>>> From: "Mike" <mike_sharp@xxxxxxxxxxxxx>
>>> To: <jawsscripts@xxxxxxxxxxxxx>
>>> Sent: Tuesday, July 06, 2010 9:10 AM
>>> Subject: [jawsscripts] String Segment Count
>>>
>>>
>>>> Hi All,
>>>>
>>>> I am a bit unsure on how to specify more the one delimiter in the
>>>> stringsegmentcount function, can someone let me know how it is done?
>>>>
>>>> Regards,
>>>>
>>>> Mike
>>>>
>>>> __________�
>>>>
>>>> View the list's information and change your settings at
>>>> http://www.freelists.org/list/jawsscripts
>>>>
>>>
>>> __________�
>>>
>>> View the list's information and change your settings at
>>> http://www.freelists.org/list/jawsscripts
>>>
>>>
>> __________�
>>
>> View the list's information and change your settings at
>> http://www.freelists.org/list/jawsscripts
>>
>> __________�
>>
>> View the list's information and change your settings at
>> http://www.freelists.org/list/jawsscripts
>>
>>
> __________�
>
> View the list's information and change your settings at
> http://www.freelists.org/list/jawsscripts
>
> __________�
>
> View the list's information and change your settings at
> http://www.freelists.org/list/jawsscripts
>
>
__________�
View the list's information and change your settings at
http://www.freelists.org/list/jawsscripts
Other related posts: