Vb6 aide
Fermé
yuns
-
24 juin 2005 à 14:57
Armojax Messages postés 1858 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 mars 2024 - 24 juin 2005 à 18:54
Armojax Messages postés 1858 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 mars 2024 - 24 juin 2005 à 18:54
A voir également:
- Vb6 aide
- Vb6 - Télécharger - Divers Utilitaires
- Commondialog vb6 ✓ - Forum VB / VBA
- Vb6 freefile - Forum VB / VBA
- Vb6 windows 10 - Forum VB / VBA
- Vb6 timer - Forum VB / VBA
2 réponses
random
Messages postés
1612
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
30 mars 2006
155
24 juin 2005 à 18:10
24 juin 2005 à 18:10
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)
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
Messages postés
1858
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
22 mars 2024
1 527
24 juin 2005 à 18:54
24 juin 2005 à 18:54
Hello Yuns,
Essaie d'utiliser : "Line Input" au lieu de "Input".
Ajx.
Essaie d'utiliser : "Line Input" au lieu de "Input".
Ajx.
