Vb6 aide

yuns -  
Armojax Messages postés 1863 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour forum,

j'ai un "grand probléme"

j'ai un fichier txt ou il ya:

var1 espace var2 espace var3 espace var4

pour recuperer les données, j'ai fait
Input #1, var1, var2, var3, var4
mais il mélange les données. est ce que quelqu'un a une idée?

merci d'avance

2 réponses

  1. random Messages postés 1612 Statut Membre 155
     
    input #1 temp
    dim rep as string
    dim ou as integer
    ou=1
    rep=""
    for a=1 to len(temp)
    cara=mid(temp,a,1)
    if cara<>" " then
    rep=rep&cara
    else
    select case
    ou=1
    var1=rep
    case2
    var2=rep
    case 3
    var3=rep
    exit for
    end select
    rep=""
    end if
    next a
    var4=left(temp,a+1,len(temp)-a-1)
    0
  2. Armojax Messages postés 1863 Date d'inscription   Statut Membre Dernière intervention   1 529
     
    Hello Yuns,

    Essaie d'utiliser : "Line Input" au lieu de "Input".
    Ajx.
    0