POINT ET VIRGULE EN VB6

Signaler
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/48483-point-et-virgule-en-vb6

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
Ça m'intéresse aussi ce genre de code puisque j'y suis confronté régulièrement...

Cette partie devrait être revue
# Close #1
# Open Chemin & "FichierP.txt" For Input As #1
# Close #2
# Open Chemin & "FichierV.txt" For Input As #2
# Close #3
# Open Chemin & "FichierMixte.txt" For Input As #3

1- tu fermes les fichiers avant de les ouvrir, mais tu ne les fermes pas par la suite...
2- #1 pourrait être le seul utilisé dans ce cas-ci.
3- pense à utiliser FreeFile.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
d'autre part, il est faux de faire un Replace(",", ".")
c'est bien trop radical, et ne tiens pas compte du séparateur des milliers.

63,450.2 est un nombre tout ce qu'il y a de plus convenable, en format US.

ton Replace provoquerait : 63.450.2 ce qui ne signifie plus rien...

ton code manque de tests utilisant IsNumeric
(Cette fonction se fie aux regional settings)
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
code pour le moins étrange, qui s'interesse néanmoins a un probleme qui me tient a coeur.

Do While SymboleTouche = "."
LigneRecuperee = Replace(LigneRecuperee, ",", ".")
SymboleDecimal = LigneRecuperee
Exit Do
Loop

pourquoi ne pas utiliser un simple 'If' ?