Wildcard ersetzung

TheLuBu

Hallöchen liebe Community,

Ich habe mal ein kleines Wildcardersetzungsscript geschrieben, weil ich das für eines meiner Programme gebraucht habe, und da ihr mir sehr geholfen habt, wollte ich auch einen kleinen Teil zurückgeben

Sagt mir was ihr davon haltet oder auch nicht

Spoiler anzeigen

[autoit]

; #FUNCTION#
;===============================================================================
; Function Name: _Wildcards($sString, $avArray, $iStart = 0)
; Description: Ersetzt mehrere Teile eines Strings
; Parameter(s): $sString Der String, in dem die Wildcards ersetzt werden sollen
; $avArray Das Array, in dem die Wildcards und die Replacements gespeichert sind
; $iStart=0 Index des Arrays (Standard = 0)
; //// In der ersten Dimension müssen die Wildcards stehen
; //// $avArray[$i][0] ="<Monat>"
; //// In der zweiten Dimension müssen die Replacements stehen
; //// $avArray[$i][1] = @MON
; Return Value(s): Erfolg Gibt den neuen String zurück
; Fehler set @error 1 - $avArray ist kein Array
; 2 - $avArray ist kein 2-dimensionales Array
; Author(s): TheLuBu ([email='LuBu@veytal.com'][/email])
;===============================================================================
Func _Wildcards(ByRef $sString, ByRef $avArray, $iStart = 1)
If Not IsArray($avArray) Then Return SetError(1, 0, -1)
If UBound($avArray, 0) <> 2 Then Return SetError(2, 0, -1)
For $i = $iStart To UBound($avArray) - 1
$sString = StringReplace($sString, $avArray[$i][0], $avArray[$i][1])
Next
EndFunc ;==>_Wildcards

[/autoit]

TheLuBu

**Oscar**

Ich bin jetzt mal gemein und verfasse einen kritischen Beitrag:
- ByRef benutzen (spart die Rückgabe mit Return)
- $Replace wurde nicht als Local deklariert
- $Replace ist aber sowieso überflüssig
- Fehlerbehandlung fehlt (falls $Array gar kein Array ist)

SCNR

TheLuBu

Vielen Dank für die Kritik Oscar, ich bin nicht böse drum. Für mich hat es so funktioniert, aber wenn man ne 2te Meinung bekommt, sieht man besser, was man vergessen hat

Ok hier mit Fehlerüberprüfung ( $Array muss Array sein, und $Array muss 2-dimensional sein)
$Replace als Lokale Variable dekliniert
ByRef eingesetzt

Zum $Replace,
Da durch die Schleife jeder Eintrag des Arrays mit dem String verglichen und nacheinander ersetzt wird ,
muss $String = $Replace gesetzt werden (wenn ich mich da nicht täusche ^^).
Falls nicht bitte ich um Verzeihung

Spoiler anzeigen

[autoit]

;===============================================================================
; Function Name: _Wildcards($String, $Array, $iStart = 0)
; Description: Ersetzt mehrere Teile eines Strings

[/autoit] [autoit][/autoit] [autoit]

; Parameter(s): $String Der String, in dem die Wildcards ersetzt werden sollen
; $Array Das Array, in dem die Wildcards und die Replacements gespeichert sind
; $iStart=0 Index des Arrays (Standard = 0)
; //// In der ersten Dimension müssen die Wildcards stehen
; //// $Array[$i][0] ="<Monat>"
; //// In der zweiten Dimension müssen die Replacements stehen
; //// $Array[$i][1] = @MON
; Return Value(s): Erfolg Gibt den neuen String zurück
; Fehler set @error 1 - $Array ist kein Array
; 2 - $Array ist kein 2-dimensionales Array
; Author(s): TheLuBu ([email='TheLuBu@veytal.com'][/email])
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _Wildcards(ByRef $String, ByRef $Array, $iStart = 1)
Local $Replace
If Not IsArray($Array) Then Return SetError(1, 0, -1)
If UBound($Array, 0) <> 2 Then Return SetError(2, 0, -1)
For $i = $iStart To UBound($Array) - 1
$String = StringReplace($String, $Array[$i][0], $Array[$i][1])
Next
EndFunc ;==>_Wildcards

[/autoit]

**Oscar**

Ich meinte es eher so:

Spoiler anzeigen

[autoit]

$String = 'bla <monat> blubb <jahr> blablubb'
Dim $Array[2][2] = [['<monat>', '@MON'], ['<jahr>', '@YEAR']]
_Wildcards($String, $Array)
MsgBox(0, '', $String)

[/autoit] [autoit][/autoit] [autoit]

Func _Wildcards(ByRef $String, ByRef $Array, $iStart = 0)
If Not IsArray($Array) Then Return SetError(1, 0, -1)
If UBound($Array, 0) <> 2 Then Return SetError(2, 0, -1)
For $i = $iStart To UBound($Array) - 1
$String = StringReplace($String, $Array[$i][0], $Array[$i][1])
Next
EndFunc ;==>_Wildcards

[/autoit]

$Replace brauchst Du nicht und wenn Du ByRef verwendest, wird direkt die Variable aus dem Hauptprogramm geändert (kein Return $String nötig).

TheLuBu

Das meinte ich mit einer 2ten Meinung

Vielen Dank