2016-10-19 17 views

答えて

0

機能なしを内蔵していない存在しますが、あなたがあなた自身を書くことができます:

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

ありのVBScriptで、このための具体的な機能はありませんが、カスタムでの正規表現の置換を使用することができます関数:

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 
+0

はなぜ「*の$」の代わりには「+ $」を使用すべきですか? –

+0

AFAICSそれは違いをもたらさないでしょう。 –

1

いいえ、ただしregular expressionを使用できます。作業を開始するには、次の

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

(上記の私のREPLの逐語的な出力があり、私はフォーマットを維持することを好むだろう)

関連する問題