Remplacer plusieurs caractères dans une chaîne dans une ligne de code dans VB.NET

À l'aide de VB.NET je voudrais être en mesure de remplacer une suite de caractères dans une chaîne de caractères en une seule ligne de code.

I. e., quelque chose comme:

Dim charsToReplace as string = "acegi"
Dim stringToBeReplaced as string = "abcdefghijklmnop"

charsToReplace.ToArray().ForEach(Function (c) stringTobeReplaced = stringTobeReplaced.Replace(c, ""))

Toutefois, cela ne fonctionne pas.

Le code suivant fonctionne, mais je ne veux pas la chaîne à un niveau de classe de la variable:

 Sub Main()
    Dim toReplace As String = "acegikmoq"

    Console.WriteLine(mainString)
    Dim chars As List(Of Char) = toReplace.ToList()
    chars.ForEach(AddressOf replaceVal)

    Console.WriteLine(mainString)
    Console.ReadLine()
End Sub

Dim mainString As String = "this is my string that has values in it that I am going to quickly replace all of..."

Sub replaceVal(ByVal c As Char)
    mainString = mainString.Replace(c, "")
End Sub

Cela peut-il être fait?

source d'informationauteur hitch

24

Si j'ai lu correctement, vous essayez de bande d'une liste de caractères d'une chaîne. C'est un bon ajustement pour un RegEx.
```
Console.WriteLine(Regex.Replace("abcdefghijklmnop", "[acegi]", string.Empty))
```
(vous aurez besoin de Système d'importation.Texte.RegularExpressions)
6

La RegEx approche est la mieux adaptée, mais ce que je vraiment besoin de le dire, c'est:

S'il vous plaît, pour l'amour de l'entretien de développeurs, de ne pas s'être accroché sur l'obtention de ce, jusqu'à 1 ligne de code. Un seul appel de méthode est votre véritable objectif, si vous vous retrouvez juste empiler un tas d'appels en 1 ligne pour dire que c'est une ligne, alors vous allez tirer une balle dans le pied.

Je ne crois pas Bittercode comme il l'a dit que LINQ serait mieux que les regex.
J'ai donc fait un petit test juste pour être sûr.

Trois exemples de la façon de le faire:

Dim _invalidChars As Char() = New Char() {"j"c, "a"c, "n"c}
Dim _textToStrip As String = "The quick brown fox jumps over the lazy dog"
Private Sub btnStripInvalidCharsLINQ_Click(sender As System.Object, e As System.EventArgs) Handles btnStripInvalidCharsLINQ.Click
Dim stripped As String = String.Empty
Dim sw As Stopwatch = Stopwatch.StartNew
For i As Integer = 0 To 10000
stripped = _textToStrip.Where(Function(c As Char) Not _invalidChars.Contains(c)).ToArray
Next
sw.Stop()
lblStripInvalidCharsLINQ.Text = _stripped & " - in " & sw.Elapsed.TotalMilliseconds & " ms"
End Sub
Private Sub btnStripInvalidCharsFOR_Click(sender As System.Object, e As System.EventArgs) Handles btnStripInvalidCharsFOR.Click
Dim stripped As String = String.Empty
Dim sw As Stopwatch = Stopwatch.StartNew
stripped = _textToStrip
For i As Integer = 0 To 10000
For Each c As Char In _invalidChars
stripped = stripped.Replace(c, "")
Next
Next
sw.Stop()
lblStipInvalidcharsFor.Text = stripped & " - in " & sw.Elapsed.TotalMilliseconds & " ms"
End Sub
Private Sub btnStripInvalidCharsREGEX_Click(sender As System.Object, e As System.EventArgs) Handles btnStripInvalidCharsREGEX.Click
Dim stripped As String = String.Empty
Dim sw As Stopwatch = Stopwatch.StartNew
For i As Integer = 0 To 10000
stripped = Regex.Replace(_textToStrip, "[" & New String(_invalidChars) & "]", String.Empty)
Next
sw.Stop()
lblStripInvalidCharsRegex.Text = stripped & " - in " & sw.Elapsed.TotalMilliseconds & " ms"
End Sub

Les résultats:

Remplacer plusieurs caractères dans une chaîne dans une ligne de code dans VB.NET

Donc, la boucle for avec de la ficelle.remplacer outperformes toutes les autres méthodes.

À cause de cela, je voudrais faire une extension de la fonction de l'objet de type string.

Module StringExtensions
<Extension()> _
Public Function ReplaceAll(ByVal InputValue As String, ByVal chars As Char(), replaceWith As Char) As String
Dim ret As String = String.Empty
For Each c As Char In chars
ret.Replace(c, replaceWith)
Next
Return ret
End Function

Vous pouvez utiliser cette fonction agréable et lisible en une seule ligne:

_textToStrip.ReplaceAll(_invalidChars, CChar(String.Empty))

1

Je recommande Jon Galloway, une expression régulière est la méthode la plus appropriée, et les futurs développeurs vous en remercie 🙂 - si ce n'est pas un problème difficile à résoudre avec Linq. Voici quelques (non testé) code C# pour le faire:
```
string stringToBeReplaced = "abcdefghijklmnop";
string charsToReplace = "acegi";
stringToBeReplaced = new String(stringToBeReplaced.Where(c => !charsToReplace.Any(rc => c == rc)).ToArray());
```
Je soupçonne que ce code ne sera probablement effectuer un peu mieux alors l'expression rationnelle équivalente, si la performance est un problème.
1

La classe String possède un remplacement de la méthode pour ce faire. Vous pouvez l'utiliser de cette façon:
```
YourString = YourString.Replace("OldValue", "NewValue")
```

Quelle est la meilleure façon de répéter l'instruction de la ligne si vous voulez vraiment utiliser ce code:

Sub Main() 
Dim myString As String = Nothing
Dim finalString As String = Nothing
Console.Write("Please enter a string: ") 'your free to put anything
myString = Console.ReadLine()
finalString = myString.Replace("0", "")
myString = finalString
finalString = myString.Replace("1", "")
myString = finalString
finalString = myString.Replace("2", "")
myString = finalString
finalString = myString.Replace("3", "")
myString = finalString
finalString = myString.Replace("4", "")
myString = finalString
finalString = myString.Replace("5", "")
myString = finalString
finalString = myString.Replace("6", "")
myString = finalString
finalString = myString.Replace("7", "")
myString = finalString
finalString = myString.Replace("8", "")
myString = finalString
finalString = myString.Replace("9", "")
Console.WriteLine(finalString)
Console.ReadLine()
End Sub

Par exemple: si vous avez tapé: 012ALP456HA90BET678 la sortie serait: ALPHABET.

Public Function SuperReplace(ByRef field As String, ByVal ReplaceString As String) As String
' Size this as big as you need... it is zero-based by default'
Dim ReplaceArray(4) As String
'Fill each element with the character you need to replace'
ReplaceArray(0) = "WARD NUMBER "
ReplaceArray(1) = "WN "
ReplaceArray(2) = "WARD NO "
ReplaceArray(3) = "WARD-"
ReplaceArray(4) = "WARD "
Dim i As Integer
For i = LBound(ReplaceArray) To UBound(ReplaceArray)
field = Replace(field, ReplaceArray(i), ReplaceString)
Next i
SuperReplace = field
End Function

Vous devez vous connecter pour publier un commentaire.