StringReplace only undercase area

[handofthrawn]

I have words like

ABCa.AB

DEFb.AB

GHIa.AB

I need to change those to

ABC.A-AB

DEF.B-AB

GHI.A-AB

Right now I manually do it with stringreplace, for example $desiredString = StringReplace($desiredString, "ABCa.AB", "ABC.A-AB")

I was wondering if there was a way to search for all the undercase letters and change it to an uppercase with a "." before it and a "-" after it?  I only have "a" and "b" to look for so maybe just change all "a." to ".A-".   Is there a way to do this?  Thanks for any help as I'm still figuring this scripting out.

 

[iamtheky]

;~ $string = "ABCa.AB"
;~ $string = "DEFb.AB"
$string = "GHIa.AB"

$newStr = stringinstr($string , "a.") ? stringreplace($string , "a." , ".A-") : stringreplace($string , "b." , ".B-")

msgbox(0, '' , $newStr)

 

Edited October 22, 2015 by boththose

[handofthrawn]

Wow, so simple I feel like an idiot :/

 

Thanks for hleping me out boththose.  Have a great day.

[Jury]

Oh my student days circa 1975 -

UpLow("c")

Func UpLow ($char)
$Asc = Asc($char)
If $Asc >= 97 And $Asc <= 122 Then
    $Asc = $Asc - 32
    ConsoleWrite($Asc & ' : ' & Chr($Asc) & @CRLF)
ElseIf $Asc >= 65 And $Asc <= 90 Then
    $Asc = $Asc + 32
    ConsoleWrite($Asc & ' : ' & Chr($Asc) & @CRLF)
EndIf
EndFunc

I still use this!

 

 

Edited October 23, 2015 by Jury

[jchd]

That's limited to english-type languages.

[Jury]

Oh I didn't spot all the non-english letters in handofthrawn question - then I'd use a bunch of these:

 

$chr ="È"
ConsoleWrite(StringRegExpReplace($chr, "(*UCP)\x{00C8}", "è") & @CRLF)

 

Edited October 23, 2015 by Jury

[mikell]

;$string = "ABCa.AB"
;$string = "DEFb.AB"
$string = "GHIa.AB"

$newStr = Execute("'" & StringRegExpReplace($string, "([ab])\.", ".' & StringUpper('$1') & '-") & "'")
Msgbox(0, '' , $newStr)

[Spider001]

https://www.autoitscript.com/autoit3/docs/functions/StringUpper.htm

[Jury]

Ha! Spider001 - that's to easy (really thanks for pointing this out - I forgot - if I ever knew)