[jawsscripts] Re: Character Index in String?

Thanks for the help.  My problem was solved with the StringContains 
function.  Just a massive oversight on my part!  Sorry to tie up you 
professionals and the rest of you great helpers on this list.

That's an interesting and useful function.  I might be missing something 
here, but couldn't the function, StringReplaceChars (gs1, "\255", "")
, do something similar?  Not that I am an expert on string manipulation, 
obviously!

Don Marang


----- Original Message ----- 
From: "john.falter" <john.falter@xxxxxxxxxxx>
To: <jawsscripts@xxxxxxxxxxxxx>
Sent: Friday, January 23, 2009 2:14 PM
Subject: [jawsscripts] Re: Character Index in String?


> Some of my documents have unwanted "255" characters. I use this script 
> with
> JAWS 10 to remove them.
> Script clean ()
> ;alt shift r
> let gs1 = GetClipboardText () ; clipboard to input string
> let gs3 = "" ; initialize output string
> let glen = StringLength (gs1)
> SayInteger (glen) ; how many characters at start
>
> ; tell me if cleaning is necessary
> if StringContains (gs1, "\255") then say ("yes",1) endif
>
> ; stop when no more 255 characters
> while StringContains (gs1, "\255")
> let gpos = StringContains (gs1, "\255") ; gpos is the position of the next
> 255
> ;SayInteger (gpos) during testing
>
> ; copy to output all characters up to but not including 255
> let gs3 = gs3 + SubString (gs1, 1, gpos-1)
>
> ; delete from input all characters up to and including the 255
> LET GS1 = stringChopLeft (gs1, gpos)
> endwhile
>
> CopyToClipboard (gs3) ; output string to clipboard
> let glen = StringLength (gs3) ; how many remaining characters
> SayInteger (glen)
>
> EndScript
> ----- Original Message ----- 
> From: "Donald Marang" <donald.marang@xxxxxxxxx>
> To: <jawsscripts@xxxxxxxxxxxxx>
> Sent: Thursday, January 22, 2009 3:39 AM
> Subject: [jawsscripts] Re: Character Index in String?
>
>
>> Surprisingly, that is not the way it works for me in JAWS 10!  I think I
>> recall every other language library behabing that way.  Of course, that
>> has
>> been a long time.  Maybe my mind is foggy.  The StringContainsChars
>> function
>> strictly returns a 1 or 0, just as it is documented.  But I need a
>> function
>> that returns the index of the character in the string.  In most 
>> languages,
>> even APL, there is ann easy way to get the index of a character in a
>> string.
>> Below is a section of code where I was doing this experiment:
>>
>> SayString ("You have selected " + sChoiceButton)
>> Let iChop = StringContainsChars (sChoiceButton, ":")
>> SayString ("find  index = " + IntToString (iChop))
>> If iChop Then
>> Let sChoiceButton = StringLeft (sChoiceButton, iChop)
>> SayString (" String chopped to:  " + sChoiceButton)
>> EndIf
>>
>> Thanks for your help!
>>
>> Don Marang
>>
>>
>> ----- Original Message ----- 
>> From: "john.falter" <john.falter@xxxxxxxxxxx>
>> To: <jawsscripts@xxxxxxxxxxxxx>
>> Sent: Wednesday, January 21, 2009 11:18 PM
>> Subject: [jawsscripts] Re: Character Index in String?
>>
>>
>>> Try:
>>> let int1 = stringContains(string1, "something")
>>> The position of something will be in int1.
>>> int1 will be zero if something is not found.
>>>
>>> ----- Original Message ----- 
>>> From: "Donald Marang" <donald.marang@xxxxxxxxx>
>>> To: <jawsscripts@xxxxxxxxxxxxx>
>>> Sent: Wednesday, January 21, 2009 10:06 PM
>>> Subject: [jawsscripts] Character Index in String?
>>>
>>>
>>>> Hopefully, this is an easy question for you guys.I want to remove all
>>>> characters in a string after the occurrence of a certain character, 
>>>> lets
>>>> say ":", and including that character.  I looked at the StringLeft and
>>>> StringContainsChars functions.  To have these two functions work
>>>> together,
>>>> the StringContainsChars would need to return the index where the
>>>> character
>>>> was found rather than just a Boolean True or false.  Are there more
>>>> appropriate functions or methods to accomplish this simple task.
>>>> For instance I want to transform the string
>>>> "Menu:only available in To DVD mode"
>>>> to
>>>> "Menu"
>>>>
>>>> Don Marang
>>>>
>>>>
>>>> __________
>>>> Visit and contribute to The JAWS Script Repository
>>>> http://jawsscripts.com
>>>>
>>>> View the list's information and change your settings at
>>>> http://www.freelists.org/list/jawsscripts
>>>>
>>>
>>> __________
>>> Visit and contribute to The JAWS Script Repository 
>>> http://jawsscripts.com
>>>
>>> View the list's information and change your settings at
>>> http://www.freelists.org/list/jawsscripts
>>>
>>
>> __________
>> Visit and contribute to The JAWS Script Repository http://jawsscripts.com
>>
>> View the list's information and change your settings at
>> http://www.freelists.org/list/jawsscripts
>>
>
> __________
> Visit and contribute to The JAWS Script Repository http://jawsscripts.com
>
> View the list's information and change your settings at
> http://www.freelists.org/list/jawsscripts
> 

__________ 
Visit and contribute to The JAWS Script Repository http://jawsscripts.com

View the list's information and change your settings at 
http://www.freelists.org/list/jawsscripts

Other related posts: