Salut à tous...

Je suis découragé   Je ne sais pas comment faire pour utiliser la fonction Split dans VB.Net Compact Framework. Ou bien l'erreur vient d'ailleurs  enfin je ne sais plus quoi faire...
J'ai une erreur qui dit:
The Targeted version of the .NET Compact Framework does not support latebonding.
j'ai cette ligne de code:

SplitLine = Split(aMesLignes(i),

" ")

Je vous annexe le code total du module.

J'ai vraiment besoin de votre aide.... C'est important....
Merci d'avance

Module

MDOLireFichier

Public Tableau(1, 1) AsString

Public aMesLignes() AsString

 

PublicSub ReadAllLines(ByVal sPath AsString, ByRef aLines() AsString)

Dim Sr AsNew System.IO.StreamReader(sPath)

Dim sBuffer AsString

sBuffer = Sr.ReadToEnd()

aLines = sBuffer.Split(System.Convert.ToChar(13))

'Code ASCII du Retour de Chariot

EndSub

PublicSub Parcourir_Fichier_text(ByVal aMesLignes)

Dim i AsInteger

Dim j AsInteger

Dim LineCount AsInteger

Dim SplitLine() AsString

Dim intCompteur AsInteger

LineCount = 0

For i = 0 To UBound(aMesLignes)

If LineCount = 0 Then

ReDim Tableau(4, LineCount)

Else

ReDimPreserve Tableau(4, LineCount)

EndIf

SplitLine = Split(aMesLignes(i),

" ")

For j = 0 To UBound(SplitLine)

If Trim(SplitLine(j)) <> ""Then

Tableau(j, LineCount) = Trim(SplitLine(j))

EndIf

Next

LineCount = LineCount + 1

Next i

EndSub

 

End

Module

SplitLine = Split(aMesLignes(i)," ")

essaye plutôt
Dim uneligne as string
............
uneligne = aMesLignes(i)
SplitLine = Split(uneligne," ")

Pourtant je vois pas cette liaison de retard
De plus je vois aucun redimensionnement de ton tableau aMesLignes ni son remplissage.

Le savoir ne sert que si il est partagé par tous

Salut...
Et bien je ne sais pas trop ce que je fais... J'essais plein de truc mais rien fonctionne....

Dans mon Load j'apelle la fonctione pour lire mon ficher

J'ai regardé ta source, mais je m'y perds un peu...Serais-tu en mesure de réparer mes erreurs pour que je puisse voir qu'est ce qui ne vas pas... Dans ta source, je ne sais pas quoi j'ai besoin et comment le convertir pour mon code...

J'ai pris du code VB6 et j'essais déséspérément de le mettre en .Net Compact Framwork. Je veux seulement ouvri un fichier texte et en faire un tableau. Le fichier texte aura toujours 5 Colonnes avec un nombre de lignes inconnues...Donc mon tableau aura 5 colonnes avec le nombre de lignes que le fichier texte aura...

Merci de ton aide

Dans ma Form Load.... J'ai mis ce code

ReadAllLines("C:\Bureau\Coord.txt", aMesLignes)'Lecteur du fichier texte Mais je ne suis pas capable de lire mon fichier Texte
Call Parcourir_Fichier_text(aMesLignes)

Dans mon Module

---

MDOLireFichier

Imports

System.Math
Imports System
Imports System.IO

---

Public Tableau(1, 1) AsString
Public aMesLignes() AsString

PublicSub ReadAllLines(ByVal sPath AsString, ByRef aLines() AsString) 'Problème avec le SplitLine

Dim Sr AsNew System.IO.StreamReader(sPath)
Dim sBuffer AsString

sBuffer = Sr.ReadToEnd()
aLines = sBuffer.Split(System.Convert.ToChar(13))

EndSub

---

PublicSub Parcourir_Fichier_text(ByVal aMesLignes)

Dim i AsInteger , j AsInteger
Dim LineCount AsInteger
Dim SplitLine() AsString
Dim intCompteur AsInteger

LineCount = 0

For i = 0 To UBound(aMesLignes) 
   If LineCount = 0 Then 
      ReDim Tableau(4, LineCount) 
   Else 
      ReDimPreserve Tableau(4, LineCount) 
   EndIf

SplitLine = Split(aMesLignes(i), " ")

For j = 0 To UBound(SplitLine) 
   If Trim(SplitLine(j)) <> ""Then 
      Tableau(j, LineCount) = Trim(SplitLine(j))
   EndIf

Next

LineCount = LineCount + 1

Next i

EndSub

End Module

Ne Pas oublier d'ajouter "Imports System.IO"

   Public CheminCourant As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase) 'Chemin Courant de L'application

    Public Const ListeSeparation As String = ";" 'Séparateur utilisé

    Public Const FicScore = "\listeScores.txt"  'Fichier Texte ne pas oublier le "\" devant

    Public Sub ChargeFichier(ByVal MyListe As ListView) 'MyListe est un composant ListView

        Dim sr As StreamReader = New StreamReader(CheminCourant & FicScore)

        Dim StrInput As String

        Dim Strdata() As String

        Do

            StrInput = sr.ReadLine 'Je lis une ligne

            If StrInput Is Nothing Then Exit Do

            'Si rien je sors

            Strdata = StrInput.Split(ListeSeparation)

            Dim MItem As New ListViewItem

            MItem.Text = Strdata(0)

            MItem.SubItems.Add(Strdata(1))

            MItem.SubItems.Add(Strdata(2))

            MItem.SubItems.Add(Strdata(3))

            MItem.SubItems.Add(Strdata(4))

            MyListe.Items.Add(MItem) 'J'ajoute l'item à la listiew

        Loop Until StrInput Is Nothing

        sr.close() 'Je ferme mon fichier

    End Sub

Voila sur le feu j'espère que cela te convient.

Le savoir ne sert que si il est partagé par tous

Pour ce qui est de la fonction Split utilise la plutôt directement sur ton objet string :

SplitLine = Split(aMesLignes(i)," ") = > SplitLine = aMesLignes(i).Split(' ')

P0lO

ah vi ça c'est vrai j'avais pas vu, comme quoi on efface pas si facilement que ça VB6 ;)

Le savoir ne sert que si il est partagé par tous