STRTRAN case

[Marc Vanzegbroeck]

Hi,

I have a text with lower and upper case charachters.
I want to to a replace op a text with another text.
The problem is that I don't know this text is upper or lower case.
How can I replace only that text,and leave the other case normal?
If I do

Code: Select all  Expand view  RUN

result = strtran(upper(text),alltrim(upper(oldtext)),alltrim(upper(newtext)))

than everything is upper-case.

[karinha]

Code: Select all  Expand view  RUN

   ? ISUPPER( "Abcde" )    // .T.
   ? ISUPPER( "abcde" )    // .F.
 

Seealso

ISALPHA(), ISLOWER(), ISDIGIT(), LOWER(), UPPER()

Regards.

[MarcoBoschi]

Marc,
can you give us an example?
bye

[Marc Vanzegbroeck]

Marco,

In this example I wat to change the text 'MARCTAG001' with 'PI101'
I don't know the case of 'MarcTag001'

Code: Select all  Expand view  RUN

<property name="PointRefPointName">MarcTag001</property>

After the replace the result should be

Code: Select all  Expand view  RUN

<property name="PointRefPointName">PI101</property>

BTW : I'ts not always between 'PointRefPointName', so I can't search fo that.

[rhlawek]

Marc,

I suggest going here and reading about the hb_StrReplace() function. Much more flexible than StrTran.

https://github.com/Petewg/harbour-core/wiki/hb_S

[Marcelo Via Giglio]

Hola,

can be usefull to see this page https://github.com/Petewg/harbour-core/wiki/Regular-Expressions too

saludos

Marcelo

[Marc Vanzegbroeck]

I was hoping on a extra parameter like in foxpro
https://books.google.be/books?id=gdPcwWlj_ckC&pg=PA122&lpg=PA122&dq=foxpro+strtran+function+case&source=bl&ots=z_7KtPFNgw&sig=ACfU3U2H4pk8aTRtSdxJTZ9GkYx62_foBg&hl=nl&sa=X&ved=2ahUKEwiPm_Hen6jnAhWO_KQKHbC0A-kQ6AEwCHoECC8QAQ#v=onepage&q=foxpro%20strtran%20function%20case&f=false

[nageswaragunupudi]

Code: Select all  Expand view  RUN

  local cText    := "This is HIS List"
   local cSearch  := "IS"
   local cReplace := "99"

   FW_At( cSearch, @cText, nil, nil, .f., .f., nil, cReplace, .t. )
   ? cText  // -> Th99 99 H99 L99t"
   
//   Syntax: FW_AT( acSub, @cString, nStart, nEnd, lWholeWord, lSkipQuotes, @cFound, cReplace, lAll ) // FWH1905
 

Another approach

Code: Select all  Expand view  RUN

  local cText    := "This is HIS List"
   local cSearch  := "IS"
   local cReplace := "99"
   local nAt

   do while ( nAt := AT( cSearch, UPPER( cText ) ) ) > 0
      cText  := STUFF( cText, nAt, Len( cSearch ), cReplace )
   enddo

   ? cText //-> "Th99 99 H99 L99t"
 

[Marc Vanzegbroeck]

Thank you Rao,

I think I have to upgrade my FW...

Or I can use you other approach

[nageswaragunupudi]

It is good to upgrade but in the same post, I have also given a solution for older versions.

[Marc Vanzegbroeck]

Thank you Rao,

I saw it after I posted my replay

[reinaldocrespo]

Hello everyone;

When searching for text, I find that nothing is as good as using regular expressions. hb_RegExAll() --my favorite, will search for a regular expression on any string and return a double dimensioned array with all matches. Once you do know the matches you could potentially use StrTran to replace with desired text, or you could use hb_RegExReplace() to do so from the very beginning.

To build the regular expression you cal always look at any regular expression tutorial and tester online. That's what I do every time I need to build a regular expression for anything.

For example:

Code: Select all  Expand view  RUN

#define _SEARCH ">[A-Z]*[a-z]*[A-Z]*[a-z]*[0-9]*<"

LOCAL cYourString := '<property name="PointRefPointName">MarcTag001</property>'
LOCAL cReplaceWith := '>PI101<'

HB_RegExReplace( _SEARCH, cYourString, cReplaceWith )

 

Hope that helps,


Reinaldo.