taille de fichiers sans les espaces

Question

Salut à tous

voilà j'ai des fichiers avec des espaces dedant, et j'aimerai calculer leur taille si il n'y avais pas d'espace...
Quelqu'un connais la solution?

Merci
@ bientôt

Renfield · Answer

ok , alors en fait , je vois plein de solutions :

mais la moins mauvaise serait de faire un Find (InStr) sur tes espaces , en decalant l'indice de depart (pour eviter un boucle infinie !! ) , en incrementant un compteur au fur et a mesure. Une fois la boule terminée , tu as le nombre d'espaces. Tu sais faire une soustraction , je suppose ??


    Dim Start As Long, NbSpace As Long, Pos As Long
    Start = 1
    Pos = InStr(Start, Text1.Text, " ", vbTextCompare)
    While Pos <> 0
        DoEvents
        NbSpace = NbSpace + 1
        Start = Pos + 1
        Pos = InStr(Start, Text1.Text, " ", vbTextCompare)
    Wend
    MsgBox NbSpace & " Espace(s) dans la chaine scannée."



------------------------------------------------------------------

By Renfield

thomas_reynald@msn.com

Aucune touche n'a été bléssée lors de la saisie de ce texte..........

K@zuya · Answer

en ce qui est des fichiers, sa ne change pas grand chose, sa parait complexe, mai c tout con  ;) 

Private Function CalculTaille(File) As String

Dim Pos As Long
Dim Char As String * 1
Dim Taille_Totale As Long
Dim Taille_Sans_Espaces As Long
Dim Nombre_Espaces As Long

Open File For Binary As #1
    Do While Not EOF(1)
        Pos = Pos + 1
        Get #1, Pos, Char
        If Char <> Chr(32) Then Taille_Sans_Espaces = Taille_Sans_Espaces + 1
        Taille_Totale = Taille_Totale + 1
        Nombre_Espaces = Taille_Totale - Taille_Sans_Espaces
    Loop
CalculTaille = Taille_Sans_Espaces & " " & Nombre_Espaces
Close #1
End Function

Private Sub Command1_Click()
Text2.Text = CalculTaille(Text1.Text)
End Sub

 
***************
 8-)      Mon Home FTP      8-)      
***************

cs_rene38 · Answer

Ou bien, sans charger le fichier dans une TextBox :

Dim NumFich As Integer, Caract As String*1, NbreEspaces As Long, TailleFichier As Long
NumFich = FreeFile
Open "c:\Chemin\Fichier.ext" For Binary As #NumFich
TailleFichier = LOF(NumFich)
Do While Not EOF(NumFich)
Get NumFich,, Caract If Asc(Caract) 32 Then NbreEspaces NbreEspaces + 1
Loop
Close NumFich
MsgBox "Sans espaces : " & (TailleFichier - NbreEspaces) & " octets" & vbLf & "Sur un total de " &  TailleFichier & "octets"

Taille de fichiers sans les espaces

3 réponses

Discussions similaires