Vb6 aide

yuns -  
Armojax Messages postés 1916 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
A voir également:

2 réponses

Réponse 1 / 2
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
Réponse 2 / 2
Armojax Messages postés 1916 Date d'inscription   Statut Membre Dernière intervention   1 529
 
Hello Yuns,

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

Discussions similaires

[Visual Basic 6 portable]Créer exécutable
kevinbor -
Paul -

3 réponses
Compatibilité VB6 et Windows 10
machto -
machto -

4 réponses
Je trouve pas DTPicker dans les composants du VB6 ?
dormdaz -
Utilisateur anonyme -

5 réponses
VB6 - SSTab
Fenril'Skanenruf -
lermite222 -

11 réponses
La fonction split de vb6
louisenice -
Bill_Tcherno -

1 réponse