Pb chaine de caracteres

Question

J'ai besoin de récupérer des données dans un fichier texte pour revréer une table à partir de VB.
je récupère ligne par ligne (corresponds aux lignes sous Access également).
Pour séparer les données, j'utilise un point virgule. le problème est que, quand je veux recréer ma table à partir de ce fichier, j'obtient nimporte quoi! mon algo reconnait le point virgule à la bonne place, mais pas après (Dans certains cas, il peut y avoir 2 points virgules de suite)
Voilà ma recherche:
Do While Not EOF(1)
        Adodc1.Recordset.AddNew
        Line Input #1, NumFich
        While i < Len(NumFich)
            Pos = InStr(i, NumFich, Limit, vbTextCompare)
            Call InLabel(j, Mid(NumFich, i, Pos - 1))
            j = j + 1
            i = Pos + 1
        Wend
        Adodc1.Recordset.Update
        If Adodc1.Recordset.EOF Then
            Adodc1.Recordset.MoveFirst
        Else
            Adodc1.Recordset.MoveNext
        End If
Loop

Si quelqu'un voit où est mon erreur...

cs_Crazyht · Answer

Do While Not EOF(1)
  Adodc1.Recordset.AddNew
  Line Input #1, NumFich
  i = 1
  While i < Len(NumFich)
    Pos = InStr(i, NumFich, Limit, vbTextCompare)
    Call InLabel(j, Mid(NumFich, i, Pos - 1))
    j = j + 1
    i = Pos + 1
    Adodc1.Recordset.Update
  Wend
  If Adodc1.Recordset.EOF Then
    Adodc1.Recordset.MoveFirst
  Else
    Adodc1.Recordset.MoveNext
  End If
Loop

Essaye comme ca tu verra bien.
A++
Hervé

Pb chaine de caracteres

1 réponse

Discussions similaires