Replace durch For Each ersetzen...?

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von VincentTB.

    Replace durch For Each ersetzen...?

    Hi,

    die Frage steht schon im Titel: ich habe einen String der jenachdem ob 0, 1 oder 3 als Parameter angegeben ist jeweils Sonderzeichen, Buchstaben oder Zahlen ersetzen, nur möchte ich nicht die str = str.Replace(".", "") usw. benutzen... Da habe ich die For Each Schleife überlegt, gegoogelt(vlt. die falschen Begriffe: "String Replace For Each vb.NET") aber nichts gefunden :(

    Wisst ihr wie das geht? Shonmal ein großes Danke :)

    LG felipe12305

    Hallo,

    mache mal das:

    VB.NET-Quellcode

    1. Dim strarray() As String = DeinString.ToCharArray
    3. Dim ergebnis As String
    4. Dim zeichen() As Char = {"%"c,"/"c} 'usw.
    5. For i = 0 To strarray.Count
    6. If Not zeichen.Contains(strarray(i)) Then
    7. ergebnis = ergebnis & strarray(i)
    8. End
    9. Next
    11. ' ergebnis ist dann der fertige String


    Hab das jetzt nicht ausprobiert, sollte aber funktionieren.

    MFG

    Alex-Digital :D

    EDIT:

    Hab dann noch String To Char mit ""c gemacht,
    sonst wäre es ja nicht Option Strict On ^^
    ~ Alex-Digital :D

    if(!Internet.VBP.Get<User>("Alex-Digital").IsOnline) this.Close(); :D

    Hallo,

    ich habe das Mal mit einer Konsole getestet und so funktioniert es jetzt:

    VB.NET-Quellcode

    1. Dim strarray() As Char = Console.ReadLine.ToCharArray
    3. Dim ergebnis As String = ""
    4. Dim zeichen() As Char = {"%"c, "/"c} 'usw.
    5. For i = 0 To strarray.Count - 1
    6. If Not zeichen.Contains(strarray(i)) Then
    7. ergebnis = ergebnis & strarray(i)
    8. End If
    9. Next
    11. Console.WriteLine(ergebnis)
    12. Console.ReadLine()


    MFG

    Alex-Digital :D
    ~ Alex-Digital :D

    if(!Internet.VBP.Get<User>("Alex-Digital").IsOnline) this.Close(); :D

    Hallo,

    erstell man eine Konsolenanwendung und füge diesen Code in die Sub Main ein.

    Bei mir funktioniert es perfekt, wie es seien sollte.

    MFG

    Alex-Digital :D
    ~ Alex-Digital :D

    if(!Internet.VBP.Get<User>("Alex-Digital").IsOnline) this.Close(); :D

    Hi
    folgende Funktionen könnten auch von Interesse sein:

    VB.NET-Quellcode

    1. Delegate Function ReplacementHandler(ByVal input As String, ByRef index As Integer) As String
    3. Shared Function Replace(ByVal input As String, ByVal handler As Func(Of Char, Char)) As String
    4. Dim sb As New System.Text.StringBuilder(input.Length)
    5. For Each c As Char In input
    6. sb.Append(handler(c))
    7. Next
    8. Return sb.ToString()
    9. End Function
    11. Shared Function Replace(ByVal input As String, ByVal handler As Func(Of Char, String)) As String
    12. Dim sb As New System.Text.StringBuilder()
    13. For Each c As Char In input
    14. sb.Append(handler(c))
    15. Next
    16. Return sb.ToString()
    17. End Function
    19. Shared Function Replace(ByVal input As String, ByVal handler As Func(Of String, Integer, String)) As String
    20. Dim sb As New System.Text.StringBuilder(input.Length)
    21. Dim index As Integer = 0, len As Integer = input.Length
    22. While index < len
    23. sb.Append(handler(input, index))
    24. index += If(Char.IsSurrogatePair(input, index), 2, 1)
    25. End While
    26. Return sb.ToString()
    27. End Function
    29. Shared Function Replace(ByVal input As String, ByVal handler As ReplacementHandler) As String
    30. Dim sb As New System.Text.StringBuilder(input.Length)
    31. Dim index As Integer = 0, len As Integer = input.Length
    32. While index < len
    33. sb.Append(handler(input, index))
    34. End While
    35. Return sb.ToString()
    36. End Function


    handler übernimmt jeweils den Übersetzungsvorgang. Bei Func(Of Char, Char) wird jeder Char durch den durch den Delegaten bereitgestellten Wert ersetzt, bei Func(Of Char, String) wird es eben stattdessen als ein String ersetzt (kann eben auch String.Empty sein). Die restlichen kannst du dir auch noch anschauen. Auch eine Überladung mit einem Delegaten der Form (String, Integer, String&) As Boolean wäre bestimmt sinnvoll (String& ist ByRef in VB).

    Gruß
    ~blaze~

    Hallo,

    @felipe12305:

    mit WinForms funktionierts auch so:

    Mach nen Button, ein Label und eine Textbox und

    dann füge folgenden Code ein:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Dim strarray() As Char = TextBox1.Text.ToCharArray
    6. Dim ergebnis As String = ""
    7. Dim zeichen() As Char = {"%"c, "/"c} 'usw.
    8. For i = 0 To strarray.Count - 1
    9. If Not zeichen.Contains(strarray(i)) Then
    10. ergebnis = ergebnis & strarray(i)
    11. End If
    12. Next
    14. Label1.Text = ergebnis
    15. End Sub
    16. End Class


    Dort funktioniert es sogar ohne Fehler.

    MFG

    Alex-Digital :D
    ~ Alex-Digital :D

    if(!Internet.VBP.Get<User>("Alex-Digital").IsOnline) this.Close(); :D

    VB.NET-Quellcode

    1. Dim foo ="Hallo123"
    3. Dim c() = foo.Select(AddressOf Char.IsNumber)
    4. Dim result as new string(c.ToArray())
    5. debug.print(result)
    6. ''Nur Zahlen werden ausgegeben=> '123'
    8. Dim c() = foo.Select(function(c as char) not Char.isNumber(c))
    9. Dim result as new string(c.ToArray())
    10. debug.print(result)
    11. ''Alles außer Zahlen wird ausgegeben=> 'Hallo'
    14. ''Das kannst du natürlich beliebig erweitern:
    15. Dim c() = foo.Select(function(c as char)
    16. return char.isNumber(c) andalso char.isLetter(c)
    17. end function)
    19. ..
    /nicht getestet

    Hallo,

    @felipe12305:

    siehe Anhang. :sleeping:

    MFG

    Alex-Digital :D
    Bilder

    • vs2010.PNG

      118,49 kB, 1.307×589, 113 mal angesehen
    ~ Alex-Digital :D

    if(!Internet.VBP.Get<User>("Alex-Digital").IsOnline) this.Close(); :D

    @felipe12305
    @Alex-Digital

    Vergleicht doch mal eure eingestellten Frameworkversionen, je nach Version werden unterschiedliche Funkionen nicht unterstützt.
    Das .Count sollte sich zum Beispiel durch .Length ersetzen lassen usw. Einfach mal im ObjectBrowser durchschauen ;).

    Hallo,

    ich habe meinen Code mit 4.0 und 3.5 getestet und es hat wunderbar funktioniert.

    Und felipe12305 benutzt glaube ich 2.0

    Entweder auf 3.5 wechseln oder 2.0 und andere Lösung suchen.

    MFG

    Alex-Digital :D
    ~ Alex-Digital :D

    if(!Internet.VBP.Get<User>("Alex-Digital").IsOnline) this.Close(); :D

Facebook
Telefonspende