POINT ET VIRGULE EN VB6
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
19 nov. 2008 à 15:24
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 20 nov. 2008 à 11:16
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 20 nov. 2008 à 11:16
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
https://codes-sources.commentcamarche.net/source/48483-point-et-virgule-en-vb6
20 nov. 2008 à 11:16
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.
19 nov. 2008 à 15:29
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)
19 nov. 2008 à 15:24
Do While SymboleTouche = "."
LigneRecuperee = Replace(LigneRecuperee, ",", ".")
SymboleDecimal = LigneRecuperee
Exit Do
Loop
pourquoi ne pas utiliser un simple 'If' ?