.Net VB6 en .Net Encore... SVP

Question

C'est encore moi...
J'ai un Procédure qui mets un fichier texte (autre fonction) dans un tableau....
Serait-il possible de me convertir ce code en .NET SVP
Je crois que apres cette dernière demande de conversions, je devrais y arriver pour le reste.

Merci beaucoup d'avance...

Public Sub Parcourir_Fichier_text(aMesLignes)


    Dim i As Integer, j As Integer, LineCount As Integer
    Dim SplitLine() As String
    Dim intCompteur As Integer
    
   LineCount = 0
   For i = 0 To UBound(aMesLignes)
      If LineCount = 0 Then
            ReDim Tableau(4, LineCount)
        Else
            ReDim Preserve Tableau(4, LineCount)
        End If
   SplitLine = Split(aMesLignes(i), " ")
   For j = 0 To UBound(SplitLine)
            If Trim(SplitLine(j)) <> "" Then
                Tableau(j, LineCount) = Trim(SplitLine(j))
            End If
        Next
   LineCount = LineCount + 1
   Next i
End Sub

cs_JeffC1977 · Answer

Je vous montre là où il dit qu'il y a des erreurs.... Module MDOLireFichier Public Tableau() As Object

Public Sub Parcourir_Fichier_text( ByVal aMesLignes) Dim i As Integer , j As Integer Dim LineCount As Integer Dim SplitLine() As String Dim intCompteur As Integer LineCount = 0 For i = 0 To UBound(aMesLignes) If LineCount = 0 Then ReDim Tableau(4, LineCount) Else ReDim Preserve Tableau(4, LineCount) End If SplitLine = Split( aMesLignes(i) , " " ) For j = 0 To UBound(SplitLine) If Trim(SplitLine(j)) <> "" Then Tableau(j, LineCount) = Trim(SplitLine(j)) End If Next LineCount = LineCount + 1 Next i End Sub

.Net VB6 en .Net Encore... SVP

1 réponse

Votre réponse

Discussions similaires