Πρώτα Βήματα - Αρχές προγραμματισμού

Απ: Split σε String

Παναγιώτης Καναβός — Sat, 05 Apr 2008 06:37:20 GMT

Ωραίος ο Δημήτρης! Πράγματι, η Split() δεν είναι αντίστοιχη της Sting.Split. Επίσης, η Split() επιστρέφει String() και όχι Array, αν και αυτό δεν επηρεάζει την ταχύτητα. Ο αντίστοιχος κώδικας για το String.Split σε VB πάντως είναι:

Dim test As String = "one space two spaces three spaces"
Dim values() As String = test.Split(New String() {" "}, StringSplitOptions.None)
For Each value As String In values
Console.WriteLine(value)
Next

Απ: Split σε String

Dimitris Papadimitriou — Sat, 05 Apr 2008 04:20:12 GMT

Έκανα λίγο benchmarking (1.000.000 iterations) και έχουμε:

System.String.Split - 1,8 sec
VisualBasic.String.Split - 6,9 sec
RegEx.Split - 14,8 sec

Επισυνάπτω τον κώδικα.

Για να τρέξει ο κώδικας πρέπει να προσθέσετε στο C# console project που θα δημιουργήσετε ένα reference στην Microsoft.VisualBasic!!! Τι θράσος!!!

Απ: Split σε String

Dimitris Papadimitriou — Sat, 05 Apr 2008 04:08:42 GMT

Lutonian στον παραπάνω κώδικα αν κατάλαβα καλά χρησιμοποιείς την Microsoft.VisualBasic.Strings.Split και όχι την System.String.Split.

Το αναφέρω σαν σημείωση, καθώς η πρώτη βρίσκεται στο .net για λόγους συμβατότητας με την vb6 και διαφέρει ελαφρώς από την δεύτερη.

Απ: Split σε String

Lutonian — Sat, 05 Apr 2008 02:51:35 GMT

Oi REGEX οντος θα είναι overkill αν μιλάμε για λίγες πράξεις , αν όμως ι συγκεκριμένη ρουτίνα χρησιμοποιείτε για να κάνει process μεγάλα log files τότε ένα REGEX πιθανόν να είναι πιο αποδοτικό.

Το αρχικό post είναι γραμμένο σε VB οπότε ένα απλο implementation τις Split einai παρακάτω:

Imports System.Text.RegularExpressions

Module Module1
    Sub Main()

        Dim test As String
        Dim seperator As String
        Dim valuesarray As Array
        Dim value As String
        seperator = "   "
        test = "one space   two spaces   three   spaces"

        valuesarray = Split(test, "   ")

        For Each value In valuesarray
            Console.WriteLine(value)

        Next
    End Sub

End Module

Απ: Split σε String

Παναγιώτης Καναβός — Fri, 04 Apr 2008 04:47:44 GMT

Μήπως γινόμαστε υπερβολικοί? Η String.Split κάνει άνετα τη δουλειά, ενώ τα Regular Expressions είναι αρκετά στρυφνά. Όπως λέει και ο Roy Osherove, ο δημιουργός του Regulator και του Regulazy, "You have a problem and you want to solve it with regular expressions. Now you have TWO problems". Ε, κάτι θα ξέρει

Όσον αφορά το Split, μία από τις μορφές του δέχεται ένα string array. O κώδικας είναι απλούστατος:

string[] items = mystring.Split(new string[]{" "},StringSplitOptions.None);

Απ: Split σε String

Lutonian — Fri, 04 Apr 2008 00:22:19 GMT

Μπορείς να δεις το κώδικα που παραθέτω για να πάρεις μια ιδέα το πώς μπορεί να γίνει με RegEx. Το separator string είναι 3 κενά που όπως είπες θα είναι το standard που θα χωρίζει τις τιμές μεταξύ τους

Αν έχεις απορίες μπορείς να μου στείλεις PM

Imports System.Text.RegularExpressions

Module Module1
    Sub Main()

        Dim test As String
        Dim seperator As String
        Dim valuesarray As Array
        Dim value As String
        seperator = "   "
        test = "one space   two spaces   three   spaces"

        valuesarray = Regex.Split(test, seperator)

        For Each value In valuesarray
            Console.WriteLine(value)

        Next
    End Sub

End Module

Απ: Split σε String

SValsamis — Tue, 01 Apr 2008 18:32:58 GMT

Θα μπορούσες απλά πρίν κάνεις Split να κάνεις replace τα 2 κενά με ένα κενό ως εξής :

gr.Replace(" "," ").Split(a.TocharArray())

Απ: Split σε String

plasmatek — Tue, 01 Apr 2008 17:53:14 GMT

εμ, ξέρει μήπως κανείς πως υλοποιεί το .Net τα regexp με αποτέλεσμα να είναι τόσο γρήγορα?

Απ: Split σε String

Lutonian — Tue, 01 Apr 2008 01:23:04 GMT

Ένας πιο αποδοτικός τρόπος είναι να χρησιμοποιήσεις Regular Expressions. Για περισσότερες πληροφορίες και παραδείγματα http://www.regular-expressions.info/

Απ: Split σε String

SotirisPap — Mon, 19 Nov 2007 09:18:21 GMT

Dim s1 As String = "ONE TWO THREE"
To String είναι έτσι δηλ. μεσολαβούν πάντα 3 κενά

Ποιό πρέπει να είναι
Dim stringSeparators() As String = {" "}

γιά να πέρνω τα ξεχωριστά String και όχι αυτά που έχουν μόνο ένα κενό μεταξύ τους
δηλ αν ONE TWO τότε να το βλέπει σαν ένα String

Απ: Split σε String

Παναγιώτης Καναβός — Mon, 19 Nov 2007 08:09:30 GMT

Υποθέτω ότι εννοείς πως θα αποφύγεις τη δημιουργία κενών strings αν επαναλαμβάνονται κενά strings?

Κοίτα στο Help την παραλλαγή της Split η οποία παίρνει και παράμετρο StringSplitOptions. Αν θέσεις την τιμή RemoveEmptyEntries θα πετύχεις αυτό που θες.

Split σε String

SotirisPap — Mon, 19 Nov 2007 07:50:52 GMT

Dim a as Char=" "
Dim split As String() = gr.Split(New Char() {a})

Εάν το διάστημα μεταξύ των String είναι μεγαλύτερο του 1 , ποιό πρέπει να είναι το a

Ευχαριστώ