Πρώτα Βήματα - Γλώσσες προγραμματισμού

Απ: [C++] For Loop σε String Array

AlKiS — Fri, 08 Mar 2013 06:33:50 GMT

ok, το έκανα να δουλέψει!

Σας ευχαριστώ όλους για τη βοήθεια :)

Απ: [C++] For Loop σε String Array

AlKiS — Thu, 21 Feb 2013 23:22:55 GMT

αααα, άρα μπορείς να κάνεις array που δεν είναι Pointer! Δεν το ήξερα... στο site που διάβαζα c++ έλεγε ότι εξ'ορισμού το array είναι pointer

Νομίζω ότι το δεύτερο κομμάτι κώδικα είναι αυτό που χρειάζομαι. Ευχαριστώ :)

Θα το δοκιμάσω και θα κάνω reply με το αν πέτυχε ή όχι.

Απ: [C++] For Loop σε String Array

darklynx — Thu, 21 Feb 2013 09:19:01 GMT

Στο for loop πρέπει να βάλεις μόνος σου τις διαστάσεις του array,πχ:

void ArrayBox(string *Var,int N) {
	for (int i = 0; i <N; i++)
	{
           //do sth with Var[ i ]
	}
}

Βέβαια υπάρχει τρόπος να βρεις το μέγεθος του array αν η συνάρτησή σου γραφτεί κάπως έτσι:

template<size_t N>void ArrayBox(string (&Var)[ N ]) {
	for (int i = 0; i <N; i++)
	{
           //do sth with Var[ i ]
	}
}

Σε αυτήν όμως τη συνάρτηση πρέπει να περάσεις αυστηρά το ίδιο το array,όχι ένα δείκτη προς αυτό (χρησιμοποιώντας reference to array αποφεύγεις να μετατραπεί σε δείκτη το ίδιο το όνομα του array).

Έτσι η συνάρτηση μπορεί να χρησιμοποιηθεί ως εξής:

string strarray[ ]={"Mpampis","Nikos","Soula"};
string *strarrayptr=strarray;
ArrayBox(strarray);//correct use
ArrayBox(strarrayptr);//wrong!code won't even compile

Σαφώς πιο περιορισμένη και λειτουργεί αυστηρά με static arrays,δεν κοίταξα αναλυτικά τον κώδικα της VB να δω ποια έκδοση σε καλύπτει καλύτερα.

Απ: [C++] For Loop σε String Array

AlKiS — Thu, 21 Feb 2013 02:36:04 GMT

Παναγιώτης Καναβός:
Δεν μπορείς να μάθεις μία γλώσσα όπως η C++ διαβάζοντας ένα tutorial. Η προηγούμενη γνώση VB δεν μετράει. Ένα πολύ καλό εισαγωγικό βιβλιο είναι το Accelerated C++, το οποίο φροντίζει να σου πει να ΜΗΝ χρησιμοποιήσεις pointers. Υπάρχουν και άλλα καλά εισαγωγικά (αν και αρκετά μεγαλύτερα) όπως το C++ Primer του Lippmann. Όλως τυχαίως, θα τα βρεις όλα στην ίδια σελίδα του Amazon.

Ευχαριστώ.

Θα τα έχω υπόψη μου τα βιβλία και με την πρώτη ευκαιρία θα τα διαβάσω (btw δεν χρειάζομαι να μάθω το 100% της c++, απλώς κάποιες γνώσεις για να μπορώ να προγραμματίσω βασικά πράγματα).

Προς το παρόν όμως, με τη σχολή (ηλεκτρολογίας), τα papers και την ερευνιτική ομάδα, δεν μου περισσεύει καθόλου χρόνος για βιβλίο σε c++ :( έχω ακόμα να τελειώσω το βιβλίο για Small Angle X-ray Scattering, και να θυμηθώ fourier, πολλαπλά ολοκληρώματα και πολλά άλλα ώστε να βγει το paper...

Άρα πίσω στο original θέμα του topic: Πως μπορώ να κάνω ένα loop που θα διαβάζει ένα-ένα τα string που περιέχονται σε ένα string[Array]? (εξηγώ αναλυτικότατα παραπάνω το τι ακριβώς θέλω να πετύχω.)

Απ: [C++] For Loop σε String Array

Παναγιώτης Καναβός — Thu, 21 Feb 2013 00:27:32 GMT

Δεν μπορείς να μάθεις μία γλώσσα όπως η C++ διαβάζοντας ένα tutorial. Η προηγούμενη γνώση VB δεν μετράει. Ένα πολύ καλό εισαγωγικό βιβλιο είναι το Accelerated C++, το οποίο φροντίζει να σου πει να ΜΗΝ χρησιμοποιήσεις pointers. Υπάρχουν και άλλα καλά εισαγωγικά (αν και αρκετά μεγαλύτερα) όπως το C++ Primer του Lippmann. Όλως τυχαίως, θα τα βρεις όλα στην ίδια σελίδα του Amazon.

Απ: [C++] For Loop σε String Array

AlKiS — Thu, 21 Feb 2013 00:09:07 GMT

Libra Storm:
Σου σκάει γιατί κατ' αρχήν θέλει να κάνεις dereference τον δείκτη σου.

(*var).size() ή πιό απλά var->size().

Επίσης δεν καταλαβαίνω τι θέλεις να κάνεις με το size().

Θα σου δείχνει το μήκος του 1ου element του array πάντα και θα κάνει for τόσες φορές όσες είναι αυτό.

Όχι, όχι! Δεν θέλω το μήκος του πρώτου element.. θέλω το πλήθος των elements που υπάρχουν στο array.

Ουσιαστικά θέλω να πω "για ι=0 έως όσα elements έχει το string array, βάλε το κάθε string του array σε ένα απλό string προσθέτοντας ένα NewLine (\n) την κάθε φορά"

δηλαδή θέλω να κάνω strip down αυτό το function που είχα σε VB:

    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal SplitOnNum As Integer, ByVal IgnoreNullValues As Boolean, ByVal var() As T, Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder

        For i = 0 To var.Length - 1
            If (var.ToString <> "" AndAlso var(i) IsNot Nothing) OrElse Not IgnoreNullValues Then
                If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

                sbRet.Append(var(i).ToString)
                If doDelimitItems <> "" AndAlso i <> var.Length - 1 Then
                    sbRet.Append(doDelimitItems)
                    If Not IgnoreDelimitSpace Then sbRet.Append(" ")
                End If

                If SplitOnNum > 0 AndAlso (i + 1) Mod SplitOnNum = 0 AndAlso i <> var.Length - 1 Then
                    If doDelimitItems <> "" AndAlso Left(Right(sbRet.ToString, doDelimitItems.Length + 1), doDelimitItems.Length) = doDelimitItems Then
                        sbRet.Remove(sbRet.Length - (doDelimitItems.Length + 1), doDelimitItems.Length)
                    End If
                    sbRet.AppendLine()
                ElseIf i < var.Length - 1 AndAlso doDelimitItems = "" Then
                    sbRet.Append(NonDelimitDelimiter)
                End If
            End If
        Next

        Return sbRet.ToString
    End Function

Σε ένα τέλειο κόσμο, θα έγραφα όλο το function αυτό, όμως προς το παρόν θα αρκεστώ στο να δουλέψει το stripped down version.

Παναγιώτης Καναβός:
Η χρήση pointers και απλών array στην C++ είναι εντελώς απαρχαιωμένη και οδηγεί σε άπειρα bugs.

Ότι έμαθα το διάβασα από το http://www.cplusplus.com/doc/tutorial/

Για την ακρίβεια, το διάβασα όλο, από το "Instructions for use" μέχρι "Polymorphism" μέχρι "Preprocessor directives" μέχρι και το τέλος "Input/Output with files".

Όμως, αν και έχω γράψει πολυμορφική κλάση, υπάρχουν τόσα πολλά απλά πράγματα που δεν ξέρω να κάνω ακόμα.

Παναγιώτης Καναβός:
Καταρχήν, η C++ έχει references (& αντί για *) οπότε δεν χρειάζεται να χρησιμοποιήσει κανείς pointers, ούτε χρειάζεται pointer arithmetic.

Δεν καταλαβαίνω για τι πράγμα μιλάς. Πες σε παρακαλώ λίγο πιο συγκεκριμένα σε ποιο πράγμα αναφέρεσαι.

Παναγιώτης Καναβός:
Δεύτερον, το Standard Template Library έχει πάρα πολλά και χρήσιμα containers και αλγόριθμους για να κάνει κανείς ό,τι θέλει. Από τη στιγμή που χρησιμοποιείς μία κλάση του STL (την string) γιατί να μην χρησιμοποιήσεις και τις άλλες? Αντί για χύμα array, μπορείς να χρησιμοποιήσεις την vector.

Θα ήθελα να χρησιμοποιήσω και τις άλλες. Αλλά ποιες είναι? και πως χρησιμοποιούνται?

Την Vector την προσπάθησα, αλλά έφτασα σε dead end... θα χρειαστώ μερικά παραδείγματα για να μπορέσω να τη χρησιμοποιήσω επαρκώς. Είναι ουσιαστικά σαν το "List (of Κάτι)" που χρησιμοποιούσα στην VB και ήταν το αγαπημένο μου! Αυτό επειδή είχε dynamic allocation και μπορούσα να γράψω ListVariable.Add(Kati) και μετά να πατήσω και ένα ListVariable.ToArray και να έχω Array με το σωστό πλήθος απευθείας. Γενικά είχε πολλά καλά και βόλευε τόσο πολύ!

Απ: [C++] For Loop σε String Array

Παναγιώτης Καναβός — Wed, 20 Feb 2013 23:35:19 GMT

Η χρήση pointers και απλών array στην C++ είναι εντελώς απαρχαιωμένη και οδηγεί σε άπειρα bugs. Καταρχήν, η C++ έχει references (& αντί για *) οπότε δεν χρειάζεται να χρησιμοποιήσει κανείς pointers, ούτε χρειάζεται pointer arithmetic. Δεύτερον, το Standard Template Library έχει πάρα πολλά και χρήσιμα containers και αλγόριθμους για να κάνει κανείς ό,τι θέλει. Από τη στιγμή που χρησιμοποιείς μία κλάση του STL (την string) γιατί να μην χρησιμοποιήσεις και τις άλλες? Αντί για χύμα array, μπορείς να χρησιμοποιήσεις την vector.

Απ: [C++] For Loop σε String Array

Libra Storm — Wed, 20 Feb 2013 23:23:13 GMT

Σου σκάει γιατί κατ' αρχήν θέλει να κάνεις dereference τον δείκτη σου.

(*var).size() ή πιό απλά var->size().

Επίσης δεν καταλαβαίνω τι θέλεις να κάνεις με το size().

Θα σου δείχνει το μήκος του 1ου element του array πάντα και θα κάνει for τόσες φορές όσες είναι αυτό.

[C++] For Loop σε String Array

AlKiS — Wed, 20 Feb 2013 08:51:49 GMT

Καλησπέρα σε όλους!!!!! :)

Έφυγα από την Visual Basic (προσωρινά τουλάχιστον), και άρχισα τώρα c++ (αλλά αγνή, χωρίς header των windows ή οποιουδήποτε λειτουργικού).

Δυστυχώς τα πράγματα είναι πολύ διαφορετικά στη c++ οπότε νιώθω ότι τώρα κάνω το πρώτο μου πρόγραμμα :S

θέλω να κάνω ένα string function που θα έχει ένα for loop και θα παίρνει για argument ένα string* (array). θα πάει σε ότι περιέχει το array αυτό, και σειρά σειρά θα την προσθέτει σε ένα απλό string. (δλδ μετατροπή String* σε string ουσιαστικά.

Το άτιμο, από την αρχή ακόμα με παιδεύει..

έγραψα:

string ArrayBox(string *Var) {
	for (int i = 0; i < Var.size(); i++)
	{

	}
}

όμως μου βγάζει πρόβλημα στη μεταβλητή Var: "expression must have class type".

Τι θέλει??? Τι θα πει "η φράση πρέπει να έχει τύπο κλάσης" ?? δεν το καταλαβαίνω..

Αρχικά σκεφτόμουν να μεταφράσω ολόκληρο το function που είχα στην VB

#Region "ArrayBox"
    ' => List(Of T)
    Public Function ArrayBox(Of T)(ByVal var As List(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => List(Of T)
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal var As List(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => List(Of T)
    Public Function ArrayBox(Of T)(ByVal doDelimitItems As String, ByVal var As List(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, 0, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'SplitOnNum => List(Of T)
    Public Function ArrayBox(Of T)(ByVal SplitOnNum As Integer, ByVal var As List(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", SplitOnNum, True, var, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => List(of T)
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal SplitOnNum As Integer, ByVal IgnoreNullValues As Boolean, ByVal var As List(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder

        For i = 0 To var.Count - 1
            If var.Item(i) IsNot Nothing OrElse Not IgnoreNullValues Then
                If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

                sbRet.Append(var.Item(i).ToString)
                If doDelimitItems <> "" AndAlso i <> var.Count - 1 Then
                    sbRet.Append(doDelimitItems)
                    If Not IgnoreDelimitSpace Then sbRet.Append(" ")
                End If

                If SplitOnNum > 0 AndAlso (i + 1) Mod SplitOnNum = 0 AndAlso i <> var.Count - 1 Then
                    If doDelimitItems <> "" AndAlso Left(Right(sbRet.ToString, doDelimitItems.Length + 1), doDelimitItems.Length) = doDelimitItems Then
                        sbRet.Remove(sbRet.Length - (doDelimitItems.Length + 1), doDelimitItems.Length)
                    End If
                    sbRet.AppendLine()
                ElseIf i < var.Count - 1 AndAlso doDelimitItems = "" Then
                    sbRet.Append(NonDelimitDelimiter)
                End If
            End If
        Next

        If doDelimitItems <> "" AndAlso Left(Right(sbRet.ToString, doDelimitItems.Length + 1), doDelimitItems.Length) = doDelimitItems Then
            sbRet.Remove(sbRet.Length - (doDelimitItems.Length + 1), doDelimitItems.Length + 1)
        End If

        Return sbRet.ToString
    End Function

    ' => T()
    Public Function ArrayBox(Of T)(ByVal var() As T, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => T()
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal var() As T, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => T()
    Public Function ArrayBox(Of T)(ByVal doDelimitItems As String, ByVal var() As T, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, 0, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'SplitOnNum => T()
    Public Function ArrayBox(Of T)(ByVal SplitOnNum As Integer, ByVal var() As T, Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", SplitOnNum, True, var, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => T()
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal SplitOnNum As Integer, ByVal IgnoreNullValues As Boolean, ByVal var() As T, Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder

        For i = 0 To var.Length - 1
            If (var.ToString <> "" AndAlso var(i) IsNot Nothing) OrElse Not IgnoreNullValues Then
                If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

                sbRet.Append(var(i).ToString)
                If doDelimitItems <> "" AndAlso i <> var.Length - 1 Then
                    sbRet.Append(doDelimitItems)
                    If Not IgnoreDelimitSpace Then sbRet.Append(" ")
                End If

                If SplitOnNum > 0 AndAlso (i + 1) Mod SplitOnNum = 0 AndAlso i <> var.Length - 1 Then
                    If doDelimitItems <> "" AndAlso Left(Right(sbRet.ToString, doDelimitItems.Length + 1), doDelimitItems.Length) = doDelimitItems Then
                        sbRet.Remove(sbRet.Length - (doDelimitItems.Length + 1), doDelimitItems.Length)
                    End If
                    sbRet.AppendLine()
                ElseIf i < var.Length - 1 AndAlso doDelimitItems = "" Then
                    sbRet.Append(NonDelimitDelimiter)
                End If
            End If
        Next

        Return sbRet.ToString
    End Function

    ' => IEnumerable(Of T)
    Public Function ArrayBox(Of T)(ByVal var As IEnumerable(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => IEnumerable(Of T)
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal var As IEnumerable(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", 1, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => IEnumerable(Of T)
    Public Function ArrayBox(Of T)(ByVal doDelimitItems As String, ByVal var As IEnumerable(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, 0, True, var, , NonDelimitDelimiter)
        Return Result
    End Function
    'SplitOnNum => IEnumerable(Of T)
    Public Function ArrayBox(Of T)(ByVal SplitOnNum As Integer, ByVal var As IEnumerable(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", SplitOnNum, True, var, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => IEnumerable(Of T)
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal SplitOnNum As Integer, ByVal IgnoreNullValues As Boolean, ByVal var As IEnumerable(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder

        For i = 0 To var.Count - 1
            If (var.ToString <> "" AndAlso var(i) IsNot Nothing) OrElse Not IgnoreNullValues Then
                If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

                sbRet.Append(var(i).ToString)
                If doDelimitItems <> "" AndAlso i <> var.Count - 1 Then
                    sbRet.Append(doDelimitItems)
                    If Not IgnoreDelimitSpace Then sbRet.Append(" ")
                End If

                If SplitOnNum > 0 AndAlso (i + 1) Mod SplitOnNum = 0 AndAlso i <> var.Count - 1 Then
                    If doDelimitItems <> "" AndAlso Left(Right(sbRet.ToString, doDelimitItems.Length + 1), doDelimitItems.Length) = doDelimitItems Then
                        sbRet.Remove(sbRet.Length - (doDelimitItems.Length + 1), doDelimitItems.Length)
                    End If
                    sbRet.AppendLine()
                ElseIf i < var.Count - 1 AndAlso doDelimitItems = "" Then
                    sbRet.Append(NonDelimitDelimiter)
                End If
            End If
        Next

        Return sbRet.ToString
    End Function

    ' => [ T1(), T2() ]
    Public Function ArrayBox(Of T)(ByVal var1() As T, ByVal var2() As T, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", var1, var2, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => [ T1(), T2() ]
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal var1() As T, ByVal var2() As T, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", var1, var2, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => [ T1(), T2() ]
    Public Function ArrayBox(Of T)(ByVal doDelimitItems As String, ByVal var1() As T, ByVal var2() As T, Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelispan style=
        miter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, var1, var2, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => [ T1(), T2() ]
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal var1() As T, ByVal var2() As T, Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder
        Dim Var1Length As Integer = var1.Length
        Dim Var2Length As Integer = var2.Length
        Dim MaxLength As Integer
        If Var1Length >= Var2Length Then MaxLength = Var1Length Else MaxLength = Var2Length

        For i = 0 To MaxLength - 1
            If var1.Length > i OrElse var2.Length > i Then
                If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

                If var1.Length > i Then sbRet.Append(var1(i).ToString) Else sbRet.Append(" ")

                If doDelimitItems <> "" Then
                    sbRet.Append(doDelimitItems)
                    If Not IgnoreDelimitSpace Then sbRet.Append(" ")
                Else
                    sbRet.Append(NonDelimitDelimiter)
                End If

                If var2.Length > i Then sbRet.Append(var2(i).ToString) Else sbRet.Append(" ")

                If i <> MaxLength - 1 Then sbRet.AppendLine()
            End If
        Next

        If doDelimitItems <> "" AndAlso Left(Right(sbRet.ToString, doDelimitItems.Length + 1), doDelimitItems.Length) = doDelimitItems Then
            sbRet.Remove(sbRet.Length - (doDelimitItems.Length + 1), doDelimitItems.Length)
        End If

        Return sbRet.ToString
    End Function

    ' => [ List(Of T2), List(Of T2) ]
    Public Function ArrayBox(Of T)(ByVal var1 As List(Of T), ByVal var2 As List(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", var1, var2, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => [ List(Of T2), List(Of T2) ]
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal var1 As List(Of T), ByVal var2 As List(Of T), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", var1, var2, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => [ List(Of T2), List(Of T2) ]
    Public Function ArrayBox(Of T)(ByVal doDelimitItems As String, ByVal var1 As List(Of T), ByVal var2 As List(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, var1, var2, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => [ List(of T1), List(of T2) ]
    Public Function ArrayBox(Of T)(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal var1 As List(Of T), ByVal var2 As List(Of T), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder
        Dim Var1Length As Integer = var1.Count
        Dim Var2Length As Integer = var2.Count
        Dim MaxLength As Integer
        If Var1Length >= Var2Length Then MaxLength = Var1Length Else MaxLength = Var2Length

        For i = 0 To MaxLength - 1
            If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

            If var1.Count >= i Then sbRet.Append(var1.Item(i).ToString) Else sbRet.Append(" ")

            If doDelimitItems <> "" Then
                sbRet.Append(doDelimitItems)
                If Not IgnoreDelimitSpace Then sbRet.Append(" ")
            Else
                sbRet.Append(NonDelimitDelimiter)
            End If

            If var2.Count >= i Then sbRet.Append(var2.Item(i).ToString) Else sbRet.Append(" ")

            If i <> MaxLength - 1 Then sbRet.AppendLine()
        Next

        Return sbRet.ToString
    End Function

    ' => [ List(Of Double()) ]
    Public Function ArrayBox(ByVal var As List(Of Double()), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, "", var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems => [ List(Of Double() ]
    Public Function ArrayBox(ByVal doNumeriseItems As Boolean, ByVal var As List(Of Double()), Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(doNumeriseItems, "", var, , NonDelimitDelimiter)
        Return Result
    End Function
    'doDelimitItems => [ List(Of Double() ]
    Public Function ArrayBox(ByVal doDelimitItems As String, ByVal var As List(Of Double()), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim Result As String = ArrayBox(False, doDelimitItems, var, IgnoreDelimitSpace, NonDelimitDelimiter)
        Return Result
    End Function
    'doNumeriseItems, doDelimitItems, SplitOnNum, IgnoreNullValues, var => [ List(Of Double() ]
    Public Function ArrayBox(ByVal doNumeriseItems As Boolean, ByVal doDelimitItems As String, ByVal var As List(Of Double()), Optional ByVal IgnoreDelimitSpace As Boolean = False, Optional ByVal NonDelimitDelimiter As String = ControlChars.Tab) As String
        Dim sbRet As New StringBuilder
        Dim LastRowIndex As Integer
        For i = 0 To var.Count - 1
            If var(i).Length > LastRowIndex Then LastRowIndex = var(i).Length
        Next

        For i = 0 To LastRowIndex - 1
            If doNumeriseItems Then sbRet.Append(i + 1).Append(") ")

            For j = 0 To var.Count - 1
                If var.Item(j).Length > i Then sbRet.Append(var.Item(j)(i)) Else sbRet.Append(" ")
                If doDelimitItems <> "" Then
                    If j <> var.Count - 1 Then sbRet.Append(doDelimitItems)
                    If j <> var.Count - 1 AndAlso Not IgnoreDelimitSpace Then sbRet.Append(" ")

                ElseIf j <> var.Count - 1 Then
                    sbRet.Append(NonDelimitDelimiter)
                End If

            Next

            If i <> LastRowIndex - 1 Then sbRet.AppendLine()
        Next

        Return sbRet.ToString
    End Function
#End Region

όμως βλέποντας ότι κολλάω σε αυτό.. αναθεώρησα.. και τώρα λέει να σταθώ σε μια απλή αλλαγή του string* σε string...

/spancolor: #666666;background-color: #e4e4e4;font-family: Courier New;font-size: 11px;font-weight: normal;color: Green;background-color: Transparent;font-family: Courier New;font-size: 11px;font-weight: normal; ArrayBox(Return