_StringStripChr()

[James]

Hi,

Another snippet I had from over my AutoIting. I know StringReplace() can do the same thing, but it's always nice to see people using their intuition isn't it

ConsoleWrite(_StringStripChr("AutoIt3 for the win!", "o") & @CRLF)

Func _StringStripChr($from, $what)
    $StripOut = $From
    For $i = 1 To StringLen($what)
        $StripOut = StringReplace($StripOut, StringMid($what, $i, 1), "")
    Next
    Return $StripOut
EndFunc

James

[martin]

  JamesB said:

Hi,

Another snippet I had from over my AutoIting. I know StringReplace() can do the same thing, but it's always nice to see people using their intuition isn't it

ConsoleWrite(_StringStripChr("AutoIt3 for the win!", "o") & @CRLF)

Func _StringStripChr($from, $what)
    $StripOut = $From
    For $i = 1 To StringLen($what)
        $StripOut = StringReplace($StripOut, StringMid($what, $i, 1), "")
    Next
    Return $StripOut
EndFunc

James

That is really awful

A replacement for StringReplace that uses StringReplace and even then doesn't work.

_StringStrip("anything you like at all because it makes no differenc","the quick brown fox jumps over the lazy dog") returns not a lot I would expect.

$stripout = $from seems redundant; why not just use $from?

But apart from that it's great.

[James]

Well I do sort of suck at AutoIt!

[MrCreatoR]

This what i am expecting from such function:

expandcollapse popup

$String = ", ,C:Some dirSome File,,"

$Strip_Results = _StringStripChars($String, ", ", 3, 0, 1) ;3 = Strip from the both sides
$Strip_Results = StringFormat("$Strip_Results = %sn@extended = %d", $Strip_Results, @extended)

ConsoleWrite($Strip_Results)

;===============================================================================
; Function Name:         _StringStripChars()
; Description:           Strip (replace) certain character(s) from the String.
;
; Parameter(s):          $sString - String that character(s) will be striped from.
;                        $sSubString - The character(s) to strip.
;                        $iFlag [Optional] - Defines the behaviour of stripping process (see Returned value(s)).
;                        $iCount [Optional] - Defines how many times to perform the strip (see Returned value(s)).
;                        $iGroupChars [Optional] - If this parameter is 1 (default is 0), then all characters in $sSubString grouped and replaced seperately.
;
; Requirement(s):        AutoIt 3.2.8.1 +
;
; Return Value(s):       On seccess - Return new string with stripped characters accourding to given $Flag and $iCount:
;                               $iFlag = 0 (default) replace the character(s) in $sString whetewer it founded - with this flag,
;                                   also @extended is set to number of $sSubString replaces in $sString.
;                               $iFlag = 1 replace the character(s) from the Left side of $sString.
;                               $iFlag = 2 replace the character(s) from the Right side of $sString.
;                               $iFlag = 3 replace the character(s) from the Bouth sides of $sString.
;
;                               $iCount = 0 replace all $sSubString char(s).
;                               $iCount > 0 replace that much $sSubString char(s).
;
;                        On failure - If lenght of given string is equel 0, then @error set to 1 and returned initial $sString.
;                       
; Author(s):             amel27, mod. by G.Sandler a.k.a MsCreatoR
;===============================================================================
Func _StringStripChars($sString, $sSubString, $iFlag = 0, $iCount = 0, $iGroupChars = 0)
    If StringLen($sString) = 0 Then Return SetError(1, 0, $sString)
    
    Local $sGroupChar_a = '(', $sGroupChar_b = ')'
    If $iCount < 0 Then Local $sGroupChar_a = '[', $sGroupChar_b = ']'
    
    $sSubString = StringRegExpReplace($sSubString, '([][{}()|.?+*^$])', '1')
    
    If $iGroupChars = 1 Then $sSubString = '[' & $sSubString & ']'
    
    Local $sPattern = '(?i)' & $sGroupChar_a & $sSubString & $sGroupChar_b
    Local $sPattern_Count = '{1,' & $iCount & '}'
    
    If $iCount <= 0 Then $sPattern_Count = '+'
    If $iFlag <> 0 Then $iCount = 0
    If $iFlag = 1 Then $sPattern = '(?i)^' & $sGroupChar_a & $sSubString & $sGroupChar_b & $sPattern_Count
    If $iFlag = 2 Then $sPattern = '(?i)' & $sGroupChar_a & $sSubString & $sGroupChar_b & $sPattern_Count & '$'
    If $iFlag = 3 Then $sPattern = '(?i)^' & $sGroupChar_a & $sSubString & $sGroupChar_b & $sPattern_Count & '|' & _
        $sGroupChar_a & $sSubString & $sGroupChar_b & $sPattern_Count & '$'
    
    $sString = StringRegExpReplace($sString, $sPattern, '', $iCount)
    Return SetExtended(@extended, $sString)
EndFunc

Edited January 16, 2012 by MrCreatoR

[martin]

  JamesB said:

Well I do sort of suck at AutoIt!

Not at all, that's not true. If I thought that I wouldn't have been so hard on you.

[NELyon]

Yep, You Really Suck at Autoit

@Creator:

Niiiice.

[James]

  martin said:

Not at all, that's not true. If I thought that I wouldn't have been so hard on you.

Thanks Martin!

  KentonBomb said:

Yep, You Really Suck at Autoit

Well, that was a lucky thing I guess, I mean it was being compared to work by others who have so much more experience - Disk Manager, one of the best pieces of work I have done in AutoIt, I'm still thinking of ideas and running test ideas to improve it. One idea is to be able to expand the GUI so that there is a listview with a selected partition/drives contents - Difficult!

@Creator, that is a really good way of doing it, but I don't understand StringRegExp(), never have, anything that can help me?

Thanks all!