API :CONVERTIR DES OCTETS EN KO,MO,GO EN FONCTION DE LA VALEUR
SkyRocKo
Messages postés
174
Date d'inscription
samedi 10 mai 2003
Statut
Membre
Dernière intervention
18 février 2006
-
18 févr. 2006 à 16:45
thel0rd Messages postés 14 Date d'inscription lundi 16 février 2004 Statut Membre Dernière intervention 20 janvier 2012 - 6 avril 2006 à 15:22
thel0rd Messages postés 14 Date d'inscription lundi 16 février 2004 Statut Membre Dernière intervention 20 janvier 2012 - 6 avril 2006 à 15:22
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/36125-api-convertir-des-octets-en-ko-mo-go-en-fonction-de-la-valeur
https://codes-sources.commentcamarche.net/source/36125-api-convertir-des-octets-en-ko-mo-go-en-fonction-de-la-valeur
6 avril 2006 à 15:22
24 févr. 2006 à 01:26
Mais tout cela était bien expliqué dans la page donnée par Maksime.
20 févr. 2006 à 17:20
20 févr. 2006 à 14:51
20 févr. 2006 à 12:56
Ps : le lien que tu m'a passé n'a pas l'air de marcher
20 févr. 2006 à 11:56
http://fr.wikipedia.org/wiki/Octet
20 févr. 2006 à 01:34
Je voulais savoir, 1024 ça a été décidé arbitrairement par windows ??
19 févr. 2006 à 15:06
GetFileSize dans le cas d'un fichier local, sinon la fonction sujet peut etre utiliser dans des cas tels le telechargement de fichiers distants.
Merci pour vos codes, c'est tres instructif.
19 févr. 2006 à 14:04
19 févr. 2006 à 09:08
Public Function sFormaterNumerique$(ByVal rVal!)
' Formater un numérique avec une précision d'une décimale
' Le format numérique standard est correct (séparation des milliers et plus),
' il suffit juste d'enlever la décimale inutile si 0
Dim nfi As Globalization.NumberFormatInfo = _
New Globalization.NumberFormatInfo
' Définition des spérateurs numériques
nfi.NumberGroupSeparator = " " ' Séparateur des milliers, millions...
nfi.NumberDecimalSeparator = "." ' Séparateur décimal
' 3 groupes pour milliard, million et millier
' (on pourrait en ajouter un 4ème pour les To : 1000 Go)
nfi.NumberGroupSizes = New Integer() {3, 3, 3}
nfi.NumberDecimalDigits = 1 ' 1 décimale de précision
sFormaterNumerique = rVal.ToString("n", nfi) ' n : numérique général
' Enlever la décimale si 0
sFormaterNumerique = sFormaterNumerique.Replace(".0", "")
End Function
19 févr. 2006 à 09:07
Public Function sFormaterTailleOctets$(ByVal lTailleOctets&)
' Renvoyer une taille de fichier bien formatée dans une chaîne de caractère
' 1024 est la norme actuellement employée dans Windows,
' mais 1000 sera peut être un jour la norme
Dim sAffichage$ = sFormaterNumerique(lTailleOctets) & " octets"
Dim rNbKo! = CSng(Math.Round(lTailleOctets / 1024, 1))
If rNbKo > 0 Then sAffichage &= " (" & sFormaterNumerique(rNbKo) & " Ko"
Dim rNbMo! = CSng(Math.Round(lTailleOctets / (1024 * 1024), 1))
If rNbMo > 0 Then sAffichage &" " & sFormaterNumerique(rNbMo) & " Mo"
Dim rNbGo! = CSng(Math.Round(lTailleOctets / (1024 * 1024 * 1024), 1))
If rNbGo > 0 Then sAffichage &" " & sFormaterNumerique(rNbGo) & " Go"
If rNbKo > 0 Or rNbMo > 0 Or rNbGo > 0 Then sAffichage &= ")"
sFormaterTailleOctets = sAffichage
End Function
18 févr. 2006 à 22:51
Voici le code:
Public Function StrFormatByteSize(ByVal dw As Long, Optional NumDigitsAfterDecimal As Long = 2) As String
Dim sValue As String
Select Case (dw \ 1024)
Case Is >= 1024000
sValue = CStr(Round(dw / (1024 ^ 3), NumDigitsAfterDecimal)) & " Go"
Case Is >= 1000
sValue = CStr(Round(dw / (1024 ^ 2), NumDigitsAfterDecimal)) & " Mo"
Case Is >= 1
sValue = CStr(Round(dw / 1024, NumDigitsAfterDecimal)) & " Ko"
Case Is = 0
sValue = CStr(Round(dw)) & " octets"
End Select
Let StrFormatByteSize = sValue
End Function
18 févr. 2006 à 16:45
Génial cet API ! Merci
10/10