在vb.net中创建替换函数

时间:2010-04-01 09:57:35

标签: vb.net replace

请帮我创建替换功能。 问题:         它们是任意长度的字母数字值(字符串),我想用'X'替换所有字符,除了右边四个字符

喜欢:       价值:4111111111111111 结果应为:XXXXXXXXXXXX1111

我创建了一个函数但卡住了:

public function myfunction(str as string)
  str.Replace(str.Substring(0, str.Length - 5), 'X') 'but here I want no of x to be equals to count of length of str - 4
end function

执行此类操作有什么更好的功能?

3 个答案:

答案 0 :(得分:2)

尝试使用此尺寸。

Public Shared Function ObfuscateCardNumber(ByVal cardNumber As String) As String
    If cardNumber.Length <= 4 Then
        Return cardNumber
    Else
        Return cardNumber _
            .Substring(cardNumber.Length - 4, 4) _
            .PadLeft(cardNumber.Length, "X"c)
    End If
End Function

答案 1 :(得分:1)

Dim sNumber As String = "4111111111111111"
Dim sResult As String = StrDup(sNumber.Length - 4, "X"c) + Strings.Right(sNumber, 4)

答案 2 :(得分:0)

类似

  

字符串结果(int i = 0; i&gt; str.length -4; i ++)   {   result =结果+ x    }   result = result + str.substrin(得到   最后4)