replace a character i specific modes !

[AlienStar]

hello everybody  

first I read many examples but nothing help!

I have this string:

Quote

Company name: galaxy-1
Address: 1st. sq, - build 1
Tel: 011-2333 - 055-2213
Fax: 033-11124423

all I need is to delete "-" which is included in numbers only! so I need this result:

Quote

Company name: galaxy-1
Address: 1st. sq, - build 1
Tel: 0112333 - 0552213 
Fax: 03311124423

If I used StringReplace function it replace all "-", not as above 

please help 

 

[TheXman]

Here's one of many ways that it can be done:

Example()
Func Example()
    Local $sBefore = _
        "Company name: galaxy-1" & @CRLF & _
        "Address: 1st. sq, - build 1" & @CRLF & _
        "Tel: 011-2333 - 055-2213" & @CRLF & _
        "Fax: 033-11124423" & @CRLF
    Local $sAfter = StringRegExpReplace($sBefore, "\b(\d+)-(\d+)\b", "\1\2")

    ConsoleWrite("Before:" & @CRLF & $sBefore)
    ConsoleWrite(@CRLF)
    ConsoleWrite("After:" & @CRLF & $sAfter)
EndFunc

Output:

Before:
Company name: galaxy-1
Address: 1st. sq, - build 1
Tel: 011-2333 - 055-2213
Fax: 033-11124423

After:
Company name: galaxy-1
Address: 1st. sq, - build 1
Tel: 0112333 - 0552213
Fax: 03311124423

 

Edited December 4, 2018 by TheXman

[AlienStar]

3 hours ago, TheXman said:

Here's one of many ways that it can be done:

Example()
Func Example()
    Local $sBefore = _
        "Company name: galaxy-1" & @CRLF & _
        "Address: 1st. sq, - build 1" & @CRLF & _
        "Tel: 011-2333 - 055-2213" & @CRLF & _
        "Fax: 033-11124423" & @CRLF
    Local $sAfter = StringRegExpReplace($sBefore, "\b(\d+)-(\d+)\b", "\1\2")

    ConsoleWrite("Before:" & @CRLF & $sBefore)
    ConsoleWrite(@CRLF)
    ConsoleWrite("After:" & @CRLF & $sAfter)
EndFunc

Output:

Before:
Company name: galaxy-1
Address: 1st. sq, - build 1
Tel: 011-2333 - 055-2213
Fax: 033-11124423

After:
Company name: galaxy-1
Address: 1st. sq, - build 1
Tel: 0112333 - 0552213
Fax: 03311124423

 

it works fine thaaaanks so much