VB.NET

Question

में कोड की एक पंक्ति में स्ट्रिंग में एकाधिक वर्णों को बदलें VB.NET का उपयोग करके मैं कोड की एक पंक्ति में स्ट्रिंग में वर्णों की एक श्रृंखला को प्रतिस्थापित करने में सक्षम होना चाहता हूं।

अर्थात, और की तरह कुछ:

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

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

बहरहाल, यह काम नहीं करता।

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 

यह किया जा सकता है:

निम्नलिखित काम है, तथापि मैं नहीं चाहता कि स्ट्रिंग एक वर्ग स्तर चर करना चाहता है

?

Answer 1

स्ट्रिंग क्लास में ऐसा करने के लिए एक प्रतिस्थापन विधि है। आप इसे इस तरह से उपयोग कर सकते हैं:

YourString = YourString.Replace("OldValue", "NewValue") 

Answer 2

तो मैंने पढ़ा है यह सही ढंग से, आप एक स्ट्रिंग से वर्णों की एक सूची पट्टी की कोशिश कर रहे। यह RegEx के लिए एक अच्छा फिट है। हालांकि -

Console.WriteLine(Regex.Replace("abcdefghijklmnop", "[acegi]", string.Empty)) 

, एक रेगुलर एक्सप्रेशन उचित तरीका है, और भविष्य डेवलपर्स इसके लिए :) धन्यवाद होगा

Answer 3

मैं जॉन गैलोवे के दृष्टिकोण की सलाह देते हैं (आप System.Text.RegularExpressions आयात करना होगा) लिंक के साथ हल करने में भी मुश्किल समस्या नहीं है। मुझे लगता है इस कोड को शायद थोड़ा बेहतर तो regex बराबर प्रदर्शन करेंगे

string stringToBeReplaced = "abcdefghijklmnop"; 
string charsToReplace = "acegi"; 
stringToBeReplaced = new String(stringToBeReplaced.Where(c => !charsToReplace.Any(rc => c == rc)).ToArray()); 

, अगर प्रदर्शन एक मुद्दा है: यहाँ कुछ (untested) सी # करने के लिए कोड है।

Answer 4

RegEx दृष्टिकोण सबसे उचित होगा, लेकिन क्या मैं वास्तव में कहने की जरूरत है:

कृपया, रखरखाव डेवलपर्स के प्यार के लिए, ऐसा नहीं इस कोड के 1 लाइन करने के लिए नीचे हो रही पर लटका दिया-उठो । एक विधि कॉल आपका वास्तविक लक्ष्य है, यदि आप केवल एक लाइन में कॉल के गुच्छा को दबाकर कहते हैं कि यह एक पंक्ति है तो आप पैर में खुद को शूटिंग कर रहे हैं।

Answer 5

मुझे बिटरकोड पर विश्वास नहीं था क्योंकि उन्होंने कहा था कि LINQ रेगेक्स से बेहतर प्रदर्शन करेगा। तो मैंने सुनिश्चित करने के लिए बस थोड़ा परीक्षण किया।

तीन ऐसा करने के तरीके के उदाहरण:

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 

परिणाम:

तो, string.replace साथ पाश के लिए सभी अन्य तरीकों outperformes।

इस वजह से मैं स्ट्रिंग ऑब्जेक्ट में एक्सटेंशन फ़ंक्शन कर दूंगा।

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

Answer 6

क्या लाइन बयान दोहराने के लिए क्या तुम सच में लगता है कि कोड का उपयोग करना चाहते हैं तो सबसे अच्छा तरीका है:

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 

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 

तो फिर तुम एक पंक्ति में इस समारोह अच्छा और readably इस्तेमाल कर सकते हैं

उदाहरण के लिए: यदि आपने टाइप किया: 012ALP456HA90BET678 आउटपुट होगा: ALPHABET।

Answer 7

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