Attn Jezebel: Search and Replace in String

Tutorials Win: Microsoft Windows Forum

Jezebel,

Your earlier response to my issue works perfectly by itself. But when I add
it to an IF statement, the macro completely runs over it bringing back a
negative response, therefore treating the line of code as if it had been
commented out.

Would you have any idea as to what the problem could be...

My code is...


If InStr(1, MyData, Chr(150)) > 0 Then

MyData = Replace$(OldData, Chr$(150), "-")

End If


*******************************************************


em-dash is chr(150)

BTW, the string versions of these functions are about 10 times faster than
the variant equivalents --

MyData = Replace$(OldData, chr$(150), "-")




"Vince" <sdsad@fsd.com> wrote in message
news:uU2pIoBCFHA.244@TK2MSFTNGP10.phx.gbl...
> myData=Replace(myData,chr(40),"-")
>
> OR
> myData=Replace(myData,"¾","-")
>
> Is this what you want?
>
> Vince
>
> "Eternally grateful" <Eternally grateful@discussions.microsoft.com> wrote
> in
> message news:1D3B6AAD-28BA-4C32-A474-A934B6C114E0@microsoft.com...
>> Can anyone tell me if it is possible to perform a search and replace
> inside
>> of a string?
>>
>> I have a string called myData that contains an emdash that I need to
> change
>> into a hyphen and I cannot find a way to do this.
>>
>> Any assistance would be greatly appreciated.
>>
>> Thank you for taking them time to read this.
>
>
Top

Re: Attn Jezebel: Search and Replace in String by Jonathan

Jonathan
Tue Feb 01 19:39:49 CST 2005

Shouldn't that first line use OldData instead of MyData?

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

"Eternally Grateful" <Eternally Grateful@discussions.microsoft.com> wrote in
message news:9160619A-490D-4430-A3DE-7504C2E9CDEA@microsoft.com...
> Jezebel,
>
> Your earlier response to my issue works perfectly by itself. But when I
> add
> it to an IF statement, the macro completely runs over it bringing back a
> negative response, therefore treating the line of code as if it had been
> commented out.
>
> Would you have any idea as to what the problem could be...
>
> My code is...
>
>
> If InStr(1, MyData, Chr(150)) > 0 Then
>
> MyData = Replace$(OldData, Chr$(150), "-")
>
> End If
>
>
> *******************************************************
>
>
> em-dash is chr(150)
>
> BTW, the string versions of these functions are about 10 times faster than
> the variant equivalents --
>
> MyData = Replace$(OldData, chr$(150), "-")
>
>
>
>
> "Vince" <sdsad@fsd.com> wrote in message
> news:uU2pIoBCFHA.244@TK2MSFTNGP10.phx.gbl...
>> myData=Replace(myData,chr(40),"-")
>>
>> OR
>> myData=Replace(myData,"¾","-")
>>
>> Is this what you want?
>>
>> Vince
>>
>> "Eternally grateful" <Eternally grateful@discussions.microsoft.com> wrote
>> in
>> message news:1D3B6AAD-28BA-4C32-A474-A934B6C114E0@microsoft.com...
>>> Can anyone tell me if it is possible to perform a search and replace
>> inside
>>> of a string?
>>>
>>> I have a string called myData that contains an emdash that I need to
>> change
>>> into a hyphen and I cannot find a way to do this.
>>>
>>> Any assistance would be greatly appreciated.
>>>
>>> Thank you for taking them time to read this.
>>
>>
>
>
>
>
>
>
>
>

Top

Re: Attn Jezebel: Search and Replace in String by Jezebel

Jezebel
Tue Feb 01 20:46:59 CST 2005

First, as Jonathan has picked up -- the function argument is MyData or
OldData or whatever variable you are using. The fact that you didn't get an
error on this means that you don't have an 'Option Explicit' statement at
the top of your code module. Put one in immediately, and set the option so
that it's automatic in future. You'll save yourself a heap of anguish.

However, a critical problem is that I led you astray. Chr$(150) is an EN
dash. EM dash is 151.

Also, there's no need for the IF statement. Replace looks for one string and
replaces it with another if found. If not found it does nothing.




"Eternally Grateful" <Eternally Grateful@discussions.microsoft.com> wrote in
message news:9160619A-490D-4430-A3DE-7504C2E9CDEA@microsoft.com...
> Jezebel,
>
> Your earlier response to my issue works perfectly by itself. But when I
> add
> it to an IF statement, the macro completely runs over it bringing back a
> negative response, therefore treating the line of code as if it had been
> commented out.
>
> Would you have any idea as to what the problem could be...
>
> My code is...
>
>
> If InStr(1, MyData, Chr(150)) > 0 Then
>
> MyData = Replace$(OldData, Chr$(150), "-")
>
> End If
>
>
> *******************************************************
>
>
> em-dash is chr(150)
>
> BTW, the string versions of these functions are about 10 times faster than
> the variant equivalents --
>
> MyData = Replace$(OldData, chr$(150), "-")
>
>
>
>
> "Vince" <sdsad@fsd.com> wrote in message
> news:uU2pIoBCFHA.244@TK2MSFTNGP10.phx.gbl...
>> myData=Replace(myData,chr(40),"-")
>>
>> OR
>> myData=Replace(myData,"¾","-")
>>
>> Is this what you want?
>>
>> Vince
>>
>> "Eternally grateful" <Eternally grateful@discussions.microsoft.com> wrote
>> in
>> message news:1D3B6AAD-28BA-4C32-A474-A934B6C114E0@microsoft.com...
>>> Can anyone tell me if it is possible to perform a search and replace
>> inside
>>> of a string?
>>>
>>> I have a string called myData that contains an emdash that I need to
>> change
>>> into a hyphen and I cannot find a way to do this.
>>>
>>> Any assistance would be greatly appreciated.
>>>
>>> Thank you for taking them time to read this.
>>
>>
>
>
>
>
>
>
>
>


Top

Re: Attn Jezebel: Search and Replace in String by Jay

Jay
Tue Feb 01 20:52:55 CST 2005

Besides that, the If is probably unnecessary. If the old string
doesn't contain any em dashes, the result of the Replace is the same
as the old string, so that's all you need. The only reason to have the
If statement would be that you don't want to assign anything to MyData
if there are no em dashes in OldData. I'll bet that isn't your
intention.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

On Wed, 2 Feb 2005 01:39:49 -0000, "Jonathan West" <jwest@mvps.org>
wrote:

>Shouldn't that first line use OldData instead of MyData?
>
>--
>Regards
>Jonathan West - Word MVP
>www.intelligentdocuments.co.uk
>Please reply to the newsgroup
>
>"Eternally Grateful" <Eternally Grateful@discussions.microsoft.com> wrote in
>message news:9160619A-490D-4430-A3DE-7504C2E9CDEA@microsoft.com...
>> Jezebel,
>>
>> Your earlier response to my issue works perfectly by itself. But when I
>> add
>> it to an IF statement, the macro completely runs over it bringing back a
>> negative response, therefore treating the line of code as if it had been
>> commented out.
>>
>> Would you have any idea as to what the problem could be...
>>
>> My code is...
>>
>>
>> If InStr(1, MyData, Chr(150)) > 0 Then
>>
>> MyData = Replace$(OldData, Chr$(150), "-")
>>
>> End If
>>
>>
>> *******************************************************
>>
>>
>> em-dash is chr(150)
>>
>> BTW, the string versions of these functions are about 10 times faster than
>> the variant equivalents --
>>
>> MyData = Replace$(OldData, chr$(150), "-")
>>
>>
>>
>>
>> "Vince" <sdsad@fsd.com> wrote in message
>> news:uU2pIoBCFHA.244@TK2MSFTNGP10.phx.gbl...
>>> myData=Replace(myData,chr(40),"-")
>>>
>>> OR
>>> myData=Replace(myData,"¾","-")
>>>
>>> Is this what you want?
>>>
>>> Vince
>>>
>>> "Eternally grateful" <Eternally grateful@discussions.microsoft.com> wrote
>>> in
>>> message news:1D3B6AAD-28BA-4C32-A474-A934B6C114E0@microsoft.com...
>>>> Can anyone tell me if it is possible to perform a search and replace
>>> inside
>>>> of a string?
>>>>
>>>> I have a string called myData that contains an emdash that I need to
>>> change
>>>> into a hyphen and I cannot find a way to do this.
>>>>
>>>> Any assistance would be greatly appreciated.
>>>>
>>>> Thank you for taking them time to read this.
>>>
>>>
>>
>>
>>
>>
>>
>>
>>
>>

Top