Vb6 aide

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. Hello Yuns,

    Essaie d'utiliser : "Line Input" au lieu de "Input".
    Ajx.
    0
    1. 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