Optimisation remplacement

Bonjour cette fonction m'apparait d'Etre bien longue comparer a ce quelle fait:

    Friend Function ConvertToStringArray(ByVal values As System.Array) As String()
        Dim theArray As String() = New String(values.Length - 1) {}
        Dim i As Integer = 1
        Do While i <= values.Length
            If values.GetValue(1, i) Is Nothing Then
                theArray(i - 1) = ""
            Else
                theArray(i - 1) = CStr(values.GetValue(1, i).ToString())
            End If
            i += 1
        Loop

        Return theArray
    End Function

je l'utilise dans mon programme comme ceci:
Dim theArray As String() = modExcel.ConvertToStringArray(CType(range.Cells.Value, System.Array))

JE crois qu'il doit y avoir un meilleur moyen de faire ouquelque chose de déja fait pour cela......
QU'aez-vous à me proposer?

Bonsoir,
Que fais cette fonction ? Sous quelle version de vb es-tu ?

Salut,

Déja, tu peut remplacer la boucle while par une boucle for.
Mais comme l'as dit Willi, indique nous quel est son but.

__________
Kenji

Bonsoir,

Une simple remarque

            If values.GetValue(1, i) Is Nothing Then
                theArray(i - 1) = ""
            Else

me semble pas utile. En effet theArray(i-1) est nécessaire vide après sa déclaration.

Amicalement,
Us.

Si vous auriez regarer son classement vous auriez vu que ces du vb.net =:0) Le but de la fonction comme montré das la deuxieme parti ces de transformer un range Excel en string()
je donne un range excel pi sa récupere les valeur dedans pour les mettres dans une string()

us_30 tu confond deux variable différente la...

Salut,


pourquoi tu convertis deux fois de suite en String ?

theArray(i - 1) = CStr(values.GetValue(1, i).ToString())

A plus.

Tu peux pas faire directment un cast de range.Cells.Value en string() ?
Ou sinon de CType(range.Cells.Value, System.Array) en string() ?

__________
Kenji

JE ne me suis pas fais bien comprendre... Il me semble que IF est inutile ici. En effet, tu dis que si la variable "values" est nulle alors la seconde variable "theArray" sera vide sinon elle aura la même valeur que "values" (sauf convertie en string)... En résumé, dans tous les cas "theArray" aura la même valeur que "values" (converti en string)...

Donc ton code :

        Do While i <= values.Length
            If values.GetValue(1, i) Is Nothing Then
                theArray(i - 1) = ""
            Else
                theArray(i - 1) = CStr(values.GetValue(1, i).ToString())
            End If
            i += 1
        Loop

se résume à :

        Do While i <= values.Length
                theArray(i - 1) = CStr(values.GetValue(1, i))
            i += 1
        Loop

Sans compter, comme signalé par Charles Racaud, on peut penser à utliser FOR...

Amicalement,
Us.

DavidWhitewater   tres juste, j'avais pas remarquer. par contre je peu enlever le .tostring mais pas le cstr, au cas ou la valeur serait nothing ce qui est pas gérer par .tostring a ma souvenance.
Charles Racaud Non on peu pas faire un cast sur un object COM vers un string, et pour la conversion apres le ctype faut oublier, le nombre dimension de l'array et différente.
us_30 En effet sa semble est corecte vu que ju'utilise cstr je peu le faire.


Voici le code a jour:
    Friend Function ConvertToStringArray(ByVal values As System.Array) As String()
        Dim theArray As String() = New String(values.Length - 1) {}

        For i As Integer = 1 To values.Length
            theArray(i - 1) = CStr(values.GetValue(1, i))
        Next i

        Return theArray
    End Function


et toujours appelé par cette ligne:
Dim theArray As String() = modExcel.ConvertToStringArray(CType(range.Cells.Value, System.Array))