Y at-il une fonction de création dans VBScript pour découper un caractère spécifique?

Question

Il existe des fonctions dans VBScript Trim, LTrim et RTrim pour supprimer les espaces de début et/ou de fin de chaîne. Y at-il une fonction pour le faire pour n'importe quel personnage? Par exemple:

RTrim(" Hello, World!000", "0")  ' returns " Hello, World!" 

Answer 1

Aucune fonction existe construit, mais vous pouvez écrire votre propre:

Function RTrimChar(byRef myString, byVal myChar) 
    While Right(myString,1) = myChar 
     myString = Left(myString, Len(myString)-1) 
    End While 
    RTrimChar = myString 
End Function 

Answer 2

Il n'y a pas de fonction spécifique pour cela dans VBScript, mais vous pouvez utiliser un remplacement d'expression régulière dans une mesure fonction:

Function CustomRTrim(str, c) 
    If c = "" Then 
    CustomRTrim = str 
    Else 
    Set re = New RegExp 
    re.Pattern = Left(c, 1) & "*$" 
    CustomRTrim = re.Replace(str, "") 
    End If 
End Function 

Answer 3

Non, mais vous pouvez utiliser un regular expression. Pour vous aider à démarrer:

>> set r = New RegExp 
>> r.Pattern = "0+$" 
>> WScript.Echo r.Replace(" Hello, World! 00 a0000", "") 
>> 
Hello, World! 00 a 
>> 

(ci-dessus est sortie in extenso de mon REPL, donc je préfère garder le format)