vb6 aide

Question

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

Afficher la suite

random · Answer

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)

Armojax · Answer

Hello Yuns,Essaie d'utiliser : "Line Input" au lieu de "Input".Ajx.

Vb6 aide

2 réponses

Votre réponse

Discussions similaires

Newsletters